On 21.07.2009, at 14:36, Stéphane Ducasse wrote:
> I recognize john method
>
yes... don't remember what I edited... I filed those in when adding
John's code fro HostMenu.
Marcus
>
> 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
