From 739a721cc359e1834a56a71d0c6da28af6eb36a2 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Tue, 23 Apr 2013 07:56:58 -0700 Subject: [PATCH] mirrors: fix tests. --- basis/mirrors/mirrors-tests.factor | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/basis/mirrors/mirrors-tests.factor b/basis/mirrors/mirrors-tests.factor index e7a566091e..ff6a770715 100644 --- a/basis/mirrors/mirrors-tests.factor +++ b/basis/mirrors/mirrors-tests.factor @@ -60,5 +60,6 @@ TUPLE: color [ 1 ] [ "red" "mirror" get at ] unit-test -! Issue #857. -{ 4 } [ "asdf" make-mirror assoc-size ] unit-test +{ 3 } [ { 1 2 3 } make-mirror assoc-size ] unit-test +{ 2 } [ "asdf" make-mirror assoc-size ] unit-test +{ 8 } [ \ + make-mirror assoc-size ] unit-test