# HG changeset patch # User Jan Vrany # Date 1336169020 -7200 # Node ID 25e88bf6d8f11243366f55c79916f10b96abe51a # Parent 38fde57e4ea05350ae114ed91b84cd42363d7ed3 Checkin from browser diff -r 38fde57e4ea0 -r 25e88bf6d8f1 PPMappingTest.st --- a/PPMappingTest.st Sat May 05 00:03:26 2012 +0200 +++ b/PPMappingTest.st Sat May 05 00:03:40 2012 +0200 @@ -12,7 +12,7 @@ testFoldLeft2 | parser | - parser := #any asParser star + parser := #any asParser star foldLeft: [ :a :b | Array with: a with: b ]. self assert: parser parse: #(a) to: #a. @@ -24,7 +24,7 @@ testFoldLeft3 | parser | - parser := #any asParser star + parser := #any asParser star foldLeft: [ :a :b :c | Array with: a with: b with: c ]. self assert: parser parse: #(a) to: #a. @@ -34,7 +34,7 @@ testFoldRight2 | parser | - parser := #any asParser star + parser := #any asParser star foldRight: [ :a :b | Array with: a with: b ]. self assert: parser parse: #(a) to: #a. @@ -46,7 +46,7 @@ testFoldRight3 | parser | - parser := #any asParser star + parser := #any asParser star foldRight: [ :a :b :c | Array with: a with: b with: c ]. self assert: parser parse: #(a) to: #a. @@ -56,7 +56,7 @@ testMap1 | parser | - parser := #any asParser + parser := #any asParser map: [ :a | Array with: a ]. self assert: parser parse: #(a) to: #(a) @@ -64,7 +64,7 @@ testMap2 | parser | - parser := (#any asParser , #any asParser) + parser := (#any asParser , #any asParser) map: [ :a :b | Array with: b with: a ]. self assert: parser parse: #(a b) to: #(b a) @@ -80,6 +80,14 @@ !PPMappingTest class methodsFor:'documentation'! +version + ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPMappingTest.st,v 1.3 2012-05-04 22:03:40 vrany Exp $' +! + +version_CVS + ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPMappingTest.st,v 1.3 2012-05-04 22:03:40 vrany Exp $' +! + version_SVN - ^ '$Id: PPMappingTest.st,v 1.2 2012-01-13 11:22:50 cg Exp $' + ^ '§Id: PPMappingTest.st 4 2010-12-18 17:02:23Z kursjan §' ! !