From 56d3748d3093dfdf62348e998a66ad70ad7b1e7b Mon Sep 17 00:00:00 2001 From: Danny Yoo Date: Tue, 20 Sep 2011 17:50:14 -0400 Subject: [PATCH] one more test case --- tests/more-tests/printing.expected | 1 + tests/more-tests/printing.rkt | 10 ++++++++-- 2 files changed, 9 insertions(+), 2 deletions(-) diff --git a/tests/more-tests/printing.expected b/tests/more-tests/printing.expected index 891eb46..42dfc93 100644 --- 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#) diff --git a/tests/more-tests/printing.rkt b/tests/more-tests/printing.rkt index 443cc57..39a6f3e 100644 --- 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) \ No newline at end of file +(person "jerry" 32) + + +;; This is slightly broken: we should follow DrRacket shared printing +;; notation. +(shared ([a (cons 1 a)]) + a) \ No newline at end of file