Fix type printing test.

This commit is contained in:
Vincent St-Amour 2013-11-19 15:08:07 -05:00
parent 8fae6ffecd
commit fab0d0f955

View File

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