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
>
Pharo-project@lists.gforge.inria.fr
>
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
_______________________________________________
Pharo-project mailing list
Pharo-project@lists.gforge.inria.fr
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project