diff -r e1b11f74e142 -r 90de244a7fa2 PPExtensionTest.st --- a/PPExtensionTest.st Mon Sep 12 19:48:53 2011 +0200 +++ b/PPExtensionTest.st Fri Jan 13 12:22:50 2012 +0100 @@ -1,4 +1,4 @@ -"{ Package: 'squeak:petitparser' }" +"{ Package: 'stx:goodies/petitparser' }" PPAbstractParseTest subclass:#PPExtensionTest instanceVariableNames:'' @@ -28,12 +28,12 @@ self assert: parser parse: 'aas' to: 'aa'. self assert: parser parse: 'sa' to: '' end: 1. self assert: parser parse: 'saa' to: '' end: 1. - + parser := [ :stream | stream upTo: $s. PPFailure message: 'stream' at: stream position ] asParser. self assert: parser fail: ''. self assert: parser fail: 's'. self assert: parser fail: 'as' - + ! testEpsilon @@ -60,12 +60,12 @@ ! testRange - | parser | - parser := $a ppMinus: $c. - self assert: parser parse: 'a' to: $a. - self assert: parser parse: 'b' to: $b. - self assert: parser parse: 'c' to: $c. - self assert: parser fail: 'd' + | parser | + parser := $a ppMinus: $c. + self assert: parser parse: 'a' to: $a. + self assert: parser parse: 'b' to: $b. + self assert: parser parse: 'c' to: $c. + self assert: parser fail: 'd' "Modified: / 19-12-2010 / 18:15:45 / Jan Kurs " ! @@ -121,5 +121,5 @@ !PPExtensionTest class methodsFor:'documentation'! version_SVN - ^ '$Id: PPExtensionTest.st,v 1.1 2011-08-18 18:56:17 cg Exp $' + ^ '$Id: PPExtensionTest.st,v 1.2 2012-01-13 11:22:50 cg Exp $' ! !