From f936a1dc65c5e591e451acc579a98a586f5d3357 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sat, 16 Mar 2013 13:58:29 -0700
Subject: [PATCH] math.hashcodes: better tests.

---
 extra/math/hashcodes/hashcodes-tests.factor | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/extra/math/hashcodes/hashcodes-tests.factor b/extra/math/hashcodes/hashcodes-tests.factor
index dee079617e..ade922cbb8 100644
--- a/extra/math/hashcodes/hashcodes-tests.factor
+++ b/extra/math/hashcodes/hashcodes-tests.factor
@@ -1,16 +1,16 @@
 ! Copyright (C) 2013 John Benediktsson
 ! See http://factorcode.org/license.txt for BSD license
 
-USING: kernel sequences tools.test ;
+USING: arrays kernel math sequences tools.test ;
 
 IN: math.hashcodes
 
 { t } [
-    { 12 12.0 C{ 12 0 } }
+    12 dup >bignum 12.0 12 0 complex boa 4array
     [ number-hashcode 12 = ] all?
 ] unit-test
 
 { t } [
-    { 1.5 3/2 C{ 1.5 0 } C{ 3/2 0 } }
+    1.5 3/2 1.5 0 complex boa 3/2 0 complex boa 4array
     [ number-hashcode 3458764513820540928 = ] all?
 ] unit-test