variants: update for recent slots change

[factor.git] / extra / variants / variants-tests.factor

diff --git a/extra/variants/variants-tests.factor b/extra/variants/variants-tests.factor
index f49cda6a993c3af5243fb220558980b18f12603b..39c858e1ed7e8a1a96e40e59920335f6f63e6fac 100644 (file)
--- a/extra/variants/variants-tests.factor
+++ b/extra/variants/variants-tests.factor
@@ -1,5 +1,5 @@
 ! (c)2009 Joe Groff bsd license
-USING: kernel math tools.test variants ;
+USING: kernel math tools.test variants slots ;
 IN: variants.tests
 
 VARIANT: list
@@ -20,6 +20,7 @@ VARIANT: list
 [ 4 ]
 [ 5 6 7 8 nil <cons> <cons> <cons> <cons> list-length ] unit-test
 
+[ nil t ] [ list initial-value ] unit-test
 
 VARIANT: list2 ;
 VARIANT-MEMBER: list2 nil2