shaker-0.4.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 :: Assertion
testRunCompileProject = 
  testShakerInput >>= runReaderT runCompile  >> 
  getDirectoryContents "dist/shakerTarget/Shaker" >>= \cont ->
  doesFileExist "dist/shakerTarget/Shaker/Action/CompileTest.o" >>= \ex ->
  doesFileExist "dist/shakerTarget/Shaker/Action/CompileTest.hi" >>= \ex2 ->
  assertBool ("File .o and hi should exists "++ show cont) (ex && ex2)

testRunFullCompile :: Assertion
testRunFullCompile = do
  testShakerInput >>= runReaderT runFullCompile 
  cont <- getDirectoryContents "dist/shakerTarget/Shaker" 
  ex <- doesFileExist "dist/shakerTarget/Shaker/Conductor.o" 
  assertBool ("Conductor.o should exist, got "++show cont) ex