[Pharo-project] Fwd: Process stuck in 10156+OB?

Stéphane Ducasse stephane.ducasse at inria.fr
Mon Jan 26 14:07:15 EST 2009



Begin forwarded message:

> From: John M McIntosh <johnmci at smalltalkconsulting.com>
> Date: January 26, 2009 7:30:23 PM CEST
> To: Stéphane Ducasse <stephane.ducasse at inria.fr>
> Subject: Re: [Pharo-project] Process stuck in 10156+OB?
> Reply-To: johnmci at smalltalkconsulting.com
>
> 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 <johnmci at smalltalkconsulting.com>
> Corporate Smalltalk Consulting Ltd.  http:// 
> www.smalltalkconsulting.com
> = 
> = 
> = 
> = 
> = 
> ======================================================================
>
>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: JMMTest.st
Type: application/octet-stream
Size: 3858 bytes
Desc: not available
URL: <http://lists.pharo.org/pipermail/pharo-dev_lists.pharo.org/attachments/20090126/ee904978/attachment.st>
-------------- next part --------------



More information about the Pharo-dev mailing list