I recognize john method
On Jul 21, 2009, at 7:23 PM, Adrian Lienhard wrote:
> Hi Marcus,
>
> In the test below, which has your initials, the following methods are
> not understood.
>
> calculateShouldBeFrom:using: and modifySqueakMenu:
>
> Maybe you know where to get these methods from, how to implement them,
> or if we should rather delete the test?
>
> Cheers,
> Adrian
>
> HostSystemMenuTest>>testCharacterChanging
> | testString item shouldBe resultingString where |
> #(';' '^' '!' '<' '/' '(' )
> do: [:c | #('*' '* ' '* ' '**' '** ' '** '
> ')' '*)' '* )' '* )' '**)' '** )' '** )'
> ')' '*)' '*X)' '*XX)' '**)' '**X)' '**XX)'
> '))' '*))' '*X))' '*XX))' '**))' '**X))' '**XX))'
> '(' '*(' '*X(' '*XX(' '**)' '**X(' '**XX('
> '((' '*((' '*X((' '*XX((' '**((' '**X((' '**XX(('
> )
> do: [:template |
> testString := template copyReplaceAll:
> '*' with: c.
> testString
> permutationsDo: [:mixedUp |
> item := mixedUp copy.
> shouldBe := self
> calculateShouldBeFrom: item using: c.
> resultingString := self
> modifySqueakMenu: item copy.
> self should: [shouldBe
> = resultingString].
> (where :=
> resultingString indexOf: $/) > 0
> ifTrue: [self
> should: [(mixedUp at: where) = $(].
>
> self should: [(mixedUp at: where+2) = $)].
>
> self should: [(mixedUp at: where+1) asUppercase =
> (resultingString at: where+1)]]]]]
>
>
> _______________________________________________
> Pharo-project mailing list
> [email protected]
> http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
_______________________________________________
Pharo-project mailing list
[email protected]
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
