hg/stx-goodies-petitparser: tests/PPPredicateTest.st@779556be95f8 (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
192 93558b60e547 update Claus Gittinger <cg@exept.de> parents: 94 diff changeset	3	PPAbstractParserTest subclass:#PPPredicateTest
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	!PPPredicateTest methodsFor:'private'!
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	charactersDo: aBlock
410 779556be95f8 Portability fixes in PPPredicateTest>>charactersDo: / parsedCharacterSet: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 405 diff changeset	14	0 to: 255 do: [ :index \| aBlock value: (Character codePoint: index) ]
779556be95f8 Portability fixes in PPPredicateTest>>charactersDo: / parsedCharacterSet: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 405 diff changeset	15
779556be95f8 Portability fixes in PPPredicateTest>>charactersDo: / parsedCharacterSet: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 405 diff changeset	16	"Modified: / 03-11-2014 / 09:11:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	17	! !
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	!PPPredicateTest methodsFor:'testing'!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	20
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	21	testOnMessage
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	22	\| block parser \|
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	23	block := [ :char \| char = $* ].
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	24	parser := PPPredicateObjectParser on: block message: 'starlet'.
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	25	self assert: parser block equals: block.
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	26	self assert: parser message equals: 'starlet'.
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	27	self assertCharacterSets: parser.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	28	self assert: parser parse: '' to: $.
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	29	self
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	30	assert: parser
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	31	parse: '**'
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	32	to: $*
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	33	end: 1.
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	34	self assert: parser fail: ''.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	35	self assert: parser fail: '1'.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	36	self assert: parser fail: 'a'
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	37	! !
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	!PPPredicateTest methodsFor:'testing-chars'!
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	testBlank
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	42	\| parser \|
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	43	parser := #blank asParser.
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	44	self assertCharacterSets: parser.
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	45	self assert: parser parse: (String with: Character space) to: Character space.
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	46	self assert: parser parse: (String with: Character tab) to: Character tab.
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	47	self assert: parser fail: ''.
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	48	self assert: parser fail: '1'.
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	49	self assert: parser fail: (String with: Character cr)
0 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
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	52	testChar
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	53	\| parser \|
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	54	parser := $* asParser.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	55	self assertCharacterSets: parser.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	56	self assert: parser parse: '' to: $.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	57	self assert: parser parse: '*' to: $ end: 1.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	58	self assert: parser fail: ''.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	59	self assert: parser fail: '1'.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	60	self assert: parser fail: 'a'
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	testCr
405 0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 403 diff changeset	64	\| parser \|
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 403 diff changeset	65	parser := #cr asParser.
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 403 diff changeset	66	self assertCharacterSets: parser.
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 403 diff changeset	67	self assert: parser parse: (String with: (Character codePoint: 13)) to: (Character codePoint: 13)
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	68	!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	69
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	70	testDigit
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	71	\| parser \|
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	72	parser := #digit asParser.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	73	self assertCharacterSets: parser.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	74	self assert: parser parse: '0' to: $0.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	75	self assert: parser parse: '9' to: $9.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	76	self assert: parser fail: ''.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	77	self assert: parser fail: 'a'
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
405 0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 403 diff changeset	80	testEndOfLine
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 403 diff changeset	81	\| parser \|
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 403 diff changeset	82	parser := (#letter asParser / #blank asParser) star, #endOfLine asParser.
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 403 diff changeset	83
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 403 diff changeset	84	self assert: parser parse: 'lorem ipsum'.
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 403 diff changeset	85
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 403 diff changeset	86	parser := #any asParser, #endOfLine asParser, #any asParser star.
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 403 diff changeset	87	self assert: parser parse: 'a', String cr, 'b'.
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 403 diff changeset	88	self assert: parser fail: String crlf.
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 403 diff changeset	89	self assert: parser fail: 'lorem ipsum'.
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 403 diff changeset	90
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 403 diff changeset	91	parser := #endOfLine asParser, #any asParser, #endOfLine asParser negate star, #endOfLine asParser.
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 403 diff changeset	92	self assert: parser parse: String cr, 'lorem ipsum'.
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 403 diff changeset	93	self assert: parser parse: String lf, 'lorem ipsum'.
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 403 diff changeset	94	self assert: parser parse: String crlf, 'lorem ipsum'.
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 403 diff changeset	95
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 403 diff changeset	96	self assert: parser parse: String crlf.
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 403 diff changeset	97	self assert: parser parse: String cr.
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 403 diff changeset	98	self assert: parser parse: String lf.
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 403 diff changeset	99
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 403 diff changeset	100	parser := #endOfLine asParser negate star, #endOfLine asParser, #any asParser star.
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 403 diff changeset	101	self assert: parser parse: String crlf, 'lorem ipsum'.
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 403 diff changeset	102	self assert: parser parse: String crlf.
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 403 diff changeset	103	!
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 403 diff changeset	104
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	105	testHex
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	106	\| parser \|
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	107	parser := #hex asParser.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	108	self assertCharacterSets: parser.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	109	self assert: parser parse: '0' to: $0.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	110	self assert: parser parse: '5' to: $5.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	111	self assert: parser parse: '9' to: $9.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	112	self assert: parser parse: 'A' to: $A.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	113	self assert: parser parse: 'D' to: $D.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	114	self assert: parser parse: 'F' to: $F.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	115	self assert: parser parse: 'a' to: $a.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	116	self assert: parser parse: 'e' to: $e.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	117	self assert: parser parse: 'f' to: $f.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	118	self assert: parser fail: ''.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	119	self assert: parser fail: 'g'
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	testLetter
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	123	\| parser \|
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	124	parser := #letter asParser.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	125	self assertCharacterSets: parser.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	126	self assert: parser parse: 'a' to: $a.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	127	self assert: parser parse: 'Z' to: $Z.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	128	self assert: parser fail: ''.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	129	self assert: parser fail: '0'
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	testLf
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	133	\| parser \|
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	134	parser := #lf asParser.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	135	self assertCharacterSets: parser.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	136	self assert: parser parse: (String with: Character lf) to: Character lf
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	137	!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	138
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	139	testLowercase
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	140	\| parser \|
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	141	parser := #lowercase asParser.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	142	self assertCharacterSets: parser.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	143	self assert: parser parse: 'a' to: $a.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	144	self assert: parser parse: 'z' to: $z.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	145	self assert: parser fail: ''.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	146	self assert: parser fail: 'A'.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	147	self assert: parser fail: '0'
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	148	!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	149
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	150	testNewline
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	151	\| parser \|
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	152	parser := #newline asParser.
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	153	self assertCharacterSets: parser.
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	154	self assert: parser parse: (String with: Character cr) to: Character cr.
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	155	self assert: parser parse: (String with: Character lf) to: Character lf.
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	156	self assert: parser fail: ' '
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	157	!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	158
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	159	testPunctuation
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	160	\| parser \|
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	161	parser := #punctuation asParser.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	162	self assertCharacterSets: parser.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	163	self assert: parser parse: '.' to: $..
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	164	self assert: parser parse: ',' to: $,.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	165	self assert: parser fail: ''.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	166	self assert: parser fail: 'a'.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	167	self assert: parser fail: '1'
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	168	!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	169
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	170	testSpace
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	171	\| parser \|
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	172	parser := #space asParser.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	173	self assertCharacterSets: parser.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	174	self assert: parser parse: (String with: Character tab) to: Character tab.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	175	self assert: parser parse: ' ' to: Character space.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	176	self assert: parser fail: ''.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	177	self assert: parser fail: 'a'
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	178	!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	179
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	180	testStartOfLine
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	181	\| parser \|
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	182	parser := #startOfLine asParser, #any asParser star.
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	183
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	184	self assert: parser parse: 'lorem ipsum'.
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	185
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	186	parser := #any asParser, #startOfLine asParser, #any asParser star.
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	187	self assert: parser fail: 'lorem ipsum'.
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	188
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	189	parser := #startOfLine asParser, #any asParser, #startOfLine asParser, #any asParser star.
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	190	self assert: parser parse: String cr, 'lorem ipsum'.
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	191	self assert: parser parse: String lf, 'lorem ipsum'.
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	192	self assert: parser fail: String crlf, 'lorem ipsum'.
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	193
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	194	self assert: parser fail: String crlf.
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	195	self assert: parser parse: String cr.
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	196	self assert: parser parse: String lf.
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	197
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	198	parser := #startOfLine asParser, #any asParser, #any asParser, #startOfLine asParser, #any asParser star.
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	199	self assert: parser parse: String crlf, 'lorem ipsum'.
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	200	self assert: parser parse: String crlf.
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	201	!
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	202
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	203	testTab
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	204	\| parser \|
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	205	parser := #tab asParser.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	206	self assertCharacterSets: parser.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	207	self assert: parser parse: (String with: Character tab) to: Character tab
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	208	!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	209
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	210	testUppercase
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	211	\| parser \|
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	212	parser := #uppercase asParser.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	213	self assertCharacterSets: parser.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	214	self assert: parser parse: 'A' to: $A.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	215	self assert: parser parse: 'Z' to: $Z.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	216	self assert: parser fail: ''.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	217	self assert: parser fail: 'a'.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	218	self assert: parser fail: '0'
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	219	!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	220
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	221	testWord
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	222	\| parser \|
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	223	parser := #word asParser.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	224	self assertCharacterSets: parser.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	225	self assert: parser parse: 'a' to: $a.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	226	self assert: parser parse: 'A' to: $A.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	227	self assert: parser parse: '0' to: $0.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	228	self assert: parser fail: ''.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	229	self assert: parser fail: '-'
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	230	! !
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	231
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	232	!PPPredicateTest methodsFor:'testing-objects'!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	233
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	234	testAny
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	235	\| parser \|
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	236	parser := #any asParser.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	237	self assertCharacterSets: parser.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	238	self assert: parser parse: ' ' to: $ .
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	239	self assert: parser parse: '1' to: $1.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	240	self assert: parser parse: 'a' to: $a.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	241	self assert: parser fail: ''
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	242	!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	243
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	244	testAnyExceptAnyOf
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	245	\| parser \|
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	246	parser := PPPredicateObjectParser anyExceptAnyOf: #($: $,).
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	247	self assertCharacterSets: parser.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	248	self assert: parser parse: 'a' to: $a.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	249	self assert: parser parse: 'z' to: $z.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	250	self assert: parser fail: ':'.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	251	self assert: parser fail: ','
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	252	!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	253
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	254	testAnyOf
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	255	\| parser \|
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	256	parser := PPPredicateObjectParser anyOf: #($a $z).
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	257	self assertCharacterSets: parser.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	258	self assert: parser parse: 'a' to: $a.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	259	self assert: parser parse: 'z' to: $z.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	260	self assert: parser fail: 'x'
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	261	!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	262
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	263	testBetweenAnd
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	264	\| parser \|
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	265	parser := PPPredicateObjectParser between: $b and: $d.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	266	self assertCharacterSets: parser.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	267	self assert: parser fail: 'a'.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	268	self assert: parser parse: 'b' to: $b.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	269	self assert: parser parse: 'c' to: $c.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	270	self assert: parser parse: 'd' to: $d.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	271	self assert: parser fail: 'e'
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	272	!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	273
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	274	testExpect
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	275	\| parser \|
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	276	parser := PPPredicateObjectParser expect: $a.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	277	self assertCharacterSets: parser.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	278	self assert: parser parse: 'a' to: $a.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	279	self assert: parser fail: 'b'.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	280	self assert: parser fail: ''
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	281	! !
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	282
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	283	!PPPredicateTest methodsFor:'testing-sequence'!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	284
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	285	testSequenceParser
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	286	\| parser \|
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	287	parser := PPPredicateSequenceParser
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	288	on: [ :value \| value first isUppercase ]
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	289	message: 'uppercase 3 letter words'
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	290	size: 3.
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	291	self assert: parser size equals: 3.
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	292	self assert: parser parse: 'Abc'.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	293	self assert: parser parse: 'ABc'.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	294	self assert: parser parse: 'ABC'.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	295	self assert: parser fail: 'abc'.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	296	self assert: parser fail: 'aBC'.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	297	self assert: parser fail: 'Ab'.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	298	parser := parser negate.
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	299	self assert: parser size equals: 3.
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	300	self assert: parser fail: 'Abc'.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	301	self assert: parser fail: 'ABc'.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	302	self assert: parser fail: 'ABC'.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	303	self assert: parser parse: 'abc'.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	304	self assert: parser parse: 'aBC'.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	305	self assert: parser fail: 'Ab'
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	306	! !
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	307
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	308	!PPPredicateTest methodsFor:'utilities'!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	309
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	310	assertCharacterSets: aParser
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	311	"Assert the character set of aParser does not overlap with the character set with the negated parser, and that they both cover the complete character space."
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	312
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	313	\| positives negatives \|
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	314	positives := self parsedCharacterSet: aParser.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	315	negatives := self parsedCharacterSet: aParser negate.
44 16f1a2fdc0d7 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	316	self charactersDo: [ :char \|
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	317	\| positive negative \|
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	318	positive := positives includes: char.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	319	negative := negatives includes: char.
44 16f1a2fdc0d7 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	320	self
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	321	assert: ((positive and: [ negative not ])
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	322	or: [ positive not and: [ negative ] ])
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	323	description: char printString , ' should be in exactly one set' ]
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	324	!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	325
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	326	parsedCharacterSet: aParser
410 779556be95f8 Portability fixes in PPPredicateTest>>charactersDo: / parsedCharacterSet: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 405 diff changeset	327	\| result \|
779556be95f8 Portability fixes in PPPredicateTest>>charactersDo: / parsedCharacterSet: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 405 diff changeset	328	result := String new writeStream.
779556be95f8 Portability fixes in PPPredicateTest>>charactersDo: / parsedCharacterSet: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 405 diff changeset	329	self charactersDo: [ :char \|
779556be95f8 Portability fixes in PPPredicateTest>>charactersDo: / parsedCharacterSet: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 405 diff changeset	330	(aParser matches: char asString)
779556be95f8 Portability fixes in PPPredicateTest>>charactersDo: / parsedCharacterSet: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 405 diff changeset	331	ifTrue: [ result nextPut: char ] ].
779556be95f8 Portability fixes in PPPredicateTest>>charactersDo: / parsedCharacterSet: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 405 diff changeset	332	^ result contents
779556be95f8 Portability fixes in PPPredicateTest>>charactersDo: / parsedCharacterSet: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 405 diff changeset	333
779556be95f8 Portability fixes in PPPredicateTest>>charactersDo: / parsedCharacterSet: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 405 diff changeset	334	"Modified: / 03-11-2014 / 09:16:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	335	! !
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	336
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	337	!PPPredicateTest class methodsFor:'documentation'!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	338
44 16f1a2fdc0d7 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	339	version
257 734a6ef2049e class: PPPredicateTest Claus Gittinger <cg@exept.de> parents: 192 diff changeset	340	^ '$Header: /cvs/stx/stx/goodies/petitparser/PPPredicateTest.st,v 1.6 2014-03-04 20:09:46 cg Exp $'
44 16f1a2fdc0d7 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	341	!
16f1a2fdc0d7 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	342
16f1a2fdc0d7 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	343	version_CVS
257 734a6ef2049e class: PPPredicateTest Claus Gittinger <cg@exept.de> parents: 192 diff changeset	344	^ '$Header: /cvs/stx/stx/goodies/petitparser/PPPredicateTest.st,v 1.6 2014-03-04 20:09:46 cg Exp $'
44 16f1a2fdc0d7 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	345	!
16f1a2fdc0d7 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	346
403 7063d523b064 Removed autoload attribut for tests. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 380 diff changeset	347	version_HG
7063d523b064 Removed autoload attribut for tests. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 380 diff changeset	348
7063d523b064 Removed autoload attribut for tests. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 380 diff changeset	349	^ '$Changeset: <not expanded> $'
7063d523b064 Removed autoload attribut for tests. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 380 diff changeset	350	!
7063d523b064 Removed autoload attribut for tests. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 380 diff changeset	351
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	352	version_SVN
257 734a6ef2049e class: PPPredicateTest Claus Gittinger <cg@exept.de> parents: 192 diff changeset	353	^ '$Id: PPPredicateTest.st,v 1.6 2014-03-04 20:09:46 cg Exp $'
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	354	! !
192 93558b60e547 update Claus Gittinger <cg@exept.de> parents: 94 diff changeset	355

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Mon, 03 Nov 2014 12:46:42 +0000
changeset 410	779556be95f8
parent 405	0470a5e6e712
child 421	7e08b31e0dae
permissions	-rw-r--r--