From 4c1e4fd28851e3d52d8029f9b9cebcc630fa14f0 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Thu, 24 Nov 2011 09:42:55 -0600
Subject: [PATCH] add add-make-prefix-to-constructor tests
original commit: c87cd47c64e443f11155d9dd78bf33c9281de11a
---
collects/tests/racket/pconvert.rktl | 9 +++++++++
1 file changed, 9 insertions(+)
diff --git a/collects/tests/racket/pconvert.rktl b/collects/tests/racket/pconvert.rktl
index e227556..0d2a67f 100644
--- 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)