consolidate untyped tests

sugar/test/main.rkt

@@ -4,22 +4,17 @@
 (define-syntax (eval-as-untyped stx)
   (syntax-case stx ()
     [(_ exprs ...)
-     (with-syntax ([sym (generate-temporary)]) 
+     (with-syntax ([sym (generate-temporary)]
+                   [sym2 (generate-temporary)]) 
        #'(begin
            (module sym racket
              (require rackunit "../main.rkt" net/url)
              exprs ...)
-           (require 'sym)))]))
-
-(define-syntax (eval-as-untyped-safe stx)
-  (syntax-case stx ()
-    [(_ exprs ...)
-     (with-syntax ([sym (generate-temporary)]) 
-       #'(begin
-           (module sym racket
+           (require 'sym)
+           (module sym2 racket
              (require rackunit (submod "../main.rkt" safe) net/url)
              exprs ...)
-           (require 'sym)))]))
+           (require 'sym2)))]))
 
 (define-syntax (eval-as-typed stx)
   (syntax-case stx ()
@@ -34,7 +29,6 @@
 (define-syntax-rule (eval-as-typed-and-untyped exprs ...)
   (begin
     (eval-as-untyped exprs ...)
-    (eval-as-untyped-safe exprs ...)
     (eval-as-typed exprs ...)))