Make sequence-view typed. Fixup tests.

[factor.git] / core / classes / tuple / tuple-tests.factor

diff --git a/core/classes/tuple/tuple-tests.factor b/core/classes/tuple/tuple-tests.factor
index d97f0e5e118f78074f6906e8b07b096b878bf9b6..797f90020dd4726eed9247a79950f08f9133544a 100644 (file)
--- a/core/classes/tuple/tuple-tests.factor
+++ b/core/classes/tuple/tuple-tests.factor
@@ -195,7 +195,8 @@ M: string silly "t" ;
 
 M: vector silly "z" ;
 
-{ "zz" } [ 123 <reversed> silly nip ] unit-test
+[ 123 <reversed> ] must-fail
+{ "zz" } [ { 123 } <reversed> silly nip ] unit-test
 
 ! Typo
 SYMBOL: not-a-tuple-class
@@ -624,9 +625,9 @@ must-fail-with
 ] unit-test
 
 
-{ } [
-    "IN: sequences TUPLE: reversed { seq read-only } ;" eval( -- )
-] unit-test
+! { } [
+!     "IN: sequences TUPLE: reversed { seq read-only } ;" eval( -- )
+! ] unit-test
 
 
 TUPLE: bogus-hashcode-1 x ;