96 ! ! |
96 ! ! |
97 |
97 |
98 !PPTokenTest methodsFor:'testing-querying'! |
98 !PPTokenTest methodsFor:'testing-querying'! |
99 |
99 |
100 testColumn |
100 testColumn |
101 | input parser result | |
101 | input parser result | |
102 input := '1' , (String with: Character cr) , '12' , (String with: Character cr with: Character lf) , '123' , (String with: Character lf) , '1234'. |
102 Smalltalk isSmalltalkX ifTrue:[ |
103 parser := #any asParser token star. |
103 input := '1' , (String with: Character return) , '12' , (String with: Character return with: Character lf) , '123' , (String with: Character lf) , '1234'. |
104 result := parser parse: input. |
104 ] ifFalse:[ |
105 result |
105 input := '1' , (String with: Character cr) , '12' , (String with: Character cr with: Character lf) , '123' , (String with: Character lf) , '1234'. |
106 with: #(1 2 1 2 3 4 1 2 3 4 1 2 3 4) |
106 ]. |
107 do: [ :token :line | self assert: token column = line ] |
107 parser := #any asParser token star. |
|
108 result := parser parse: input. |
|
109 result |
|
110 with: #(1 2 1 2 3 4 1 2 3 4 1 2 3 4) |
|
111 do: [ :token :line | self assert: token column = line ] |
108 ! |
112 ! |
109 |
113 |
110 testLine |
114 testLine |
111 | input parser result | |
115 | input parser result | |
112 input := '1' , (String with: Character cr) , '12' , (String with: Character cr with: Character lf) , '123' , (String with: Character lf) , '1234'. |
116 Smalltalk isSmalltalkX ifTrue:[ |
113 parser := #any asParser token star. |
117 input := '1' , (String with: Character return) , '12' , (String with: Character return with: Character lf) , '123' , (String with: Character lf) , '1234'. |
114 result := parser parse: input. |
118 ] ifFalse:[ |
115 result |
119 input := '1' , (String with: Character cr) , '12' , (String with: Character cr with: Character lf) , '123' , (String with: Character lf) , '1234'. |
116 with: #(1 1 2 2 2 2 3 3 3 3 4 4 4 4) |
120 ]. |
117 do: [ :token :line | self assert: token line = line ] |
121 parser := #any asParser token star. |
|
122 result := parser parse: input. |
|
123 result |
|
124 with: #(1 1 2 2 2 2 3 3 3 3 4 4 4 4) |
|
125 do: [ :token :line | self assert: token line = line ] |
118 ! ! |
126 ! ! |
119 |
127 |
120 !PPTokenTest methodsFor:'utilities'! |
128 !PPTokenTest methodsFor:'utilities'! |
121 |
129 |
122 parse: aString using: aParser |
130 parse: aString using: aParser |
124 ! ! |
132 ! ! |
125 |
133 |
126 !PPTokenTest class methodsFor:'documentation'! |
134 !PPTokenTest class methodsFor:'documentation'! |
127 |
135 |
128 version |
136 version |
129 ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPTokenTest.st,v 1.3 2012-05-04 22:05:27 vrany Exp $' |
137 ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPTokenTest.st,v 1.4 2012-12-01 15:09:03 cg Exp $' |
130 ! |
138 ! |
131 |
139 |
132 version_CVS |
140 version_CVS |
133 ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPTokenTest.st,v 1.3 2012-05-04 22:05:27 vrany Exp $' |
141 ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPTokenTest.st,v 1.4 2012-12-01 15:09:03 cg Exp $' |
134 ! |
142 ! |
135 |
143 |
136 version_SVN |
144 version_SVN |
137 ^ '§Id: PPTokenTest.st 4 2010-12-18 17:02:23Z kursjan §' |
145 ^ '§Id: PPTokenTest.st 4 2010-12-18 17:02:23Z kursjan §' |
138 ! ! |
146 ! ! |