From 03cefc141e392aeae5d548e00f1fadd04959b270 Mon Sep 17 00:00:00 2001 From: Slava Pestov 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