diff -r 9a7fa841f12e -r a6d8b93441b0 compiler/tests/PPCOverlappingTokensTest.st --- a/compiler/tests/PPCOverlappingTokensTest.st Mon Aug 17 13:39:38 2015 +0100 +++ b/compiler/tests/PPCOverlappingTokensTest.st Mon Aug 17 23:11:56 2015 +0100 @@ -76,17 +76,21 @@ ! testOverlappingSmalltalkLike2 + "/ JK: please remove this once fixed... + p := (keywordToken, idToken) star, idToken, assignmentToken, idToken. self compile: p. self assert: parser parse: 'foo: bar id:=another'. - self assert: result first size = 1.. + self assert: result first size = 1. self assert: result second inputValue = 'id'. self assert: result third inputValue = ':='. self assert: result last inputValue = 'another'. - self assert: context tokenReadCount == 2 description: 'too many token reads?'. + self assert: context tokenReadCount == 2 description: 'too many token reads?'. + + "Modified: / 17-08-2015 / 22:35:22 / Jan Vrany " ! testOverlappingToken @@ -123,6 +127,8 @@ ! testOverlappingTokenStar + "/ JK: please remove this once fixed... + p := (fooToken ==> [ :e | #foo ]) / (idToken ==> [:e | #id ]). self compile: p star. @@ -133,9 +139,13 @@ self assert: result last = #id. self assert: context tokenReadCount == 1 description: 'too many token reads?'. + + "Modified: / 17-08-2015 / 22:35:35 / Jan Vrany " ! testOverlappingTokenStar2 + "/ JK: please remove this once fixed... + p := (fooToken / idToken). self compile: p star. @@ -146,6 +156,8 @@ self assert: result last inputValue = 'bar'. self assert: context tokenReadCount == 1 description: 'too many token reads?'. + + "Modified: / 17-08-2015 / 22:35:47 / Jan Vrany " ! testSanityAsignment