updated tests

pkgs/racket-pkgs/racket-test/tests/stxparse/select.rkt

@@ -139,3 +139,17 @@
                  [(_ x y:id)
                   #:declare x id #:role "thing"
                   'b]))))
+
+;; Expected more terms
+
+(terx (1)
+      (a b)
+      #rx"expected more terms starting with any term$")
+
+(terx (1)
+      (a b:id)
+      #rx"expected more terms starting with identifier$")
+
+(terx (1)
+      (a (~describe "thing" b))
+      #rx"expected more terms starting with thing$")

pkgs/racket-pkgs/racket-test/tests/stxparse/test.rkt

@@ -534,3 +534,11 @@
 (terx (x y) ((~describe #:opaque "an X" x:id) n:number)
       #rx"expected number"
       (not #rx"expected an X"))
+
+;; from Eric Dobson (10/5/2013)
+(test-case "optional/defaults checks delayed in stxclass def"
+  (let ()
+    (define-syntax-class blah
+      #:attributes (a)
+      [pattern ((~seq (~optional :one #:defaults [(a 'bar)])))])
+    (void)))