Update examples

testsuite/load/load_0/Makefile

@@ -0,0 +1,6 @@
+TEST= load/load_0
+
+EXTRA_OBJS=Test.o
+
+TOP=../../..
+include ../../build.mk

testsuite/load/load_0/Test.hs

@@ -0,0 +1,6 @@
+
+module Test where
+
+import API
+
+resource = test { field = "success" }

testsuite/load/load_0/api/API.hs

@@ -0,0 +1,8 @@
+module API where
+
+data Test = Test { 
+                field :: String 
+        }
+
+test :: Test
+test = Test { field = "default value" }

testsuite/load/load_0/prog/Main.hs

@@ -0,0 +1,11 @@
+
+import System.Plugins
+import API
+
+main = do
+        m_v <- load_ "../Test.o" ["../api"] "resource"
+        v <- case m_v of
+                LoadFailure _   -> error "load failed"
+                LoadSuccess _ v -> return v
+        let s = field v
+        print s

testsuite/load/load_0/prog/expected

@@ -0,0 +1 @@
+"success"