From daf3ac808a4468ef36c719ed9b6a06824baf54d2 Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Tue, 30 Jul 2013 11:11:36 -0400 Subject: [PATCH] Revert "Add contract for run-tests." Related to PR 13936. This reverts commit 032e1ebf558087a4abc36394b01641c96138da08. original commit: 58f29e7c7a65237e26cddab1e4a49ac665af4393 --- pkgs/rackunit-lib/rackunit/text-ui.rkt | 12 +++--------- 1 file changed, 3 insertions(+), 9 deletions(-) diff --git a/pkgs/rackunit-lib/rackunit/text-ui.rkt b/pkgs/rackunit-lib/rackunit/text-ui.rkt index 08babab..f1555a9 100644 --- a/pkgs/rackunit-lib/rackunit/text-ui.rkt +++ b/pkgs/rackunit-lib/rackunit/text-ui.rkt @@ -30,7 +30,6 @@ (require racket/match racket/pretty - racket/contract "private/base.rkt" "private/counter.rkt" "private/format.rkt" @@ -40,15 +39,10 @@ "private/monad.rkt" "private/hash-monad.rkt" "private/name-collector.rkt" - "private/text-ui-util.rkt" - "private/test.rkt") + "private/text-ui-util.rkt") -(provide/contract - [run-tests (((or/c test-case? test-suite?)) - ((or/c 'quiet 'normal 'verbose)) - . ->* . exact-nonnegative-integer?)]) - -(provide display-context +(provide run-tests + display-context display-exn display-summary+return display-ticker