Update examples

testsuite/pdynload/should_fail0/Makefile

@@ -0,0 +1,4 @@
+TEST=   pdynload/should_fail0
+EXTRA_OBJS=Plugin.o
+TOP=../../..
+include ../../build.mk

testsuite/pdynload/should_fail0/Plugin.hs

@@ -0,0 +1,9 @@
+module Plugin where
+
+import API
+
+resource = 0xBAD :: Int
+
+-- resource = tiny { 
+--     field = "hello strange world"
+-- }

testsuite/pdynload/should_fail0/api/API.hs

@@ -0,0 +1,13 @@
+{-# OPTIONS -fglasgow-exts #-}
+-- ^ needed to derive Typeable
+
+module API where
+
+import Data.Dynamic
+
+data Interface = Interface { field :: String }
+   deriving (Show)
+
+rsrc :: Interface
+rsrc = Interface { field = "default value" }
+

testsuite/pdynload/should_fail0/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 "loaded .. yay!"
+                _              -> putStrLn "wrong types"
+

testsuite/pdynload/should_fail0/prog/expected

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