one more test case

2011-09-20 17:50:14 -04:00 · 2011-09-20 17:50:14 -04:00 · 56d3748d30
commit 56d3748d30
parent 9a7ee2dff4
2 changed files with 9 additions and 2 deletions
--- a/tests/more-tests/printing.expected
+++ b/tests/more-tests/printing.expected
@ -10,3 +10,4 @@
 (vector 'hello 'world)
 (person 'danny 32)
 (person "jerry" 32)
+#0=(cons 1 #0#)
--- a/tests/more-tests/printing.rkt
+++ b/tests/more-tests/printing.rkt
@ -1,4 +1,4 @@
-#lang planet dyoo/whalesong/base
+#lang planet dyoo/whalesong

 (current-print-mode "constructor")

@ -17,4 +17,10 @@

 (define-struct person (name age))
 (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)