HostSystemMenuTest MNU

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
> [hidden email]
> http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project


_______________________________________________
Pharo-project mailing list
[hidden email]
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project

Yes, and here are some comments: http://n2.nabble.com/Pharo-platform-dependency-%28or-Seaside-one-click%29-td3055086.html#a3055086

On Tue, Jul 21, 2009 at 5:36 PM, Stéphane Ducasse <[hidden email]> wrote:

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
> [hidden email]
> http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project


_______________________________________________
Pharo-project mailing list
[hidden email]
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project