From 97fbd7827e3b32fb7afacb8cde17eeea7cc34fb1 Mon Sep 17 00:00:00 2001 From: Eric Dobson Date: Sat, 11 Jan 2014 12:25:18 -0800 Subject: [PATCH] Make tr unit tests not run TR printer on test creation. This makes it so that only running a subset of the tests is faster. original commit: ffe0aa4a5d8ca80696dac6db0a6e7c508174ac40 --- .../tests/typed-racket/unit-tests/infer-tests.rkt | 2 +- .../typed-racket/unit-tests/remove-intersect-tests.rkt | 6 +++--- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/unit-tests/infer-tests.rkt b/pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/unit-tests/infer-tests.rkt index ad47e4c9..83c04df7 100644 --- a/pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/unit-tests/infer-tests.rkt +++ b/pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/unit-tests/infer-tests.rkt @@ -8,7 +8,7 @@ (define-syntax-rule (fv-t ty elems ...) (let ([ty* ty]) - (test-check (format "~a" ty*) + (test-check (format "~a" 'ty) equal? (fv ty*) (list (quote elems) ...)))) diff --git a/pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/unit-tests/remove-intersect-tests.rkt b/pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/unit-tests/remove-intersect-tests.rkt index 3dc44afe..13659ebd 100644 --- a/pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/unit-tests/remove-intersect-tests.rkt +++ b/pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/unit-tests/remove-intersect-tests.rkt @@ -11,7 +11,7 @@ (syntax-case stx () [(_ [t1 t2 res] ...) #'(test-suite "Tests for intersect" - (test-check (format "Overlap test: ~a ~a" t1 t2) (lambda (a b) (eq? (not (not a)) b)) (overlap t1 t2) res) ...)])) + (test-check (format "Overlap test: ~a ~a" 't1 't2) (lambda (a b) (eq? (not (not a)) b)) (overlap t1 t2) res) ...)])) (define overlap-tests (over-tests @@ -21,7 +21,7 @@ (syntax-case stx () [(_ [t1 t2 res] ...) #'(test-suite "Tests for intersect" - (test-check (format "Restrict test: ~a ~a" t1 t2) type-compare? (restrict t1 t2) res) ...)])) + (test-check (format "Restrict test: ~a ~a" 't1 't2) type-compare? (restrict t1 t2) res) ...)])) (define restrict-tests @@ -50,7 +50,7 @@ [(_ [t1 t2 res] ...) (syntax/loc stx (test-suite "Tests for remove" - (test-check (format "Remove test: ~a ~a" t1 t2) type-compare? (remove t1 t2) res) ...))])) + (test-check (format "Remove test: ~a ~a" 't1 't2) type-compare? (remove t1 t2) res) ...))])) (define remove-tests (remo-tests