From: simonmar <unknown>
Date: Wed, 28 Mar 2001 16:33:55 +0000 (+0000)
Subject: [project @ 2001-03-28 16:33:55 by simonmar]
X-Git-Tag: Approximately_9120_patches~2271
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=738f3423acb7ea6b9bde54b1b3e706bc16f3aed8;p=ghc-hetmet.git

[project @ 2001-03-28 16:33:55 by simonmar]
remove this outdated, nonworking test
---

diff --git a/ghc/tests/lib/should_run/stableptr002.hs b/ghc/tests/lib/should_run/stableptr002.hs
deleted file mode 100644
index daf9678..0000000
--- a/ghc/tests/lib/should_run/stableptr002.hs
+++ /dev/null
@@ -1,25 +0,0 @@
-module Main where
-
-import Stable
-import PrelIOBase
-
--- Testing callbacks: the initial haskell thread calls out to C with
--- the address of a Haskell callback.  The C function runs the callback
--- (in a new thread) and returns.
-
--- The stable pointer operation 'performIO' does the job of calling
--- the callback for us.
-
--- for an extra stressful test, the callback also does an explicit GC
--- to make sure that the original thread saved away its state
--- properly.
-
-main = do
-  io <- makeStablePtr hello
-  _ccall_GC_ performIO io
-  putStr "finished"
-
-hello :: IO ()
-hello  = do
-  _ccall_GC_ performGC
-  putStr "hello world!\n"
diff --git a/ghc/tests/lib/should_run/stableptr002.stdout b/ghc/tests/lib/should_run/stableptr002.stdout
deleted file mode 100644
index 4545b6b..0000000
--- a/ghc/tests/lib/should_run/stableptr002.stdout
+++ /dev/null
@@ -1,2 +0,0 @@
-hello world!
-finished
\ No newline at end of file