test-pexprs.rkt
This commit is contained in:
parent
b0001e44cb
commit
401e3973ee
|
@ -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))
|
Loading…
Reference in New Issue