From 51992905b22155bd29521eca556aa826b72bd3c9 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Mon, 17 Dec 2007 16:29:26 -0500
Subject: [PATCH] Inference tests tweak

---
 core/inference/inference-tests.factor   | 3 +--
 extra/io/launcher/launcher-tests.factor | 4 ++++
 2 files changed, 5 insertions(+), 2 deletions(-)
 create mode 100755 extra/io/launcher/launcher-tests.factor

diff --git a/core/inference/inference-tests.factor b/core/inference/inference-tests.factor
index 3462dee83a..7dae2e44d8 100755
--- a/core/inference/inference-tests.factor
+++ b/core/inference/inference-tests.factor
@@ -5,7 +5,7 @@ sequences strings vectors words quotations effects tools.test
 continuations generic.standard sorting assocs definitions
 prettyprint io inspector bootstrap.image tuples
 classes.union classes.predicate debugger bootstrap.image
-bootstrap.image.private io.launcher threads.private
+bootstrap.image.private threads.private
 io.streams.string combinators.private tools.test.inference ;
 IN: temporary
 
@@ -454,7 +454,6 @@ DEFER: bar
 ! Test odds and ends
 { 1 1 } [ ' ] unit-test-effect
 { 2 0 } [ write-image ] unit-test-effect
-{ 1 1 } [ <process-stream> ] unit-test-effect
 { 0 0 } [ idle-thread ] unit-test-effect
 
 ! Incorrect stack declarations on inline recursive words should
diff --git a/extra/io/launcher/launcher-tests.factor b/extra/io/launcher/launcher-tests.factor
new file mode 100755
index 0000000000..06b80c0ba7
--- /dev/null
+++ b/extra/io/launcher/launcher-tests.factor
@@ -0,0 +1,4 @@
+IN: temporary
+USING: tools.test tools.test.inference io.launcher ;
+
+{ 1 1 } [ <process-stream> ] unit-test-effect