Move meta checks to separate module

racket · Sep 2, 2017 · 4c85b39 · 4c85b39
1 parent 32acc1d
commit 4c85b39
Show file tree

Hide file tree

Showing 4 changed files with 11 additions and 10 deletions.
diff --git a/rackunit-doc/rackunit/scribblings/check.scrbl b/rackunit-doc/rackunit/scribblings/check.scrbl
@@ -5,7 +5,7 @@
 @(require (for-label racket/match))
 
 @(define rackunit-eval (make-base-eval))
-@(interaction-eval #:eval rackunit-eval (require rackunit))
+@(interaction-eval #:eval rackunit-eval (require rackunit rackunit/meta))
 @(interaction-eval #:eval rackunit-eval (error-print-context-length 0))
 
 @title{Checks}
@@ -458,12 +458,15 @@ The optional message is used as the exception's
 message.}
 
 @section{Testing Custom Checks}
+@defmodule[rackunit/meta]
 
 Custom checks such as those created by @racket[define-check] can contain a fair
 amount of logic. Consequently, custom checks can be buggy and should be tested.
 RackUnit provides a handful of checks explicitly designed for testing the
 behavior of other checks; they allow verifying checks pass and fail when
 expected or that checks add certain information to the check information stack.
+These bindings are provided by @racketmodname[rackunit/meta], not
+@racketmodname[rackunit].
 
 @defproc[(check-fail [fail-exn-predicate
                       (or/c (-> exn:test:check? any/c) regexp?)]

diff --git a/rackunit-lib/rackunit/private/meta.rkt → rackunit-lib/rackunit/meta.rkt b/rackunit-lib/rackunit/private/meta.rkt → rackunit-lib/rackunit/meta.rkt
@@ -10,9 +10,8 @@
          racket/list
          rackunit/log
          syntax/parse/define
-         "base.rkt"
-         "check.rkt"
-         "check-info.rkt")
+         rackunit
+         rackunit/private/check-info)
 
 
 (define-check (check-fail pred-or-msg chk-thnk)

diff --git a/rackunit-lib/rackunit/private/test.rkt b/rackunit-lib/rackunit/private/test.rkt
@@ -4,14 +4,12 @@
          "base.rkt"
          "check.rkt"
          "check-info.rkt"
-         "meta.rkt"
          "result.rkt"
          "test-case.rkt"
          "test-suite.rkt"
          "util.rkt")
 
-(provide (all-from-out "meta.rkt")
-         (struct-out exn:test)
+(provide (struct-out exn:test)
          (struct-out exn:test:check)
          (struct-out check-info)
          (struct-out test-result)
@@ -57,7 +55,7 @@
          current-test-case-around
          test-suite-test-case-around
          test-suite-check-around
-         
+
          define-test-suite
          define/provide-test-suite
          test-suite*
@@ -93,7 +91,7 @@
          define-check
          define-simple-check
          define-binary-check
-         
+
          current-check-handler
          current-check-around
 

diff --git a/rackunit-test/tests/rackunit/meta-test.rkt b/rackunit-test/tests/rackunit/meta-test.rkt
@@ -1,7 +1,8 @@
 #lang racket/base
 
 (module+ test
-  (require rackunit)
+  (require rackunit
+           rackunit/meta)
 
   (define foo-info (make-check-info 'foo 'foo))
   (define-check (check-raise) (raise 'foo))