Fix type printing test.

original commit: fab0d0f955e5bf17e21816146f1af6f9caeaf3b1
This commit is contained in:
Vincent St-Amour 2013-11-19 15:08:07 -05:00
parent 95c784c26a
commit dfc7a0b8d9

View File

@ -25,7 +25,7 @@
(tr-eval '(:type #:verbose Bar))
(check-equal? (get-output-string out)
(string-append "(U Integer String)\n[can expand further: String Integer]"
(string-append "(U Integer String)\n[can expand further: Integer]"
"(Foo -> Foo)\n[can expand further: Foo]"
"(Number -> Integer)\n[can expand further: Integer Number]"
"((U String 0 1 Byte-Larger-Than-One Positive-Index-Not-Byte "