From 48a16b542d0f4e5e23956012194c4fe61d76c6b4 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@vista64.(none)>
Date: Wed, 9 Apr 2008 20:14:14 -0500
Subject: [PATCH] Unit test fixes

---
 core/definitions/definitions-tests.factor | 20 --------------------
 extra/io/monitors/monitors-tests.factor   |  4 ++++
 2 files changed, 4 insertions(+), 20 deletions(-)

diff --git a/core/definitions/definitions-tests.factor b/core/definitions/definitions-tests.factor
index 3dc28139ea..b20d81ec7c 100755
--- a/core/definitions/definitions-tests.factor
+++ b/core/definitions/definitions-tests.factor
@@ -2,26 +2,6 @@ IN: definitions.tests
 USING: tools.test generic kernel definitions sequences
 compiler.units words ;
 
-TUPLE: combination-1 ;
-
-M: combination-1 perform-combination drop [ ] define ;
-
-M: combination-1 make-default-method 2drop [ "No method" throw ] ;
-
-SYMBOL: generic-1
-
-[
-    generic-1 T{ combination-1 } define-generic
-
-    object \ generic-1 create-method [ ] define
-] with-compilation-unit
-
-[ ] [
-    [
-        { combination-1 { object generic-1 } } forget-all
-    ] with-compilation-unit
-] unit-test
-
 GENERIC: some-generic ( a -- b )
 
 USE: arrays
diff --git a/extra/io/monitors/monitors-tests.factor b/extra/io/monitors/monitors-tests.factor
index 4bb5db9f0a..7170e824c8 100644
--- a/extra/io/monitors/monitors-tests.factor
+++ b/extra/io/monitors/monitors-tests.factor
@@ -31,4 +31,8 @@ os { winnt macosx linux } member? [
     [ ] [ "monitor-test/xyz/test.txt" temp-file touch-file ] unit-test
 
     [ ] [ "c" get 30 seconds await-timeout ] unit-test
+
+    [ ] [ "m" get dispose ] unit-test
+
+    [ "m" get dispose ] must-fail
 ] when