Update examples

testsuite/makewith/should_fail_0/Makefile

@@ -0,0 +1,4 @@
+TEST=makewith/should_fail_0
+
+TOP=../../..
+include ../../build.mk

testsuite/makewith/should_fail_0/Plugin.in

@@ -0,0 +1,3 @@
+module Plugin where
+
+resource = 0xBAD :: Int

testsuite/makewith/should_fail_0/Plugin.stub

@@ -0,0 +1,6 @@
+module Plugin ( resource ) where
+
+import API
+
+resource :: Interface
+resource = plugin

testsuite/makewith/should_fail_0/api/API.hs

@@ -0,0 +1,10 @@
+
+module API where
+
+data Interface = Interface { 
+        function :: String
+   }
+
+plugin :: Interface
+plugin = Interface  { function = "goodbye" }
+

testsuite/makewith/should_fail_0/prog/Main.hs

@@ -0,0 +1,19 @@
+
+import System.Plugins
+import API
+
+conf    = "../Plugin.in"
+stub    = "../Plugin.stub"
+
+main = do 
+        status <- makeWith conf stub ["-i../api"]
+        case status of
+                MakeFailure e    -> putStrLn "make failed"
+                MakeSuccess _  o ->  do
+                        m_v   <- load o ["../api"] [] "resource"
+                        v     <- case m_v of
+                                    LoadSuccess _ v -> return v
+                                    _               -> error "load failed"
+                        putStrLn $ (function v)
+                        makeCleaner o
+

testsuite/makewith/should_fail_0/prog/expected

@@ -0,0 +1 @@
+make failed