From d0611c887144bf05af6a6f847a7b4ec625fbbc48 Mon Sep 17 00:00:00 2001
From: Jon Rafkind <rafkind@racket-lang.org>
Date: Fri, 11 Sep 2009 17:37:59 +0000
Subject: [PATCH] add keyword tests for define-struct/contract

svn: r15974
---
 collects/tests/mzscheme/contract-test.ss | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/collects/tests/mzscheme/contract-test.ss b/collects/tests/mzscheme/contract-test.ss
index bcafcbb93f..b6eeb0ef62 100644
--- a/collects/tests/mzscheme/contract-test.ss
+++ b/collects/tests/mzscheme/contract-test.ss
@@ -2804,6 +2804,16 @@
        (define-struct/contract (bar foo) ([z string?]))
        (set-foo-x! (make-bar 2 "x") #f)))
 
+  (test/spec-passed
+   'define-struct/contract22
+   '(define-struct/contract foo ([x number?] [y number?]) #:mutable #:transparent))
+
+  (test/spec-passed
+   'define-struct/contract23
+   '(define-struct/contract foo ([x number?] [y number?])
+                            #:mutable #:transparent
+                            #:property prop:custom-write
+                            (lambda (a b c) (void))))
 ;                                                                                  
 ;                                                                                  
 ;