tests for literal struct syntax

diff --git a/extra/classes/struct/struct-tests.factor b/extra/classes/struct/struct-tests.factor
index 2c8f68c65116260ad51b9f374a8cdbd49fb1e2b2..958a7ea55c8dc5ff9e93489db77c7df685194bb1 100644 (file)
--- a/extra/classes/struct/struct-tests.factor
+++ b/extra/classes/struct/struct-tests.factor
@@ -25,3 +25,6 @@ STRUCT: bar
         [ foo>> z>> ]
     } cleave
 ] unit-test
+
+[ 7654 ] [ S{ foo f 98 7654 f } y>> ] unit-test
+[ 7654 ] [ S{ foo { y 7654 } } y>> ] unit-test