shake-0.1.4: Examples/Test/Directory.hs

module Examples.Test.Directory(main) where

import Development.Shake
import Examples.Util
import System.Directory(createDirectory)


main = shaken test $ \args obj -> do
    want $ map obj ["files.lst","dirs.lst","exist.lst"]
    obj "files.lst" *> \out -> do
        x <- getDirectoryFiles (obj "") "*.txt"
        writeFileLines out x
    obj "dirs.lst" *> \out -> do
        x <- getDirectoryDirs (obj "")
        writeFileLines out x
    obj "exist.lst" *> \out -> do
        xs <- readFileLines $ obj "files.lst"
        ys <- mapM (doesFileExist . obj) $ xs ++ map reverse xs
        writeFileLines out $ map show ys


test build obj = do
    build ["clean"]
    build []
    assertContents (obj "files.lst") $ unlines []
    assertContents (obj "dirs.lst") $ unlines []
    assertContents (obj "exist.lst") $ unlines []

    writeFile (obj "A.txt") ""
    writeFile (obj "B.txt") ""
    createDirectory (obj "Foo.txt")
    sleepFileTime
    build []
    assertContents (obj "files.lst") $ unlines ["A.txt","B.txt"]
    assertContents (obj "dirs.lst") $ unlines ["Foo.txt"]
    assertContents (obj "exist.lst") $ unlines ["True","True","False","False"]