From c5721f2c71f0ea02134a48d44364b1249f1531bc Mon Sep 17 00:00:00 2001 From: Asumu Takikawa Date: Mon, 13 Jan 2014 16:56:07 -0500 Subject: [PATCH] Fix printer tests when run individually These tests worked in the harness but broke when run outside of the harness. original commit: 820a297801f1dccb6130ca55073fb04d595133f7 --- .../tests/typed-racket/unit-tests/type-printer-tests.rkt | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/unit-tests/type-printer-tests.rkt b/pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/unit-tests/type-printer-tests.rkt index 6abb58aa..0ee985be 100644 --- a/pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/unit-tests/type-printer-tests.rkt +++ b/pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/unit-tests/type-printer-tests.rkt @@ -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