From 03cefc141e392aeae5d548e00f1fadd04959b270 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Thu, 15 May 2008 01:38:14 -0500
Subject: [PATCH] Fixing unit tests
---
core/destructors/destructors-tests.factor | 3 ++-
extra/lisp/lisp-tests.factor | 6 ++++--
2 files changed, 6 insertions(+), 3 deletions(-)
diff --git a/core/destructors/destructors-tests.factor b/core/destructors/destructors-tests.factor
index 5c66b51fb5..f442e27a04 100755
--- a/core/destructors/destructors-tests.factor
+++ b/core/destructors/destructors-tests.factor
@@ -1,4 +1,5 @@
-USING: destructors kernel tools.test continuations ;
+USING: destructors kernel tools.test continuations accessors
+namespaces sequences ;
IN: destructors.tests
TUPLE: dispose-error ;
diff --git a/extra/lisp/lisp-tests.factor b/extra/lisp/lisp-tests.factor
index f2c1f59678..df37de2475 100644
--- a/extra/lisp/lisp-tests.factor
+++ b/extra/lisp/lisp-tests.factor
@@ -1,6 +1,6 @@
! Copyright (C) 2008 James Cash
! See http://factorcode.org/license.txt for BSD license.
-USING: lisp lisp.parser tools.test sequences math kernel ;
+USING: lisp lisp.parser tools.test sequences math kernel parser ;
IN: lisp.test
@@ -13,5 +13,7 @@ init-env
] unit-test
{ 3 } [
- "((lambda (x y) (+ x y)) 1 2)" lisp-string>factor call
+ [
+ "((lambda (x y) (+ x y)) 1 2)" lisp-string>factor call
+ ] with-interactive-vocabs
] unit-test
\ No newline at end of file