Update examples

testsuite/pdynload/spj4/Makefile

@@ -0,0 +1,5 @@
+
+TEST=pdynload/spj4
+
+TOP=../../..
+include ../../build.mk

testsuite/pdynload/spj4/Plugin.hs

@@ -0,0 +1,16 @@
+module Plugin where
+
+-- user doesn't import the API
+-- and provides a polymorphic value
+
+-- import API
+-- resource :: Interface
+
+--
+-- should pass type check, and dump core
+--
+-- resource :: Num a => a
+
+import API
+
+resource = Interface { field = 7 :: Num a => a }

testsuite/pdynload/spj4/api/API.hs

@@ -0,0 +1,5 @@
+
+module API where
+
+newtype Interface = Interface { field :: Int }
+

testsuite/pdynload/spj4/prog/Main.hs

@@ -0,0 +1,17 @@
+
+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   -> error "there was a type error"
+
+  where f = do v <- pdynload "../Plugin.o" ["../api"] [] "API.Interface" "resource"
+               case v of
+                 LoadSuccess _ (a :: Interface) -> print $ field a -- will crash
+                 LoadFailure es  -> mapM_ putStrLn es

testsuite/pdynload/spj4/prog/expected

@@ -0,0 +1 @@
+7