Fix printer tests when run individually

These tests worked in the harness but broke when run
outside of the harness.

original commit: 820a297801f1dccb6130ca55073fb04d595133f7
This commit is contained in:
Asumu Takikawa 2014-01-13 16:56:07 -05:00
parent 2d99b93e3f
commit c5721f2c71

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