#24, add tests

Examples/Test/Files.hs

@@ -8,10 +8,12 @@ import Data.List
 
 
 main = shaken test $ \args obj -> do
-    want $ map obj ["even.txt","odd.txt"]
+    let fun = "@" `elem` args
+    let rest = delete "@" args
+    want $ map obj $ if null rest then ["even.txt","odd.txt"] else rest
 
     let deps = map obj ["even.txt","odd.txt"]
-    let def | "fun" `elem` args = (?>>) (\x -> if x `elem` deps then Just deps else Nothing)
+    let def | fun = (?>>) (\x -> if x `elem` deps then Just deps else Nothing)
             | otherwise = (*>>) deps
 
     def $ \[evens,odds] -> do
@@ -20,11 +22,17 @@ main = shaken test $ \args obj -> do
         writeFileLines evens $ map show es
         writeFileLines odds  $ map show os
 
+    map obj ["dir1/out.txt","dir2/out.txt"] *>> \[a,b] -> do
+        writeFile' a "a"
+        writeFile' b "b"
+
 
 test build obj = do
-    forM_ [[],["fun"]] $ \args -> do
+    forM_ [[],["@"]] $ \args -> do
         let nums = unlines . map show
         writeFile (obj "numbers.txt") $ nums [1,2,4,5,2,3,1]
         build ("--sleep":args)
         assertContents (obj "even.txt") $ nums [2,4,2]
         assertContents (obj "odd.txt" ) $ nums [1,5,3,1]
+    build ["clean"]
+    build ["dir1/out.txt"]