From 401e3973eee278cf0c5464c2244b4e2258d8cf5a Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonyg@leastfixedpoint.com>
Date: Tue, 7 Nov 2023 19:56:48 +0100
Subject: [PATCH] test-pexprs.rkt

---
 .../preserves/preserves/tests/test-pexprs.rkt | 21 +++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100644 implementations/racket/preserves/preserves/tests/test-pexprs.rkt

diff --git a/implementations/racket/preserves/preserves/tests/test-pexprs.rkt b/implementations/racket/preserves/preserves/tests/test-pexprs.rkt
new file mode 100644
index 0000000..f5346a0
--- /dev/null
+++ b/implementations/racket/preserves/preserves/tests/test-pexprs.rkt
@@ -0,0 +1,21 @@
+#lang racket/base
+
+(require "../main.rkt")
+
+(require racket/match)
+(require racket/set)
+(require racket/pretty)
+
+(require rackunit)
+
+(define P #<<ENDDOC
+{
+    key: value
+    # example of a comment at the end of a dictionary
+}
+# example of a comment at the end of the input file
+ENDDOC
+  )
+
+(parameterize ((pretty-print-columns 80)) (write-pexpr (string->pexprs P #:read-syntax? #t)) (newline))
+(parameterize ((pretty-print-columns 10)) (write-pexpr (string->pexprs P #:read-syntax? #t)) (newline))