From 0109061474ff1aa0f53dc6254003f5510249ec4d Mon Sep 17 00:00:00 2001 From: Joe Groff Date: Wed, 12 Aug 2009 16:04:27 -0400 Subject: [PATCH] tests for literal struct syntax --- extra/classes/struct/struct-tests.factor | 3 +++ 1 file changed, 3 insertions(+) diff --git a/extra/classes/struct/struct-tests.factor b/extra/classes/struct/struct-tests.factor index 2c8f68c651..958a7ea55c 100644 --- 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