shaker-0.3: testsuite/tests/Shaker/Action/CompileTest.hs

module Shaker.Action.CompileTest
 where

import Shaker.Action.Compile
import Test.HUnit
import System.Directory
import Control.Monad.Reader
import Shaker.CommonTest 
  
testRunCompileProject :: Test
testRunCompileProject = TestCase $ 
  runReaderT runCompile  testShakerInput >> 
  getDirectoryContents "target/Shaker" >>= \cont ->
  doesFileExist "target/Shaker/Action/CompileTest.o" >>= \ex ->
  doesFileExist "target/Shaker/Action/CompileTest.hi" >>= \ex2 ->
  assertBool ("File .o and hi should exists "++ show cont) (ex && ex2)

testRunFullCompile :: Test 
testRunFullCompile = TestCase $ do
  runReaderT runFullCompile testShakerInput
  cont <- getDirectoryContents "target/Shaker" 
  ex <- doesFileExist "target/Shaker/Conductor.o" 
  assertBool ("Conductor.o should exist, got "++show cont) ex