add missing test for *SL define-struct

2010-08-19 07:58:43 -06:00 · 2010-08-19 07:58:43 -06:00 · 50d5dc352e
commit 50d5dc352e
parent 3ea28b0c72
1 changed files with 1 additions and 0 deletions
--- a/collects/tests/racket/beg-adv.rktl
+++ b/collects/tests/racket/beg-adv.rktl
@ -78,6 +78,7 @@
 (htdp-test #f 'a1? (a1? (make-a3 1 2 3)))
 (htdp-test #f 'a3? (a3? (make-a1 1)))
 (htdp-err/rt-test (a1-b 10) #rx"a1-b")
+(htdp-syntax-test #'(a0 1 2 3))

 (htdp-syntax-test #'cond)
 (htdp-syntax-test #'(cond))