mirrors: Add a unit test.

2013-04-23 07:05:51 -07:00 · 2013-04-23 07:05:51 -07:00 · af384e91d0
parent 23d4eb5f7d
commit af384e91d0
1 changed files with 3 additions and 0 deletions
--- a/basis/mirrors/mirrors-tests.factor
+++ b/basis/mirrors/mirrors-tests.factor
@ -59,3 +59,6 @@ TUPLE: color
 [ ] [ "IN: mirrors.tests USE: math TUPLE: color { green integer } { red integer } { blue integer } ;" eval( -- ) ] unit-test

 [ 1 ] [ "red" "mirror" get at ] unit-test
+
+! Issue #857.
+{ 4 } [ "asdf" make-mirror assoc-size ] unit-test