hg/stx-goodies-petitparser: compiler/tests/PPCGuardTest.st@f30eb7ea54cd (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
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	3	TestCase subclass:#PPCGuardTest
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	4	instanceVariableNames:'guard compiler'
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	5	classVariableNames:''
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	6	poolDictionaries:''
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	7	category:'PetitCompiler-Tests-Core'
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	8	!
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	9
401 538267cab6ec Portability fix: do not use Behaviour>>methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 392 diff changeset	10
391 553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	11	!PPCGuardTest methodsFor:'as yet unclassified'!
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	12
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	13	setUp
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	14	super setUp.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	15	compiler := PPCMockCompiler new.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	16	!
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	17
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	18	testCompiling
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	19	guard := PPCGuard new initializeFor: ($a asParser / $b asParser) asCompilerTree.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	20	guard id: #foo.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	21	guard compileGuard: compiler.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	22
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	23	self assert: compiler lines size = 1.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	24	self assert: compiler lines first = '(foo at: context peek asInteger)'.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	25	!
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	26
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	27	testCompiling2
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	28	guard := PPCGuard new initializeFor: (#letter asParser / #digit asParser) asCompilerTree.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	29	guard id: #foo.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	30	guard compileGuard: compiler.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	31
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	32	self assert: compiler lines size = 1.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	33	self assert: compiler lines first = '(context peek isAlphaNumeric)'.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	34	!
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	35
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	36	testCompiling3
415 f30eb7ea54cd Compatibility fixes: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 414 diff changeset	37	guard := PPCGuard new initializeFor: ($a asParser, (#letter asParser / #digit asParser)) asCompilerTree.
f30eb7ea54cd Compatibility fixes: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 414 diff changeset	38	guard id: #foo.
f30eb7ea54cd Compatibility fixes: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 414 diff changeset	39	guard compileGuard: compiler.
f30eb7ea54cd Compatibility fixes: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 414 diff changeset	40
f30eb7ea54cd Compatibility fixes: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 414 diff changeset	41	self assert: compiler lines size = 1.
f30eb7ea54cd Compatibility fixes: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 414 diff changeset	42	self assert: compiler lines first = ('(context peek = ', $a storeString ,')').
f30eb7ea54cd Compatibility fixes: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 414 diff changeset	43
f30eb7ea54cd Compatibility fixes: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 414 diff changeset	44	"Modified: / 06-11-2014 / 00:47:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
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
415 f30eb7ea54cd Compatibility fixes: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 414 diff changeset	48	guard := PPCGuard new initializeFor: ('foo' asParser / 'foobar' asParser) asCompilerTree.
f30eb7ea54cd Compatibility fixes: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 414 diff changeset	49	guard id: #foo.
f30eb7ea54cd Compatibility fixes: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 414 diff changeset	50	guard compileGuard: compiler.
f30eb7ea54cd Compatibility fixes: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 414 diff changeset	51
f30eb7ea54cd Compatibility fixes: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 414 diff changeset	52	self assert: compiler lines size = 1.
f30eb7ea54cd Compatibility fixes: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 414 diff changeset	53	self assert: compiler lines first = ('(context peek = ', $f storeString ,')').
f30eb7ea54cd Compatibility fixes: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 414 diff changeset	54
f30eb7ea54cd Compatibility fixes: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 414 diff changeset	55	"Modified: / 06-11-2014 / 00:47:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
391 553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	56	!
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	57
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	58	testMakesSense
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	59	guard := PPCGuard new initializeFor: #letter asParser.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	60	self assert: guard makesSense.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	61
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	62	guard := PPCGuard new initializeFor: nil asParser asCompilerTree.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	63	self assert: guard makesSense not.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	64
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	65	guard := PPCGuard new initializeFor: (#letter asParser / nil asParser) asCompilerTree.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	66	self assert: guard makesSense not.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	67
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	68	guard := PPCGuard new initializeFor: (#letter asParser / #digit asParser) asCompilerTree.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	69	self assert: guard makesSense.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	70
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	71	guard := PPCGuard new initializeFor: (#letter asParser / #digit asParser star) asCompilerTree.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	72	self assert: guard makesSense not.
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
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	75	testMessage
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	76	guard := PPCGuard new initializeFor: #letter asParser asCompilerTree.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	77	self assert: (guard message = #isLetter).
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	78	self assert: (guard message = #isAlphaNumeric) 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: #word asParser asCompilerTree.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	81	self assert: (guard message = #isAlphaNumeric).
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: #digit asParser asCompilerTree.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	84	self assert: (guard message = #isDigit).
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	guard := PPCGuard new initializeFor: 'a' asParser asCompilerTree.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	87	self assert: (guard message = #isDigit) not.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	88	self assert: (guard message = #isLetter) not.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	89	self assert: (guard message = #isAlphaNumeric) not.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	90
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
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	93	testMessage2
414 0eaf09920532 Merged JK's work on PetitCompiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: 401 diff changeset	94	guard := PPCGuard new initializeFor: (#letter asParser / #digit asParser) asCompilerTree.
391 553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	95	self assert: guard message = #isAlphaNumeric
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	96
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
414 0eaf09920532 Merged JK's work on PetitCompiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: 401 diff changeset	99	testNot
0eaf09920532 Merged JK's work on PetitCompiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: 401 diff changeset	100	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	101	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	102	!
0eaf09920532 Merged JK's work on PetitCompiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: 401 diff changeset	103
0eaf09920532 Merged JK's work on PetitCompiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: 401 diff changeset	104	testNot2
0eaf09920532 Merged JK's work on PetitCompiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: 401 diff changeset	105	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	106	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	107	!
0eaf09920532 Merged JK's work on PetitCompiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: 401 diff changeset	108
391 553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	109	testTestMessage
414 0eaf09920532 Merged JK's work on PetitCompiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: 401 diff changeset	110	guard := PPCGuard new initializeFor: #letter asParser asCompilerTree.
391 553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	111	self assert: (guard testMessage: #isLetter).
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	112	self assert: (guard testMessage: #isAlphaNumeric) not.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	113
414 0eaf09920532 Merged JK's work on PetitCompiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: 401 diff changeset	114	guard := PPCGuard new initializeFor: #word asParser asCompilerTree.
391 553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	115	self assert: (guard testMessage: #isAlphaNumeric).
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	116
414 0eaf09920532 Merged JK's work on PetitCompiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: 401 diff changeset	117	guard := PPCGuard new initializeFor: #digit asParser asCompilerTree.
391 553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	118	self assert: (guard testMessage: #isDigit).
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	119
414 0eaf09920532 Merged JK's work on PetitCompiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: 401 diff changeset	120	guard := PPCGuard new initializeFor: 'a' asParser asCompilerTree.
391 553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	121	self assert: (guard testMessage: #isDigit) not.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	122	self assert: (guard testMessage: #isLetter) not.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	123	self assert: (guard testMessage: #isAlphaNumeric) not.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	124
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	125	!
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	126
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	127	testTestSingleCharacter
414 0eaf09920532 Merged JK's work on PetitCompiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: 401 diff changeset	128	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	129	self assert: guard testSingleCharacter.
0eaf09920532 Merged JK's work on PetitCompiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: 401 diff changeset	130
0eaf09920532 Merged JK's work on PetitCompiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: 401 diff changeset	131	guard := PPCGuard new initializeFor: 'foo' asParser asCompilerTree.
391 553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	132	self assert: guard testSingleCharacter.
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: ('foo' asParser / 'bar' asParser) asCompilerTree.
0eaf09920532 Merged JK's work on PetitCompiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: 401 diff changeset	135	self assert: guard testSingleCharacter not.
0eaf09920532 Merged JK's work on PetitCompiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: 401 diff changeset	136
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, (#letter asParser / #digit asParser)) asCompilerTree.
391 553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	138	self assert: guard testSingleCharacter.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	139
414 0eaf09920532 Merged JK's work on PetitCompiler Jan Vrany <jan.vrany@fit.cvut.cz> parents: 401 diff changeset	140	guard := PPCGuard new initializeFor: ('foo' asParser / 'fee' asParser) asCompilerTree.
391 553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	141	self assert: guard testSingleCharacter.
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
401 538267cab6ec Portability fix: do not use Behaviour>>methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 392 diff changeset	144	!PPCGuardTest class methodsFor:'documentation'!
538267cab6ec Portability fix: do not use Behaviour>>methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 392 diff changeset	145
538267cab6ec Portability fix: do not use Behaviour>>methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 392 diff changeset	146	version_HG
538267cab6ec Portability fix: do not use Behaviour>>methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 392 diff changeset	147
538267cab6ec Portability fix: do not use Behaviour>>methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 392 diff changeset	148	^ '$Changeset: <not expanded> $'
538267cab6ec Portability fix: do not use Behaviour>>methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 392 diff changeset	149	! !
538267cab6ec Portability fix: do not use Behaviour>>methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 392 diff changeset	150

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Thu, 06 Nov 2014 01:41:10 +0000
changeset 415	f30eb7ea54cd
parent 414	0eaf09920532
child 421	7e08b31e0dae
permissions	-rw-r--r--