mirrors: fix tests.

diff --git a/basis/mirrors/mirrors-tests.factor b/basis/mirrors/mirrors-tests.factor
index e7a566091e5a817274595b5bbc2af1ff7a3c9d08..ff6a7707150f750d5eb609283b6a1aec15f53ac7 100644 (file)
--- 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