Yes, and here are some comments: http://n2.nabble.com/Pharo-platform-dependency-%28or-Seaside-one-click%29-td... On Tue, Jul 21, 2009 at 5:36 PM, Stéphane Ducasse <stephane.ducasse@inria.fr
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 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