add add-make-prefix-to-constructor tests

original commit: c87cd47c64e443f11155d9dd78bf33c9281de11a
2011-11-24 09:42:55 -06:00 · 2011-11-24 09:42:55 -06:00 · 4c1e4fd288
commit 4c1e4fd288
parent d2604d85bb
1 changed files with 9 additions and 0 deletions
--- a/collects/tests/racket/pconvert.rktl
+++ b/collects/tests/racket/pconvert.rktl
@ -390,6 +390,15 @@
  (test #f (pc #f) #f)
  (test #t (pc #f) #t))

+(let ([pc
+       (λ (prefix?)
+         (λ (x)
+           (parameterize ([add-make-prefix-to-constructor prefix?])
+             (print-convert x))))])
+  (struct s (x) #:transparent)
+  (test '(s 1) (pc #f) (s 1))
+  (test '(make-s 1) (pc #t) (s 1)))
+
 (let ([pc
       (lambda (pv)
         (lambda (x)