update for compatibility with new macro expander

txexpr/tests.rkt

@@ -4,26 +4,28 @@
 (define-syntax (eval-as-untyped stx)
   (syntax-case stx ()
     [(_ exprs ...)
-     (with-syntax ([sym (generate-temporary)]) 
+     (with-syntax ([sym (syntax-e (generate-temporary))]
-       #'(begin
+                   [sym2 (syntax-e (generate-temporary))]) 
-           (module sym racket
+       (datum->syntax stx `(begin
-             (require rackunit "main.rkt")
+                             (module ,(syntax->datum #'sym) racket
-             exprs ...)
+                               (require rackunit "main.rkt")
-           (require 'sym)
+                               ,@(syntax->datum #'(exprs ...)))
-           (module sym2 racket
+                             (require ',(syntax->datum #'sym))
-             (require rackunit (submod "main.rkt" safe))
+                             (module ,(syntax->datum #'sym2) racket
-             exprs ...)
+                               (require rackunit (submod "main.rkt" safe))
-           (require 'sym2)))]))
+                               ,@(syntax->datum #'(exprs ...)))
+                             (require ',(syntax->datum #'sym2))) stx))]))
+
 
 (define-syntax (eval-as-typed stx)
   (syntax-case stx ()
     [(_ exprs ...)
-     (with-syntax ([sym (generate-temporary)]) 
+     (with-syntax ([sym (syntax-e (generate-temporary))]) 
-       #'(begin
+       (datum->syntax stx `(begin
-           (module sym typed/racket
+                             (module ,(syntax->datum #'sym) typed/racket
-             (require typed/rackunit "../typed/txexpr.rkt")
+                               (require typed/rackunit "../typed/txexpr.rkt")
-             exprs ...)
+                               ,@(syntax->datum #'(exprs ...)))
-           (require 'sym)))]))
+                             (require ',(syntax->datum #'sym))) stx))]))
 
 (define-syntax-rule (eval-as-typed-and-untyped exprs ...)
   (begin
@@ -32,6 +34,7 @@
 
 
 (eval-as-typed-and-untyped
+ (require racket/set)
  (define-syntax (values->list stx)
    (syntax-case stx ()
      [(_ values-expr) #'(call-with-values (λ () values-expr) list)]))
@@ -57,7 +60,7 @@
  (check-true (txexpr-element? "string"))
  (check-true (txexpr-element? 'amp))
  (check-true (txexpr-element? '(p "string")))
-  (check-true (txexpr-element? 2)) ; a valid-char, but not in v6.0 xml:xexpr? 
+ (check-true (txexpr-element? 2)) ; a valid-char, but not in v6.0 xml:xexpr? 
  (check-true (txexpr-element? 65)) ; a valid-char
  (check-false (txexpr-element? 0)) ; not a valid-char
  
@@ -127,7 +130,8 @@
  (check-equal? (attrs->hash '((foo "bar")) '(foo "fraw")) '#hash((foo . "fraw")))
  (check-equal? (attrs->hash '((foo "bar")) '(foo "fraw") 'foo "dog") '#hash((foo . "dog")))
  
- (check-equal? (hash->attrs '#hash((foo . "bar")(hee . "haw"))) '((foo "bar")(hee "haw")))
+ (check-equal? (apply set (hash->attrs '#hash((foo . "bar")(hee . "haw"))))
+               (apply set '((foo "bar")(hee "haw"))))
  
  (check-equal? (attr-ref '(p ((foo "bar"))) 'foo) "bar")
  (check-equal? (attr-set '(p ((foo "bar"))) 'foo "fraw") '(p ((foo "fraw"))))