Make the linker_unload test less fragile

Summary:
Now it invokes the GHC API to load packages, rather than trying to do it
manually.  This should fix most of the issues we've had with this test,
and might make it work on Windows too.

1 files changed, 20 insertions, 0 deletions

diff --git a/testsuite/tests/rts/LinkerUnload.hs b/testsuite/tests/rts/LinkerUnload.hs
new file mode 100644
index 0000000000..7e9d1dd38a
--- /dev/null
+++ b/testsuite/tests/rts/LinkerUnload.hs
@@ -0,0 +1,20 @@
+module LinkerUnload (init) where
+
+import GHC
+import DynFlags
+import Linker
+import System.Environment
+import MonadUtils ( MonadIO(..) )
+
+foreign export ccall loadPackages :: IO ()
+
+loadPackages :: IO ()
+loadPackages = do
+  [libdir] <- getArgs
+  runGhc (Just libdir) $ do
+    dflags <- getSessionDynFlags
+    let dflags' = dflags { hscTarget = HscNothing
+                         , ghcLink  = LinkInMemory }
+    pkgs <- setSessionDynFlags dflags'
+    dflags <- getSessionDynFlags
+    liftIO $ Linker.linkPackages dflags pkgs