add add-make-prefix-to-constructor tests

2011-11-24 09:42:55 -06:00 · 2011-11-24 09:42:55 -06:00 · c87cd47c64
commit c87cd47c64
parent 30cc1b9a0b
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)