hg/stx-goodies-petitparser: compiler/tests/PPCGuardTest.st@116d2b2af905 (annotated)

391 553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1	"{ Package: 'stx:goodies/petitparser/compiler/tests' }"
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2
422 116d2b2af905 To fold Jan Vrany <jan.vrany@fit.cvut.cz> parents: 421 diff changeset	3	"{ NameSpace: Smalltalk }"
116d2b2af905 To fold Jan Vrany <jan.vrany@fit.cvut.cz> parents: 421 diff changeset	4
391 553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	5	TestCase subclass:#PPCGuardTest
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	6	instanceVariableNames:'guard compiler'
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	7	classVariableNames:''
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	8	poolDictionaries:''
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	9	category:'PetitCompiler-Tests-Core'
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	10	!
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	11
401 538267cab6ec Portability fix: do not use Behaviour>>methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 392 diff changeset	12
391 553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	13	!PPCGuardTest methodsFor:'as yet unclassified'!
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	14
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	15	setUp
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	16	super setUp.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	17	compiler := PPCMockCompiler new.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	18	!
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	19
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	20	testCompiling
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	21	guard := PPCGuard new initializeFor: ($a asParser / $b asParser) asCompilerTree.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	22	guard id: #foo.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	23	guard compileGuard: compiler.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	24
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	25	self assert: compiler lines size = 1.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	26	self assert: compiler lines first = '(foo at: context peek asInteger)'.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	27	!
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	28
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	29	testCompiling2
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	30	guard := PPCGuard new initializeFor: (#letter asParser / #digit asParser) asCompilerTree.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	31	guard id: #foo.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	32	guard compileGuard: compiler.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	33
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	34	self assert: compiler lines size = 1.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	35	self assert: compiler lines first = '(context peek isAlphaNumeric)'.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	36	!
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	37
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	38	testCompiling3
421 7e08b31e0dae Merged JK's version from Monticello Jan Vrany <jan.vrany@fit.cvut.cz> parents: 415 diff changeset	39	guard := PPCGuard new initializeFor: ($a asParser, (#letter asParser / #digit asParser)) asCompilerTree.
7e08b31e0dae Merged JK's version from Monticello Jan Vrany <jan.vrany@fit.cvut.cz> parents: 415 diff changeset	40	guard id: #foo.
7e08b31e0dae Merged JK's version from Monticello Jan Vrany <jan.vrany@fit.cvut.cz> parents: 415 diff changeset	41	guard compileGuard: compiler.
7e08b31e0dae Merged JK's version from Monticello Jan Vrany <jan.vrany@fit.cvut.cz> parents: 415 diff changeset	42
7e08b31e0dae Merged JK's version from Monticello Jan Vrany <jan.vrany@fit.cvut.cz> parents: 415 diff changeset	43	self assert: compiler lines size = 1.
7e08b31e0dae Merged JK's version from Monticello Jan Vrany <jan.vrany@fit.cvut.cz> parents: 415 diff changeset	44	self assert: compiler lines first = ('(context peek = ', $a storeString ,')').
391 553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	45	!
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	46
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	47	testCompiling4
421 7e08b31e0dae Merged JK's version from Monticello Jan Vrany <jan.vrany@fit.cvut.cz> parents: 415 diff changeset	48	guard := PPCGuard new initializeFor: ('foo' asParser / 'foobar' asParser) asCompilerTree.
7e08b31e0dae Merged JK's version from Monticello Jan Vrany <jan.vrany@fit.cvut.cz> parents: 415 diff changeset	49	guard id: #foo.
7e08b31e0dae Merged JK's version from Monticello Jan Vrany <jan.vrany@fit.cvut.cz> parents: 415 diff changeset	50	guard compileGuard: compiler.
7e08b31e0dae Merged JK's version from Monticello Jan Vrany <jan.vrany@fit.cvut.cz> parents: 415 diff changeset	51
7e08b31e0dae Merged JK's version from Monticello Jan Vrany <jan.vrany@fit.cvut.cz> parents: 415 diff changeset	52	self assert: compiler lines size = 1.
7e08b31e0dae Merged JK's version from Monticello Jan Vrany <jan.vrany@fit.cvut.cz> parents: 415 diff changeset	53	self assert: compiler lines first = ('(context peek = ', $f storeString ,')').
7e08b31e0dae Merged JK's version from Monticello Jan Vrany <jan.vrany@fit.cvut.cz> parents: 415 diff changeset	54	!
415 f30eb7ea54cd Compatibility fixes: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 414 diff changeset	55
421 7e08b31e0dae Merged JK's version from Monticello Jan Vrany <jan.vrany@fit.cvut.cz> parents: 415 diff changeset	56	testIdentifierToken
7e08b31e0dae Merged JK's version from Monticello Jan Vrany <jan.vrany@fit.cvut.cz> parents: 415 diff changeset	57	\| id parser \|
7e08b31e0dae Merged JK's version from Monticello Jan Vrany <jan.vrany@fit.cvut.cz> parents: 415 diff changeset	58	id := (#letter asParser plus)
7e08b31e0dae Merged JK's version from Monticello Jan Vrany <jan.vrany@fit.cvut.cz> parents: 415 diff changeset	59	name: 'identifier';
7e08b31e0dae Merged JK's version from Monticello Jan Vrany <jan.vrany@fit.cvut.cz> parents: 415 diff changeset	60	yourself.
7e08b31e0dae Merged JK's version from Monticello Jan Vrany <jan.vrany@fit.cvut.cz> parents: 415 diff changeset	61
7e08b31e0dae Merged JK's version from Monticello Jan Vrany <jan.vrany@fit.cvut.cz> parents: 415 diff changeset	62	parser := id smalltalkToken.
7e08b31e0dae Merged JK's version from Monticello Jan Vrany <jan.vrany@fit.cvut.cz> parents: 415 diff changeset	63	parser name: 'kw'.
7e08b31e0dae Merged JK's version from Monticello Jan Vrany <jan.vrany@fit.cvut.cz> parents: 415 diff changeset	64
7e08b31e0dae Merged JK's version from Monticello Jan Vrany <jan.vrany@fit.cvut.cz> parents: 415 diff changeset	65	guard := PPCGuard new initializeFor: parser asCompilerTree optimizeTree.
7e08b31e0dae Merged JK's version from Monticello Jan Vrany <jan.vrany@fit.cvut.cz> parents: 415 diff changeset	66	self assert: (guard classification at: $a asInteger).
7e08b31e0dae Merged JK's version from Monticello Jan Vrany <jan.vrany@fit.cvut.cz> parents: 415 diff changeset	67	self assert: (guard classification at: $z asInteger).
391 553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	68	!
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	69
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	70	testMakesSense
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	71	guard := PPCGuard new initializeFor: #letter asParser.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	72	self assert: guard makesSense.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	73
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	74	guard := PPCGuard new initializeFor: nil asParser asCompilerTree.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	75	self assert: guard makesSense not.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	76
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	77	guard := PPCGuard new initializeFor: (#letter asParser / nil asParser) asCompilerTree.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	78	self assert: guard makesSense not.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	79
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	80	guard := PPCGuard new initializeFor: (#letter asParser / #digit asParser) asCompilerTree.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	81	self assert: guard makesSense.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	82
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	83	guard := PPCGuard new initializeFor: (#letter asParser / #digit asParser star) asCompilerTree.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	84	self assert: guard makesSense not.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	85	!
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	86
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	87	testMessage
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	88	guard := PPCGuard new initializeFor: #letter asParser asCompilerTree.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	89	self assert: (guard message = #isLetter).
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	90	self assert: (guard message = #isAlphaNumeric) not.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	91
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	92	guard := PPCGuard new initializeFor: #word asParser asCompilerTree.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	93	self assert: (guard message = #isAlphaNumeric).
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	94
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	95	guard := PPCGuard new initializeFor: #digit asParser asCompilerTree.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	96	self assert: (guard message = #isDigit).
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	97
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	98	guard := PPCGuard new initializeFor: 'a' asParser asCompilerTree.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	99	self assert: (guard message = #isDigit) not.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	100	self assert: (guard message = #isLetter) not.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	101	self assert: (guard message = #isAlphaNumeric) not.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	102
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	103	!
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	104
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	105	testMessage2
414 0eaf09920532 Merged JK's work on PetitCompiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: 401 diff changeset	106	guard := PPCGuard new initializeFor: (#letter asParser / #digit asParser) asCompilerTree.
391 553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	107	self assert: guard message = #isAlphaNumeric
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	108
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	109	!
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	110
414 0eaf09920532 Merged JK's work on PetitCompiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: 401 diff changeset	111	testNot
0eaf09920532 Merged JK's work on PetitCompiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: 401 diff changeset	112	guard := PPCGuard new initializeFor: ('foo' asParser not, 'fee' asParser) asCompilerTree.
0eaf09920532 Merged JK's work on PetitCompiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: 401 diff changeset	113	self assert: (guard classification at: $f asInteger).
0eaf09920532 Merged JK's work on PetitCompiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: 401 diff changeset	114	!
0eaf09920532 Merged JK's work on PetitCompiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: 401 diff changeset	115
0eaf09920532 Merged JK's work on PetitCompiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: 401 diff changeset	116	testNot2
0eaf09920532 Merged JK's work on PetitCompiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: 401 diff changeset	117	guard := PPCGuard new initializeFor: ('foo' asParser not, 'fee' asParser) asCompilerTree optimizeTree.
0eaf09920532 Merged JK's work on PetitCompiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: 401 diff changeset	118	self assert: (guard classification at: $f asInteger).
0eaf09920532 Merged JK's work on PetitCompiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: 401 diff changeset	119	!
0eaf09920532 Merged JK's work on PetitCompiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: 401 diff changeset	120
421 7e08b31e0dae Merged JK's version from Monticello Jan Vrany <jan.vrany@fit.cvut.cz> parents: 415 diff changeset	121	testNot3
7e08b31e0dae Merged JK's version from Monticello Jan Vrany <jan.vrany@fit.cvut.cz> parents: 415 diff changeset	122	guard := PPCGuard new initializeFor: (#letter asParser negate star, #letter asParser) asCompilerTree optimizeTree.
7e08b31e0dae Merged JK's version from Monticello Jan Vrany <jan.vrany@fit.cvut.cz> parents: 415 diff changeset	123	self assert: (guard classification allSatisfy: [ :e \| e]).
7e08b31e0dae Merged JK's version from Monticello Jan Vrany <jan.vrany@fit.cvut.cz> parents: 415 diff changeset	124	!
7e08b31e0dae Merged JK's version from Monticello Jan Vrany <jan.vrany@fit.cvut.cz> parents: 415 diff changeset	125
391 553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	126	testTestMessage
414 0eaf09920532 Merged JK's work on PetitCompiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: 401 diff changeset	127	guard := PPCGuard new initializeFor: #letter asParser asCompilerTree.
391 553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	128	self assert: (guard testMessage: #isLetter).
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	129	self assert: (guard testMessage: #isAlphaNumeric) not.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	130
414 0eaf09920532 Merged JK's work on PetitCompiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: 401 diff changeset	131	guard := PPCGuard new initializeFor: #word asParser asCompilerTree.
391 553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	132	self assert: (guard testMessage: #isAlphaNumeric).
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	133
414 0eaf09920532 Merged JK's work on PetitCompiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: 401 diff changeset	134	guard := PPCGuard new initializeFor: #digit asParser asCompilerTree.
391 553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	135	self assert: (guard testMessage: #isDigit).
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	136
414 0eaf09920532 Merged JK's work on PetitCompiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: 401 diff changeset	137	guard := PPCGuard new initializeFor: 'a' asParser asCompilerTree.
391 553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	138	self assert: (guard testMessage: #isDigit) not.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	139	self assert: (guard testMessage: #isLetter) not.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	140	self assert: (guard testMessage: #isAlphaNumeric) not.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	141
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	142	!
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	143
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	144	testTestSingleCharacter
414 0eaf09920532 Merged JK's work on PetitCompiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: 401 diff changeset	145	guard := PPCGuard new initializeFor: $a asParser asCompilerTree.
0eaf09920532 Merged JK's work on PetitCompiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: 401 diff changeset	146	self assert: guard testSingleCharacter.
0eaf09920532 Merged JK's work on PetitCompiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: 401 diff changeset	147
0eaf09920532 Merged JK's work on PetitCompiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: 401 diff changeset	148	guard := PPCGuard new initializeFor: 'foo' asParser asCompilerTree.
391 553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	149	self assert: guard testSingleCharacter.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	150
414 0eaf09920532 Merged JK's work on PetitCompiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: 401 diff changeset	151	guard := PPCGuard new initializeFor: ('foo' asParser / 'bar' asParser) asCompilerTree.
0eaf09920532 Merged JK's work on PetitCompiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: 401 diff changeset	152	self assert: guard testSingleCharacter not.
0eaf09920532 Merged JK's work on PetitCompiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: 401 diff changeset	153
0eaf09920532 Merged JK's work on PetitCompiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: 401 diff changeset	154	guard := PPCGuard new initializeFor: ($a asParser, (#letter asParser / #digit asParser)) asCompilerTree.
391 553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	155	self assert: guard testSingleCharacter.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	156
414 0eaf09920532 Merged JK's work on PetitCompiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: 401 diff changeset	157	guard := PPCGuard new initializeFor: ('foo' asParser / 'fee' asParser) asCompilerTree.
391 553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	158	self assert: guard testSingleCharacter.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	159	! !
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	160
401 538267cab6ec Portability fix: do not use Behaviour>>methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 392 diff changeset	161	!PPCGuardTest class methodsFor:'documentation'!
538267cab6ec Portability fix: do not use Behaviour>>methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 392 diff changeset	162
538267cab6ec Portability fix: do not use Behaviour>>methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 392 diff changeset	163	version_HG
538267cab6ec Portability fix: do not use Behaviour>>methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 392 diff changeset	164
538267cab6ec Portability fix: do not use Behaviour>>methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 392 diff changeset	165	^ '$Changeset: <not expanded> $'
538267cab6ec Portability fix: do not use Behaviour>>methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 392 diff changeset	166	! !
538267cab6ec Portability fix: do not use Behaviour>>methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 392 diff changeset	167

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Wed, 15 Apr 2015 11:28:09 +0100
changeset 422	116d2b2af905
parent 421	7e08b31e0dae
child 452	9f4558b3be66
permissions	-rw-r--r--