Resolves issue with parsing comments
This commit is contained in:
		
							
								
								
									
										15
									
								
								test/Spec.hs
									
									
									
									
									
								
							
							
						
						
									
										15
									
								
								test/Spec.hs
									
									
									
									
									
								
							| @ -25,7 +25,6 @@ tests :: TestTree | ||||
| tests = testGroup "Tricu Tests" | ||||
|   [ lexerTests | ||||
|   , parserTests | ||||
|   , integrationTests | ||||
|   , evaluationTests | ||||
|   , lambdaEvalTests | ||||
|   , libraryTests | ||||
| @ -159,18 +158,6 @@ parserTests = testGroup "Parser Tests" | ||||
| --      parseTricu input @?= expect | ||||
|   ] | ||||
|  | ||||
| integrationTests :: TestTree | ||||
| integrationTests = testGroup "Integration Tests" | ||||
|   [ testCase "Combine lexer and parser" $ do | ||||
|       let input = "x = t t t" | ||||
|           expect = SFunc "x" [] (SApp (SApp TLeaf TLeaf) TLeaf) | ||||
|       parseSingle input @?= expect | ||||
|   , testCase "Complex Tree Calculus expression" $ do | ||||
|       let input = "t (t t t) t" | ||||
|           expect = SApp (SApp TLeaf (SApp (SApp TLeaf TLeaf) TLeaf)) TLeaf | ||||
|       parseSingle input @?= expect | ||||
|   ] | ||||
|  | ||||
| evaluationTests :: TestTree | ||||
| evaluationTests = testGroup "Evaluation Tests" | ||||
|   [ testCase "Evaluate single Leaf" $ do | ||||
| @ -317,7 +304,7 @@ libraryTests = testGroup "Library Tests" | ||||
|       let input = "s (t) (t) (t)" | ||||
|           env = evalTricu library (parseTricu input) | ||||
|       result env @?= Fork Leaf (Stem Leaf) | ||||
|   , testCase "SKK == I" $ do -- Tests for fully expanded I form | ||||
|   , testCase "SKK == I (fully expanded)" $ do | ||||
|       let input = "s k k" | ||||
|           env = evalTricu library (parseTricu input) | ||||
|       result env @?= Fork (Stem (Stem Leaf)) (Stem Leaf) | ||||
|  | ||||
		Reference in New Issue
	
	Block a user
	 James Eversole
						James Eversole