From 50d5dc352ef0135aee15c59aa383d3991d2eb8d3 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 19 Aug 2010 07:58:43 -0600
Subject: [PATCH] add missing test for *SL define-struct

---
 collects/tests/racket/beg-adv.rktl | 1 +
 1 file changed, 1 insertion(+)

diff --git a/collects/tests/racket/beg-adv.rktl b/collects/tests/racket/beg-adv.rktl
index 21c01720d9..f4a750882a 100644
--- 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))