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

Reply via email to