Begin forwarded message:
From: John M McIntosh <[email protected]> Date: January 26, 2009 7:30:23 PM CEST To: Stéphane Ducasse <[email protected]> Subject: Re: [Pharo-project] Process stuck in 10156+OB? Reply-To: [email protected]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 <[email protected]>Corporate Smalltalk Consulting Ltd. http:// www.smalltalkconsulting.com = = = = = ======================================================================
JMMTest.st
Description: Binary data
_______________________________________________ Pharo-project mailing list [email protected] http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
