tests for literal struct syntax

2009-08-12 16:04:27 -04:00 · 2009-08-12 16:04:27 -04:00 · 0109061474
parent 875284f8ab
commit 0109061474
1 changed files with 3 additions and 0 deletions
--- 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