hg/stx-goodies-petitparser: tests/PPLambdaParserTest.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
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	3	PPCompositeParserTest subclass:#PPLambdaParserTest
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	!PPLambdaParserTest 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	parserClass
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	14	^ PPLambdaParser
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	!PPLambdaParserTest 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	testAbstraction
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	20	self assert: '\x.y' is: #('x' 'y').
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	21	self assert: '\x.\y.z' is: #('x' ('y' 'z'))
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	22	!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	23
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	24	testApplication
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	25	self assert: '(x x)' is: #('x' 'x').
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	26	self assert: '(x y)' is: #('x' 'y').
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	27	self assert: '((x y) z)' is: #(('x' 'y') 'z').
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	28	self assert: '(x (y z))' is: #('x' ('y' 'z'))
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	29	!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	30
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	31	testVariable
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	32	self assert: 'x' is: 'x'.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	33	self assert: 'xy' is: 'xy'.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	34	self assert: 'x12' is: 'x12'
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
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	37	!PPLambdaParserTest methodsFor:'testing-curch'!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	38
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	39	testAnd
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	40	self assert: self parserClass and equals: #('p' #('q' #(#('p' 'q') 'p')))
0 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
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	43	testFalse
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	44	self assert: self parserClass false equals: #('x' #('y' 'y'))
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	45	!
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	testIfThenElse
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	48	self assert: self parserClass ifthenelse equals: #('p' 'p')
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	49	!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	50
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	51	testNot
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	52	self assert: self parserClass not equals: #('p' #('a' #('b' #(#('p' 'b') 'a'))))
0 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
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	55	testOr
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	56	self assert: self parserClass or equals: #('p' #('q' #(#('p' 'p') 'q')))
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	57	!
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	testTrue
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	60	self assert: self parserClass true equals: #('x' #('y' 'x'))
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	61	! !
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	62
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	63	!PPLambdaParserTest methodsFor:'testing-utilities'!
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	testParseOnError
189 90b8d7cb0482 update Claus Gittinger <cg@exept.de> parents: 37 diff changeset	66	\| beenHere \|
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	67	result := self parserClass parse: '\x.y' onError: [ self fail ].
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	68	self assert: result equals: #('x' 'y').
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	69	beenHere := false.
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	70	result := self parserClass parse: '\x.' onError: [ beenHere := true ].
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	71	self assert: beenHere.
189 90b8d7cb0482 update Claus Gittinger <cg@exept.de> parents: 37 diff changeset	72	beenHere := false.
90b8d7cb0482 update Claus Gittinger <cg@exept.de> parents: 37 diff changeset	73	result := self parserClass
90b8d7cb0482 update Claus Gittinger <cg@exept.de> parents: 37 diff changeset	74	parse: '\x.'
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	75	onError: [ :fail \|
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	76	beenHere := true.
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	77	fail ].
189 90b8d7cb0482 update Claus Gittinger <cg@exept.de> parents: 37 diff changeset	78	self assert: beenHere.
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	79	self assert: (result message includesSubstring: 'separator').
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	80	self assert: (result message includesSubstring: 'expected').
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	81	self assert: result position equals: 3.
189 90b8d7cb0482 update Claus Gittinger <cg@exept.de> parents: 37 diff changeset	82	beenHere := false.
90b8d7cb0482 update Claus Gittinger <cg@exept.de> parents: 37 diff changeset	83	result := self parserClass
90b8d7cb0482 update Claus Gittinger <cg@exept.de> parents: 37 diff changeset	84	parse: '\x.'
90b8d7cb0482 update Claus Gittinger <cg@exept.de> parents: 37 diff changeset	85	onError: [ :msg :pos \|
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	86	self assert: (msg includesSubstring: 'separator').
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	87	self assert: (msg includesSubstring: 'expected').
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	88	self assert: pos equals: 3.
189 90b8d7cb0482 update Claus Gittinger <cg@exept.de> parents: 37 diff changeset	89	beenHere := true ].
90b8d7cb0482 update Claus Gittinger <cg@exept.de> parents: 37 diff changeset	90	self assert: result.
90b8d7cb0482 update Claus Gittinger <cg@exept.de> parents: 37 diff changeset	91	self assert: beenHere
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	92	!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	93
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	94	testParseStartingAtOnError
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	95	\| beenHere \|
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	96	result := self parserClass parse: 'x' startingAt: #variable onError: [ self fail ].
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	97	self assert: result equals: 'x'.
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	98	beenHere := false.
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	99	result := self parserClass parse: '\' startingAt: #variable onError: [ beenHere := true ].
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	100	self assert: beenHere.
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	101	beenHere := false.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	102	result := self parserClass
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	103	parse: '\'
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	104	startingAt: #variable
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	105	onError: [ :fail \|
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	106	beenHere := true.
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	107	fail ].
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	108	self assert: beenHere.
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	109	self assert: result message equals: 'separator expected'.
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	110	self assert: result position equals: 0.
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	111	beenHere := false.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	112	result := self parserClass
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	113	parse: '\'
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	114	startingAt: #variable
37 d602818dd055 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	115	onError: [ :msg :pos \|
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	116	self assert: msg equals: 'separator expected'.
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	117	self assert: pos equals: 0.
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	118	beenHere := true ].
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	119	self assert: beenHere
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	120	!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	121
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	122	testProductionAt
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	123	self assert: (parser productionAt: #foo) isNil.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	124	self assert: (parser productionAt: #foo ifAbsent: [ true ]).
37 d602818dd055 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	125
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	126	self assert: (parser productionAt: #start) notNil.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	127	self assert: (parser productionAt: #start ifAbsent: [ true ]) notNil.
37 d602818dd055 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	128
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	129	self assert: (parser productionAt: #variable) notNil.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	130	self assert: (parser productionAt: #variable ifAbsent: [ true ]) notNil
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
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	133	!PPLambdaParserTest class methodsFor:'documentation'!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	134
37 d602818dd055 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	135	version
189 90b8d7cb0482 update Claus Gittinger <cg@exept.de> parents: 37 diff changeset	136	^ '$Header: /cvs/stx/stx/goodies/petitparser/PPLambdaParserTest.st,v 1.4 2014-03-04 14:34:18 cg Exp $'
37 d602818dd055 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	137	!
d602818dd055 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	138
d602818dd055 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	139	version_CVS
189 90b8d7cb0482 update Claus Gittinger <cg@exept.de> parents: 37 diff changeset	140	^ '$Header: /cvs/stx/stx/goodies/petitparser/PPLambdaParserTest.st,v 1.4 2014-03-04 14:34:18 cg Exp $'
37 d602818dd055 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	141	!
d602818dd055 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	142
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	143	version_SVN
189 90b8d7cb0482 update Claus Gittinger <cg@exept.de> parents: 37 diff changeset	144	^ '$Id: PPLambdaParserTest.st,v 1.4 2014-03-04 14:34:18 cg Exp $'
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	145	! !
189 90b8d7cb0482 update Claus Gittinger <cg@exept.de> parents: 37 diff changeset	146

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