[commit: testsuite] master: add a test for #7087 (6ebe148)

[Simon Marlow]

Repository : ssh://darcs.haskell.org//srv/darcs/testsuite

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/6ebe148bcc421a24fd01e4d64c168b0d5ef47344

>---------------------------------------------------------------

commit 6ebe148bcc421a24fd01e4d64c168b0d5ef47344
Author: Simon Marlow <marlowsd at gmail.com>
Date:   Tue Jul 31 09:05:57 2012 +0100

    add a test for #7087

>---------------------------------------------------------------

 tests/rts/7087.hs     |    7 +++++++
 tests/rts/7087.stderr |    1 +
 tests/rts/all.T       |    2 ++
 3 files changed, 10 insertions(+), 0 deletions(-)

diff --git a/tests/rts/7087.hs b/tests/rts/7087.hs
new file mode 100644
index 0000000..4e206d1
--- /dev/null
+++ b/tests/rts/7087.hs
@@ -0,0 +1,7 @@
+import Control.Concurrent
+
+main = do
+  t <- myThreadId
+  forkIO (threadDelay 100000 >> killThread t)
+  threadDelay 9223372036840001
+    -- caused an overflow in 7.4.2, non-threaded RTS
diff --git a/tests/rts/7087.stderr b/tests/rts/7087.stderr
new file mode 100644
index 0000000..d3a2504
--- /dev/null
+++ b/tests/rts/7087.stderr
@@ -0,0 +1 @@
+7087: thread killed
diff --git a/tests/rts/all.T b/tests/rts/all.T
index b4db8d3..5f4874b 100644
--- a/tests/rts/all.T
+++ b/tests/rts/all.T
@@ -147,3 +147,5 @@ test('T7037',
      [ extra_clean(['T7037_main.o','T7037_main']) ],
      run_command,
      ['$MAKE -s --no-print-directory T7037'])
+
+test('7087', exit_code(1), compile_and_run, [''])