--- a/PPTokenTest.st Fri Oct 03 00:52:34 2014 +0100
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,168 +0,0 @@
-"{ Package: 'stx:goodies/petitparser' }"
-
-PPAbstractParserTest subclass:#PPTokenTest
- instanceVariableNames:''
- classVariableNames:''
- poolDictionaries:''
- category:'PetitTests-Tests'
-!
-
-
-!PPTokenTest methodsFor:'accessing'!
-
-identifier
- ^ #word asParser plus token
-! !
-
-!PPTokenTest methodsFor:'testing'!
-
-testCollection
- | input result |
- input := 'foo '.
- result := self
- parse: input
- using: self identifier.
- self assert: (result collection = input).
- self assert: (result collection == input)
-!
-
-testInitialize
- PPToken initialize
-!
-
-testNew
- self should: [ PPToken new ] raise: Error.
-
-!
-
-testPrinting
- | result |
- result := PPToken on: 'var'.
- self assert: (result printString findString: 'PPToken[1,3]') > 0
-!
-
-testSize
- | result |
- result := self
- parse: 'foo'
- using: self identifier.
- self assert: result size = 3
-!
-
-testStart
- | result |
- result := self
- parse: 'foo'
- using: self identifier.
- self assert: result start = 1
-!
-
-testStop
- | result |
- result := self
- parse: 'foo'
- using: self identifier.
- self assert: result stop = 3
-!
-
-testValue
- | result |
- result := PPToken on: 'var'.
- self should: [ result value ] raise: Notification
-! !
-
-!PPTokenTest methodsFor:'testing-comparing'!
-
-testEquality
- | token1 token2 |
- token1 := self parse: 'foo' using: self identifier.
- token2 := self parse: 'foo' using: self identifier.
- self deny: token1 == token2.
- self assert: token1 = token2.
- self assert: token1 hash = token2 hash.
-! !
-
-!PPTokenTest methodsFor:'testing-copying'!
-
-testCopyFromTo
- | result other |
- result := PPToken on: 'abc'.
- other := result copyFrom: 2 to: 2.
-
- self assert: other size = 1.
- self assert: other start = 2.
- self assert: other stop = 2.
- self assert: other collection = result collection
-! !
-
-!PPTokenTest methodsFor:'testing-querying'!
-
-testColumn
- | input parser result cr |
-
- cr := Smalltalk isSmalltalkX
- ifTrue:[ Character return]
- ifFalse:[ Character cr ].
- input := '1' , (String with:cr) , '12' , (String with: cr with: Character lf) , '123' , (String with: Character lf) , '1234'.
- parser := #any asParser token star.
- result := parser parse: input.
- result
- with: #(1 2 1 2 3 4 1 2 3 4 1 2 3 4)
- do: [ :token :line | self assert: token column = line ]
-!
-
-testLine
- | input parser result cr|
-
- cr := Smalltalk isSmalltalkX
- ifTrue:[Character return]
- ifFalse:[Character cr].
- input := '1' , (String with: cr) , '12' , (String with: cr with: Character lf) , '123' , (String with: Character lf) , '1234'.
- parser := #any asParser token star.
- result := parser parse: input.
- result
- with: #(1 1 2 2 2 2 3 3 3 3 4 4 4 4)
- do: [ :token :line | self assert: token line = line ]
-! !
-
-!PPTokenTest methodsFor:'testing-values'!
-
-testInputValue
- | input result |
- input := 'foo'.
- result := self
- parse: input
- using: self identifier.
- self assert: result inputValue = input.
- self deny: result inputValue == input
-!
-
-testParsedValue
- | input result |
- input := 'foo'.
- result := self
- parse: input
- using: self identifier.
- self assert: result parsedValue = #($f $o $o)
-! !
-
-!PPTokenTest methodsFor:'utilities'!
-
-parse: aString using: aParser
- ^ aParser parse: aString
-! !
-
-!PPTokenTest class methodsFor:'documentation'!
-
-version
- ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPTokenTest.st,v 1.5 2014-03-04 14:34:24 cg Exp $'
-!
-
-version_CVS
- ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPTokenTest.st,v 1.5 2014-03-04 14:34:24 cg Exp $'
-!
-
-version_SVN
- ^ '$Id: PPTokenTest.st,v 1.5 2014-03-04 14:34:24 cg Exp $'
-! !
-