-- Tests
introTest :: Test
introTest = TestCase (do parsedFile <- parseFile "tests/intro.js"
                         assertEqual "intro test file"
                                      introAST $ show parsedFile)
introTest :: Test
introTest = TestCase (do parsedFile <- parseFile "tests/intro.js"
                         assertEqual "intro test file"
                                      introAST $ show parsedFile)
introTest = TestCase (do parsedFile <- parseFile "tests/intro.js"
                         assertEqual "intro test file"
                                      introAST $ show parsedFile)