Permalink
Browse files

Updated Test

  • Loading branch information...
1 parent eb0ce02 commit 86230f2be0111a1e1fcfe1878f26942f9fe02906 @bergmark bergmark committed Aug 11, 2012
Showing with 4 additions and 3 deletions.
  1. +4 −3 src/Test.hs
View
@@ -17,6 +17,7 @@ config = Fay {
, destDir = "test-dest"
, includeDirs = ["test-files"]
, verbose = False
+ , compileMethod = CompileAll
}
@@ -40,7 +41,7 @@ rmf fp = doesFileExist fp >>= (`when` removeFile fp)
main :: IO ()
main = do
mapM_ removeFile =<< (extFiles "js" . destDir) config
- buildFay config
+ compileAll config
len <- length <$> extFiles "js" (destDir config)
assert "0" (len > 0)
@@ -50,9 +51,9 @@ main = do
assertM "1" $ not <$> doesFileExist (destDir config </> "NewFile.js")
touch $ srcDir config </> "NewFile.hs"
- buildFay config
+ compileAll config
assertM "2" $ doesFileExist (destDir config </> "NewFile.js")
removeFile $ srcDir config </> "NewFile.hs"
- buildFay config
+ compileAll config
assertM "3" $ not <$> doesFileExist (destDir config </> "NewFile.js")

0 comments on commit 86230f2

Please sign in to comment.