diff -r d4014e0a47a0 -r f729f6cd3c76 compiler/tests/PPTokenizedLL1ExpressionGrammarTest.st --- a/compiler/tests/PPTokenizedLL1ExpressionGrammarTest.st Wed May 20 16:47:52 2015 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,123 +0,0 @@ -"{ Package: 'stx:goodies/petitparser/compiler/tests' }" - -"{ NameSpace: Smalltalk }" - -PPCompositeParserTest subclass:#PPTokenizedLL1ExpressionGrammarTest - instanceVariableNames:'' - classVariableNames:'' - poolDictionaries:'' - category:'PetitCompiler-Tests-ExpressionGrammar' -! - -!PPTokenizedLL1ExpressionGrammarTest class methodsFor:'as yet unclassified'! - -resources - ^ (OrderedCollection with: PPTokenizedLL1ExpressionGrammarResource) - addAll: super resources; - yourself -! ! - -!PPTokenizedLL1ExpressionGrammarTest methodsFor:'as yet unclassified'! - -compilerArguments - ^ PPCArguments default - profile: true; - ll: true; - yourself -! - -context - ^ PPCContext new -! - -parserClass - ^ Smalltalk at: #PPTokenizedLL1ExpressionGrammar -! - -parserInstanceFor: aSymbol - ^ (Smalltalk at: #PPCompiledExpressionGrammar) new startSymbol: aSymbol -! - -testAdd - result := self parse: '1+2' rule: #add. - self assert: result isArray. - self assert: result first = 1. - self assert: result second inputValue = '+'. - self assert: result third = 2. -! - -testMul - result := self parse: '1 * 2' rule: #mul. - self assert: result isArray. - self assert: result first = 1. - self assert: result second inputValue = '*'. - self assert: result third = 2. -! - -testNumber - result := self parse: '1' rule: #number. - self assert: result = 1. -! - -testParens - result := self parse: '(1)' rule: #parens. - self assert: result size = 3. - self assert: result first inputValue = '('. - self assert: result second = 1. - self assert: result third inputValue = ')'. - -! - -testPrim - result := self parse: '1' rule: #prim. - self assert: result = 1. -! - -testPrim2 - result := self parse: '(1)' rule: #prim. - self assert: result size = 3. - self assert: result second = 1. -! - -testProd - result := self parse: '1' rule: #prod. - self assert: result = 1. -! - -testTerm - result := self parse: '1' rule: #term. - self assert: result = 1. - -! - -testTerm11 - result := self parse: '1 + 2' rule: #term. - self assert: result size = 3. - self assert: result first = 1. - self assert: result second inputValue = '+'. - self assert: result third = 2. - -! - -testTerm12 - result := self parse: '1 + 2 * 3' rule: #term. - self assert: result size = 3. - self assert: result second inputValue = '+'. - self assert: result first = 1. - self assert: result third isArray. - self assert: result third first = 2. - self assert: result third second inputValue = '*'. - self assert: result third third = 3. -! - -testTerm13 - result := self parse: '1 * 2 + 3' rule: #term. - self assert: result size = 3. - self assert: result first isArray. - self assert: result first first = 1. - self assert: result first second inputValue = '*'. - self assert: result first third = 2. - self assert: result second inputValue = '+'. - self assert: result third = 3. -! ! -