equal
deleted
inserted
replaced
1 "{ Package: 'stx:goodies/petitparser/tests' }" |
1 "{ Package: 'stx:goodies/petitparser/tests' }" |
|
2 |
|
3 "{ NameSpace: Smalltalk }" |
2 |
4 |
3 PPAbstractParserTest subclass:#PPExtensionTest |
5 PPAbstractParserTest subclass:#PPExtensionTest |
4 instanceVariableNames:'' |
6 instanceVariableNames:'' |
5 classVariableNames:'' |
7 classVariableNames:'' |
6 poolDictionaries:'' |
8 poolDictionaries:'' |
108 ! ! |
110 ! ! |
109 |
111 |
110 !PPExtensionTest methodsFor:'testing-stream'! |
112 !PPExtensionTest methodsFor:'testing-stream'! |
111 |
113 |
112 testStream |
114 testStream |
113 | stream | |
115 | dot stream | |
|
116 dot := (Character codePoint: 183) asString. |
114 stream := 'abc' readStream asPetitStream. |
117 stream := 'abc' readStream asPetitStream. |
115 self assert: stream class equals: PPStream. |
118 self assert: stream class equals: PPStream. |
116 self assert: stream printString equals: '·abc'. |
119 self assert: stream printString equals: dot , 'abc'. |
117 self assert: stream peek equals: $a. |
120 self assert: stream peek equals: $a. |
118 self assert: stream uncheckedPeek equals: $a. |
121 self assert: stream uncheckedPeek equals: $a. |
119 self assert: stream next equals: $a. |
122 self assert: stream next equals: $a. |
120 self assert: stream printString equals: 'a·bc'. |
123 self assert: stream printString equals: 'a' , dot , 'bc'. |
121 self assert: stream asPetitStream equals: stream |
124 self assert: stream asPetitStream equals: stream |
122 ! |
125 ! |
123 |
126 |
124 testText |
127 testText |
125 | stream | |
128 | stream | |