Fwd: Process stuck in 10156+OB?

> Begin forwarded message:
>
>> From: John M McIntosh <[hidden email]>
>> Date: July 22, 2009 1:21:17 PM CEDT
>> To: Stéphane Ducasse <[hidden email]>
>> Subject: Fwd: [Pharo-project] Process stuck in 10156+OB?
>> Reply-To: [hidden email]
>>
>>
>>
>> Begin forwarded message:
>>
>>> From: John M McIntosh <[hidden email]>
>>> Date: January 26, 2009 7:30:23 PM GMT+01:00
>>> To: Stéphane Ducasse <[hidden email]>
>>> Subject: Re: [Pharo-project] Process stuck in 10156+OB?
>>> Reply-To: [hidden email]
>>>
>>> Ok, I think the test is attached, however you should change the  
>>> name from JMMTest to something else.
>>>
>>> like  MacHostMenusTestCaseCharacterSubstitutions
>>>
>>>
>>> On 20-Nov-08, at 1:27 PM, Stéphane Ducasse wrote:
>>>
>>>
>>>> john do you have a new version of the package since
>>>> the method calculateShouldBeFrom:using: is missing
>>>>
>>>> On Nov 20, 2008, at 12:03 AM, John M McIntosh wrote:
>>>>
>>>>> 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)]]]]]
>>>>
>>>
>>> --
>>> =
>>> =
>>> =
>>> =
>>> =
>>> =
>>> =
>>> ====================================================================
>>> John M. McIntosh <[hidden email]>
>>> Corporate Smalltalk Consulting Ltd.  http://www.smalltalkconsulting.com
>>> =
>>> =
>>> =
>>> =
>>> =
>>> =
>>> =
>>> ====================================================================
>>>
>>>
> <JMMTest.st>
>>
>>
>
> _______________________________________________
> Pharo-project mailing list
> [hidden email]
> http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project