suzanne.soy/whalesong
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

one more test case

Browse Source
This commit is contained in:
Danny Yoo 2011-09-20 17:50:14 -04:00
parent 9a7ee2dff4
commit 56d3748d30
2 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
tests/more-tests/printing.expected
View File

@ -10,3 +10,4 @@
(vector 'hello 'world) (vector 'hello 'world)
(person 'danny 32) (person 'danny 32)
(person "jerry" 32) (person "jerry" 32)
#0=(cons 1 #0#)

8
tests/more-tests/printing.rkt
View File

@ -1,4 +1,4 @@
#lang planet dyoo/whalesong/base #lang planet dyoo/whalesong
(current-print-mode "constructor") (current-print-mode "constructor")
@ -18,3 +18,9 @@
(define-struct person (name age)) (define-struct person (name age))
(person 'danny 32) (person 'danny 32)
(person "jerry" 32) (person "jerry" 32)
;; This is slightly broken: we should follow DrRacket shared printing
;; notation.
(shared ([a (cons 1 a)])
a)