Update examples

testsuite/makewith/multi_make/Bar.hs

@@ -0,0 +1,4 @@
+module Bar where
+
+resource :: Int
+resource = 2

testsuite/makewith/multi_make/Foo.hs

@@ -0,0 +1,4 @@
+module Foo where
+
+resource :: Integer
+resource = 1

testsuite/makewith/multi_make/Main.hs

@@ -0,0 +1,37 @@
+
+import System.Plugins
+
+import System.Directory
+
+a    = "Foo.hs" -- user code
+b    = "Bar.hs" -- more user code
+z    = "Stub.hs" -- and a stub
+
+main = do
+        status <- makeWith a z []
+        s <- case status of
+                MakeFailure   e -> mapM_ putStrLn e >> error "failed"
+                MakeSuccess n s -> print n >> return s
+
+        status <- makeWith b z []
+        s' <- case status of
+                MakeFailure   e -> mapM_ putStrLn e >> error "failed"
+                MakeSuccess n s -> print n >> return s
+
+        -- shouldn't need to remerge (a,z)
+        status <- makeWith a z []
+        t <- case status of
+                MakeFailure   e -> mapM_ putStrLn e >> error "failed"
+                MakeSuccess n s -> print n >> return s
+
+        -- shouldn't need to remerge (b,z)
+        status <- makeWith b z []
+        t' <- case status of
+                MakeFailure   e -> mapM_ putStrLn e >> error "failed"
+                MakeSuccess n s -> print n >> return s
+
+        print $ s /= s' -- test we got unique modules
+        print $ t /= t' -- test we got unique modules
+
+        mapM_ makeCleaner [s,s']
+

testsuite/makewith/multi_make/Makefile

@@ -0,0 +1,4 @@
+TEST=makewith/multi_make
+
+TOP=../../..
+include ../../eval.mk

testsuite/makewith/multi_make/Stub.hs

@@ -0,0 +1,4 @@
+module Stub where
+
+resource :: Int
+

testsuite/makewith/multi_make/expected

@@ -0,0 +1,6 @@
+ReComp
+ReComp
+NotReq
+NotReq
+True
+True