From 8d697fcc34359bc886206ec2eec9b44b0aebc747 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bj=C3=B6rn=20Lindqvist?= <bjourne@gmail.com>
Date: Thu, 21 May 2015 01:35:43 +0200
Subject: [PATCH] threads.test: a test that is mostly able to reproduce #1319

---
 basis/threads/threads-tests.factor | 28 +++++++++++++++++++++++++++-
 1 file changed, 27 insertions(+), 1 deletion(-)

diff --git a/basis/threads/threads-tests.factor b/basis/threads/threads-tests.factor
index e5812c3fc1..b7adb8f851 100644
--- a/basis/threads/threads-tests.factor
+++ b/basis/threads/threads-tests.factor
@@ -1,8 +1,34 @@
-USING: namespaces io tools.test threads threads.private kernel
+USING: io memory namespaces tools.test threads threads.private kernel
 concurrency.combinators concurrency.promises locals math
 words calendar sequences fry ;
 IN: threads.tests
 
+! Bug #1319
+! The start-context-and-delete primitive calls reset_context which
+! causes reads to uninitialized locations in the data segment if it
+! gc:s
+
+TUPLE: tup1 a ;
+
+! This word attempts to fill the nursery so that there is less than 48
+! bytes of free space in it. The constant used to fill is volatile but
+! should work on 64 bit.
+: fill-nursery ( -- obj )
+    minor-gc 48074 [ tup1 new ] replicate ;
+
+: do-reset-context ( -- val )
+    ! "main running" print flush
+    [ "a" print ] "foo1" spawn drop
+    [ "b" print ] "foo2" spawn drop
+    [ "c" print ] "foo3"
+    [ fill-nursery ] 2dip
+    spawn drop
+    0 seconds sleep ;
+
+{ 48074 } [
+    do-reset-context length
+] unit-test
+
 3 "x" set
 [ 2 "x" set ] "Test" spawn drop
 [ 2 ] [ yield "x" get ] unit-test