Fix printer tests when run individually

These tests worked in the harness but broke when run
outside of the harness.
This commit is contained in:
Asumu Takikawa 2014-01-13 16:56:07 -05:00
parent 872dbd6160
commit 820a297801

View File

@ -26,7 +26,10 @@
(define-binary-check (check-prints-as? prints-as? actual expected))
(define-binary-check (check-pretty-prints-as? pretty-prints-as? actual expected))
(do-standard-inits)
;; Using `do-standard-inits` here does not work when the file is invoked
;; individually (rather than through the test harness)
(initialize-type-names)
(current-type-names (init-current-type-names))
(define tests
(test-suite