From af384e91d02e653c92c0e7ab5ecdf40c3903028a Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Tue, 23 Apr 2013 07:05:51 -0700
Subject: [PATCH] mirrors: Add a unit test.

---
 basis/mirrors/mirrors-tests.factor | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/basis/mirrors/mirrors-tests.factor b/basis/mirrors/mirrors-tests.factor
index 36348c6bad..e7a566091e 100644
--- 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