Update examples

testsuite/pdynload/badint/prog/Main.hs

@@ -0,0 +1,18 @@
+
+import System.Plugins
+import API
+
+src     = "../Plugin.hs"
+wrap    = "../Wrapper.hs"
+apipath = "../api"
+
+main = do status <- make src ["-i"++apipath]
+          case status of
+                MakeSuccess _ _ -> f
+                MakeFailure e-> mapM_ putStrLn e
+                
+   where f = do v <- pdynload "../Plugin.o" ["../api"] [] "API.Interface" "resource"
+                case v of
+                  LoadSuccess _ a -> putStrLn $ (transform a) "foo"
+                  _               -> putStrLn "wrong types"
+

testsuite/pdynload/badint/prog/expected

@@ -0,0 +1 @@
+wrong types