diff options
author | Jed Barber <jjbarber@y7mail.com> | 2014-04-10 05:25:03 +1000 |
---|---|---|
committer | Jed Barber <jjbarber@y7mail.com> | 2014-04-10 05:25:03 +1000 |
commit | 281425310c5db21f87981eeb9601a71d1974d98d (patch) | |
tree | bef4643d906c93622c311fef2cf758fe94f1f651 /Fractran/Test.hs | |
parent | e8695600977769008f285f9958eb043cca1b9b29 (diff) |
Rearranging files
Diffstat (limited to 'Fractran/Test.hs')
-rw-r--r-- | Fractran/Test.hs | 53 |
1 files changed, 0 insertions, 53 deletions
diff --git a/Fractran/Test.hs b/Fractran/Test.hs deleted file mode 100644 index 2b507b1..0000000 --- a/Fractran/Test.hs +++ /dev/null @@ -1,53 +0,0 @@ -module Fractran.Test ( - parserTests, - interpreterTests, - tests - ) where - - -import Test.HUnit -import Text.Parsec.Error -import Fractran.Parser -import Fractran.Interpreter -import Fractran.Example - - -instance Eq Text.Parsec.Error.ParseError - - - - -parser0 = (Right (FractranProgram [] 2)) ~=? (parseFractran "2") - -parser1 = (Right (FractranProgram [] 2)) ~=? (parseFractran "2\n") - -parser2 = (Right (FractranProgram [] 2)) ~=? (parseFractran "\n2") - -parser3 = (Right (FractranProgram [(1,2)] 2)) ~=? (parseFractran "2 1/2") - -parser4 = (Right (FractranProgram [(2,3)] 3)) ~=? (parseFractran "3\n \n2/3\n") - - - -interpreter0 = [108,162,243] ~=? (fractran (FractranProgram addition 108)) - -interpreter1 = [2,15,825,725,1925,2275,425,390,330,290,770,910,170,156,132,116,308,364,68,4] ~=? (take 20 (fractran prime2)) - -interpreter2 = [5] ~=? (fractran (FractranProgram addition 5)) - - - -parserTests :: Test -parserTests = TestList [parser0, parser1,parser2, parser3, parser4] - - - -interpreterTests :: Test -interpreterTests = TestList [interpreter0, interpreter1, interpreter2] - - - -tests :: Test -tests = case (parserTests, interpreterTests) of - (TestList a, TestList b) -> TestList (a ++ b) - |