hg/stx-goodies-petitparser: tests/PPTokenTest.st@6112a403a52d (annotated)

376 a2656b27cace Added monticelloName to package definition to ease export to .mcz Jan Vrany <jan.vrany@fit.cvut.cz> parents: 375 diff changeset	1	"{ Package: 'stx:goodies/petitparser/tests' }"
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	2
194 4d2a1901344b update Claus Gittinger <cg@exept.de> parents: 95 diff changeset	3	PPAbstractParserTest subclass:#PPTokenTest
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	4	instanceVariableNames:''
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	5	classVariableNames:''
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	6	poolDictionaries:''
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	7	category:'PetitTests-Tests'
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	8	!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	9
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	10
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	11	!PPTokenTest methodsFor:'accessing'!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	12
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	13	identifier
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	14	^ #word asParser plus token
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	15	! !
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	16
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	17	!PPTokenTest methodsFor:'testing'!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	18
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	19	testCollection
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	20	\| input result \|
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	21	input := 'foo '.
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	22	result := self parse: input using: self identifier.
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	23	self assert: result collection equals: input.
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	24	self assert: result collection == input
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	25	!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	26
194 4d2a1901344b update Claus Gittinger <cg@exept.de> parents: 95 diff changeset	27	testInitialize
4d2a1901344b update Claus Gittinger <cg@exept.de> parents: 95 diff changeset	28	PPToken initialize
4d2a1901344b update Claus Gittinger <cg@exept.de> parents: 95 diff changeset	29	!
4d2a1901344b update Claus Gittinger <cg@exept.de> parents: 95 diff changeset	30
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	31	testNew
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	32	self should: [ PPToken new ] raise: Error.
38 1e678b5f1423 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	33
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	34	!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	35
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	36	testPrinting
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	37	\| result \|
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	38	result := PPToken on: 'var'.
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	39	self assert: (result printString includesSubstring: 'PPToken[1,3]')
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	40	!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	41
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	42	testSize
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	43	\| result \|
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	44	result := self parse: 'foo' using: self identifier.
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	45	self assert: result size equals: 3
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	46	!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	47
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	48	testStart
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	49	\| result \|
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	50	result := self parse: 'foo' using: self identifier.
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	51	self assert: result start equals: 1
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	52	!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	53
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	54	testStop
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	55	\| result \|
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	56	result := self parse: 'foo' using: self identifier.
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	57	self assert: result stop equals: 3
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	58	!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	59
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	60	testValue
194 4d2a1901344b update Claus Gittinger <cg@exept.de> parents: 95 diff changeset	61	\| result \|
4d2a1901344b update Claus Gittinger <cg@exept.de> parents: 95 diff changeset	62	result := PPToken on: 'var'.
4d2a1901344b update Claus Gittinger <cg@exept.de> parents: 95 diff changeset	63	self should: [ result value ] raise: Notification
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	64	! !
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	65
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	66	!PPTokenTest methodsFor:'testing-comparing'!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	67
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	68	testEquality
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	69	\| token1 token2 \|
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	70	token1 := self parse: 'foo' using: self identifier.
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	71	token2 := self parse: 'foo' using: self identifier.
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	72	self deny: token1 == token2.
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	73	self assert: token1 equals: token2.
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	74	self assert: token1 hash equals: token2 hash
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	75	! !
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	76
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	77	!PPTokenTest methodsFor:'testing-copying'!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	78
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	79	testCopyFromTo
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	80	\| result other \|
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	81	result := PPToken on: 'abc'.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	82	other := result copyFrom: 2 to: 2.
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	83	self assert: other size equals: 1.
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	84	self assert: other start equals: 2.
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	85	self assert: other stop equals: 2.
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	86	self assert: other collection equals: result collection
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	87	! !
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	88
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	89	!PPTokenTest methodsFor:'testing-querying'!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	90
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	91	testColumn
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	92	\| input parser result \|
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	93	input := '1' , (String with: Character cr) , '12' , (String with: Character cr with: Character lf) , '123'
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	94	, (String with: Character lf) , '1234'.
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	95	parser := #any asParser token star.
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	96	result := parser parse: input.
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	97	result with: #(1 2 1 2 3 4 1 2 3 4 1 2 3 4) do: [ :token :line \| self assert: token column equals: line ]
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	98	!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	99
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	100	testLine
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	101	\| input parser result \|
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	102	input := '1' , (String with: Character cr) , '12' , (String with: Character cr with: Character lf) , '123'
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	103	, (String with: Character lf) , '1234'.
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	104	parser := #any asParser token star.
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	105	result := parser parse: input.
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	106	result with: #(1 1 2 2 2 2 3 3 3 3 4 4 4 4) do: [ :token :line \| self assert: token line equals: line ]
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	107	! !
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	108
194 4d2a1901344b update Claus Gittinger <cg@exept.de> parents: 95 diff changeset	109	!PPTokenTest methodsFor:'testing-values'!
4d2a1901344b update Claus Gittinger <cg@exept.de> parents: 95 diff changeset	110
4d2a1901344b update Claus Gittinger <cg@exept.de> parents: 95 diff changeset	111	testInputValue
4d2a1901344b update Claus Gittinger <cg@exept.de> parents: 95 diff changeset	112	\| input result \|
4d2a1901344b update Claus Gittinger <cg@exept.de> parents: 95 diff changeset	113	input := 'foo'.
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	114	result := self parse: input using: self identifier.
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	115	self assert: result inputValue equals: input.
194 4d2a1901344b update Claus Gittinger <cg@exept.de> parents: 95 diff changeset	116	self deny: result inputValue == input
4d2a1901344b update Claus Gittinger <cg@exept.de> parents: 95 diff changeset	117	!
4d2a1901344b update Claus Gittinger <cg@exept.de> parents: 95 diff changeset	118
4d2a1901344b update Claus Gittinger <cg@exept.de> parents: 95 diff changeset	119	testParsedValue
4d2a1901344b update Claus Gittinger <cg@exept.de> parents: 95 diff changeset	120	\| input result \|
4d2a1901344b update Claus Gittinger <cg@exept.de> parents: 95 diff changeset	121	input := 'foo'.
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	122	result := self parse: input using: self identifier.
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	123	self assert: result parsedValue equals: #($f $o $o)
194 4d2a1901344b update Claus Gittinger <cg@exept.de> parents: 95 diff changeset	124	! !
4d2a1901344b update Claus Gittinger <cg@exept.de> parents: 95 diff changeset	125
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	126	!PPTokenTest methodsFor:'utilities'!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	127
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	128	parse: aString using: aParser
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	129	^ aParser parse: aString
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	130	! !
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	131
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	132	!PPTokenTest class methodsFor:'documentation'!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	133
38 1e678b5f1423 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	134	version
194 4d2a1901344b update Claus Gittinger <cg@exept.de> parents: 95 diff changeset	135	^ '$Header: /cvs/stx/stx/goodies/petitparser/PPTokenTest.st,v 1.5 2014-03-04 14:34:24 cg Exp $'
38 1e678b5f1423 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	136	!
1e678b5f1423 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	137
1e678b5f1423 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	138	version_CVS
194 4d2a1901344b update Claus Gittinger <cg@exept.de> parents: 95 diff changeset	139	^ '$Header: /cvs/stx/stx/goodies/petitparser/PPTokenTest.st,v 1.5 2014-03-04 14:34:24 cg Exp $'
38 1e678b5f1423 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	140	!
1e678b5f1423 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	141
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	142	version_SVN
194 4d2a1901344b update Claus Gittinger <cg@exept.de> parents: 95 diff changeset	143	^ '$Id: PPTokenTest.st,v 1.5 2014-03-04 14:34:24 cg Exp $'
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	144	! !
194 4d2a1901344b update Claus Gittinger <cg@exept.de> parents: 95 diff changeset	145

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Fri, 03 Oct 2014 02:33:08 +0100
changeset 377	6112a403a52d
parent 376	a2656b27cace
child 380	8fe3cb4e607f
permissions	-rw-r--r--