6749
#hash(((def ((lib "rackunit/main.rkt") test-equal?)) . ((3051 . 43))) ((def ((lib "rackunit/main.rkt") make-check-expected)) . ((1925 . 16))) ((form ((lib "rackunit/main.rkt") test-suite)) . ((4127 . 10))) ((form ((lib "rackunit/main.rkt") around)) . ((4996 . 2))) ((def ((lib "rackunit/main.rkt") fold-test-results)) . ((7531 . 13))) ((def ((lib "rackunit/main.rkt") make-check-actual)) . ((1925 . 16))) ((def ((lib "rackunit/main.rkt") current-test-case-around)) . ((6217 . 4))) ((def ((lib "rackunit/main.rkt") test-=)) . ((3051 . 43))) ((def ((lib "rackunit/main.rkt") struct:test-success)) . ((7146 . 4))) ((def ((lib "rackunit/main.rkt") struct:test-error)) . ((7024 . 4))) ((def ((lib "rackunit/main.rkt") exn:test:check-stack)) . ((6614 . 4))) ((def ((lib "rackunit/main.rkt") test-not-false)) . ((3051 . 43))) ((def ((lib "rackunit/main.rkt") exn:test:check?)) . ((6614 . 4))) ((def ((lib "rackunit/main.rkt") make-test-error)) . ((7024 . 4))) ((def ((lib "rackunit/main.rkt") make-exn:test:check)) . ((6614 . 4))) ((def ((lib "rackunit/main.rkt") check-equal?)) . ((0 . 25))) ((def ((lib "rackunit/main.rkt") check-info-name)) . ((1792 . 5))) ((form ((lib "rackunit/main.rkt") test-case)) . ((2957 . 2))) ((def ((lib "rackunit/main.rkt") run-test-case)) . ((7272 . 4))) ((def ((lib "rackunit/gui.rkt") make-gui-runner)) . ((5451 . 2))) ((def ((lib "rackunit/main.rkt") make-check-info)) . ((1792 . 5))) ((def ((lib "rackunit/main.rkt") test-not-exn)) . ((3051 . 43))) ((def ((lib "rackunit/main.rkt") check-exn)) . ((1184 . 5))) ((def ((lib "rackunit/main.rkt") make-exn:test)) . ((6524 . 3))) ((def ((lib "rackunit/main.rkt") test-error)) . ((7024 . 4))) ((def ((lib "rackunit/main.rkt") check-pred)) . ((648 . 5))) ((def ((lib "rackunit/main.rkt") make-test-result)) . ((6756 . 4))) ((def ((lib "rackunit/main.rkt") current-test-name)) . ((6082 . 4))) ((def ((lib "rackunit/main.rkt") struct:check-info)) . ((1792 . 5))) ((form ((lib "rackunit/main.rkt") before)) . ((4900 . 2))) ((form ((lib "rackunit/main.rkt") with-check-info)) . ((2617 . 2))) ((def ((lib "rackunit/main.rkt") run-test)) . ((7386 . 4))) ((def ((lib "rackunit/main.rkt") test-eq?)) . ((3051 . 43))) ((def ((lib "rackunit/main.rkt") check-regexp-match)) . ((1474 . 4))) ((def ((lib "rackunit/main.rkt") check-info?)) . ((1792 . 5))) ((def ((lib "rackunit/main.rkt") test-suite?)) . ((4745 . 3))) ((def ((lib "rackunit/main.rkt") make-check-message)) . ((1925 . 16))) ((def ((lib "rackunit/main.rkt") struct:exn:test)) . ((6524 . 3))) ((def ((lib "rackunit/main.rkt") test-case?)) . ((2993 . 3))) ((def ((lib "rackunit/main.rkt") test-error?)) . ((7024 . 4))) ((def ((lib "rackunit/main.rkt") fail)) . ((1722 . 3))) ((def ((lib "rackunit/main.rkt") test-result)) . ((6756 . 4))) ((def ((lib "rackunit/main.rkt") make-check-name)) . ((1925 . 16))) ((form ((lib "rackunit/main.rkt") delay-test)) . ((5058 . 2))) ((form ((lib "rackunit/main.rkt") after)) . ((4948 . 2))) ((def ((lib "rackunit/main.rkt") current-check-handler)) . ((5814 . 4))) ((def ((lib "rackunit/main.rkt") struct:test-result)) . ((6756 . 4))) ((def ((lib "rackunit/main.rkt") test-true)) . ((3051 . 43))) ((def ((lib "rackunit/main.rkt") check-info-value)) . ((1792 . 5))) ((def ((lib "rackunit/main.rkt") exn:test)) . ((6524 . 3))) ((def ((lib "rackunit/main.rkt") check-info)) . ((1792 . 5))) ((def ((lib "rackunit/main.rkt") test-exn)) . ((3051 . 43))) ((def ((lib "rackunit/main.rkt") test-error-result)) . ((7024 . 4))) ((def ((lib "rackunit/main.rkt") check)) . ((1578 . 6))) ((form ((lib "rackunit/main.rkt") define/provide-test-suite)) . ((4848 . 2))) ((def ((lib "rackunit/main.rkt") test-result?)) . ((6756 . 4))) ((def ((lib "rackunit/main.rkt") check-not-eqv?)) . ((0 . 25))) ((form ((lib "rackunit/main.rkt") require/expose)) . ((5097 . 2))) ((form ((lib "rackunit/main.rkt") define-test-suite)) . ((4804 . 2))) ((def ((lib "rackunit/main.rkt") check-not-false)) . ((919 . 10))) ((def ((lib "rackunit/main.rkt") current-check-around)) . ((5947 . 4))) ((def ((lib "rackunit/main.rkt") make-check-params)) . ((1925 . 16))) ((def ((lib "rackunit/main.rkt") test-result-test-case-name)) . ((6756 . 4))) ((def ((lib "rackunit/main.rkt") make-test-suite)) . ((4366 . 9))) ((def ((lib "rackunit/main.rkt") test-success?)) . ((7146 . 4))) ((form ((lib "rackunit/main.rkt") test-begin)) . ((2926 . 2))) ((def ((lib "rackunit/main.rkt") check-eq?)) . ((0 . 25))) ((def ((lib "rackunit/main.rkt") test-failure)) . ((6898 . 4))) ((form ((lib "rackunit/main.rkt") define-check)) . ((2853 . 2))) ((def ((lib "rackunit/main.rkt") make-check-expression)) . ((1925 . 16))) ((def ((lib "rackunit/main.rkt") test-pred)) . ((3051 . 43))) ((def ((lib "rackunit/text-ui.rkt") run-tests)) . ((5140 . 4))) ((def ((lib "rackunit/main.rkt") test-success-result)) . ((7146 . 4))) ((def ((lib "rackunit/main.rkt") test-failure-result)) . ((6898 . 4))) ((def ((lib "rackunit/main.rkt") check-not-exn)) . ((1364 . 4))) ((form ((lib "rackunit/main.rkt") fail-check)) . ((2906 . 2))) ((def ((lib "rackunit/main.rkt") check-=)) . ((775 . 6))) ((def ((lib "rackunit/main.rkt") check-not-eq?)) . ((0 . 25))) ((def ((lib "rackunit/main.rkt") check-true)) . ((919 . 10))) ((def ((lib "rackunit/main.rkt") foldts-test-suite)) . ((8048 . 7))) ((def ((lib "rackunit/main.rkt") make-test-success)) . ((7146 . 4))) ((form ((lib "rackunit/main.rkt") define-binary-check)) . ((2733 . 3))) ((def ((lib "rackunit/main.rkt") test-eqv?)) . ((3051 . 43))) ((def ((lib "rackunit/main.rkt") check-not-equal?)) . ((0 . 25))) ((def ((lib "rackunit/main.rkt") test-failure?)) . ((6898 . 4))) ((form ((lib "rackunit/main.rkt") define-simple-check)) . ((2673 . 2))) ((def ((lib "rackunit/main.rkt") make-check-location)) . ((1925 . 16))) ((def ((lib "rackunit/main.rkt") exn:test?)) . ((6524 . 3))) ((def ((lib "rackunit/docs-complete.rkt") check-docs)) . ((5532 . 8))) ((def ((lib "rackunit/main.rkt") struct:test-failure)) . ((6898 . 4))) ((def ((lib "rackunit/gui.rkt") test/gui)) . ((5315 . 4))) ((def ((lib "rackunit/main.rkt") test-false)) . ((3051 . 43))) ((def ((lib "rackunit/main.rkt") with-check-info*)) . ((2507 . 4))) ((def ((lib "rackunit/main.rkt") check-false)) . ((919 . 10))) ((def ((lib "rackunit/main.rkt") exn:test:check)) . ((6614 . 4))) ((def ((lib "rackunit/main.rkt") test-success)) . ((7146 . 4))) ((def ((lib "rackunit/main.rkt") check-eqv?)) . ((0 . 25))) ((def ((lib "rackunit/main.rkt") test-suite-check-around)) . ((6444 . 3))) ((def ((lib "rackunit/main.rkt") test-check)) . ((3051 . 43))) ((def ((lib "rackunit/main.rkt") test-suite-test-case-around)) . ((6364 . 3))) ((def ((lib "rackunit/main.rkt") make-test-failure)) . ((6898 . 4))) ((def ((lib "rackunit/main.rkt") struct:exn:test:check)) . ((6614 . 4))))
procedure
(check-eq? v1 v2 [message]) -> void?
  v1 : any
  v2 : any
  message : string? = ""
(check-not-eq? v1 v2 [message]) -> void?
  v1 : any
  v2 : any
  message : string? = ""
(check-eqv? v1 v2 [message]) -> void?
  v1 : any
  v2 : any
  message : string? = ""
(check-not-eqv? v1 v2 [message]) -> void?
  v1 : any
  v2 : any
  message : string? = ""
(check-equal? v1 v2 [message]) -> void?
  v1 : any
  v2 : any
  message : string? = ""
(check-not-equal? v1 v2 [message]) -> void?
  v1 : any
  v2 : any
  message : string? = ""
procedure
(check-pred pred v [message]) -> void?
  pred : (-> any any)
  v : any
  message : string? = ""
procedure
(check-= v1 v2 epsilon [message]) -> void?
  v1 : any
  v2 : any
  epsilon : number?
  message : string? = ""
procedure
(check-true v [message]) -> void?
  v : any
  message : string? = ""
(check-false v [message]) -> void?
  v : any
  message : string? = ""
(check-not-false v [message]) -> void?
  v : any
  message : string? = ""
procedure
(check-exn exn-predicate thunk [message]) -> void?
  exn-predicate : (or/c (-> any boolean?) regexp?)
  thunk : (-> any)
  message : string? = ""
procedure
(check-not-exn thunk [message]) -> void?
  thunk : (-> any)
  message : string? = ""
procedure
(check-regexp-match regexp string) -> void?
  regexp : regexp?
  string : string?
procedure
(check op v1 v2 [message]) -> void?
  op : (-> any any any)
  v1 : any
  v2 : any
  message : string? = ""
procedure
(fail [message]) -> void?
  message : string? = ""
struct
(struct check-info (name value)
        #:extra-constructor-name make-check-info)
  name : symbol?
  value : any
procedure
(make-check-name name) -> check-info?
  name : string?
(make-check-params params) -> check-info?
  params : (listof any)
(make-check-location loc) -> check-info?
  loc : (list/c any (or/c number? #f) (or/c number? #f)
                    (or/c number? #f) (or/c number? #f))
(make-check-expression msg) -> check-info?
  msg : any
(make-check-message msg) -> check-info?
  msg : string?
(make-check-actual param) -> check-info?
  param : any
(make-check-expected param) -> check-info?
  param : any
procedure
(with-check-info* info thunk) -> any
  info : (listof check-info?)
  thunk : (-> any)
syntax
(with-check-info ((name val) ...) body ...)
syntax
(define-simple-check (name param ...) expr ...)
syntax
(define-binary-check (name pred actual expected))
(define-binary-check (name actual expected) expr ...)
syntax
(define-check (name param ...) expr ...)
syntax
(fail-check)
syntax
(test-begin expr ...)
syntax
(test-case name expr ...)
procedure
(test-case? obj) -> boolean?
  obj : any
procedure
(test-check name operator v1 v2) -> void?
  name : string?
  operator : (-> any/c any/c any/c)
  v1 : any/c
  v2 : any/c
(test-pred name pred v) -> void?
  name : string?
  pred : (-> any/c any/c)
  v : any/c
(test-equal? name v1 v2) -> (void?)
  name : string?
  v1 : any/c
  v2 : any/c
(test-eq? name v1 v2) -> void?
  name : string?
  v1 : any/c
  v2 : any/c
(test-eqv? name v1 v2) -> void?
  name : string?
  v1 : any/c
  v2 : any/c
(test-= name v1 v2 epsilon) -> void?
  name : string?
  v1 : real?
  v2 : real?
  epsilon : real?
(test-true name v) -> void?
  name : string?
  v : any/c
(test-false name v) -> void?
  name : string?
  v : any/c
(test-not-false name v) -> void?
  name : string?
  v : any/c
(test-exn name pred thunk) -> void?
  name : string?
  pred : (-> exn? any/c)
  thunk : (-> any)
(test-not-exn name thunk) -> void?
  name : string?
  thunk : (-> any)
syntax
(test-suite name-expr maybe-before maybe-after test ...)
 
maybe-before = 
             | #:before before-thunk
                
maybe-after  = 
             | #:after after-thunk
 
  name-expr : string?
procedure
(make-test-suite  name                      
                  tests                     
                 [#:before before-thunk     
                  #:after after-thunk]) -> test-suite?
  name : string?
  tests : (listof (or/c test-case? test-suite?))
  before-thunk : (-> any) = void
  after-thunk : (-> any) = void
procedure
(test-suite? obj) -> boolean?
  obj : any
syntax
(define-test-suite name test ...)
syntax
(define/provide-test-suite name test ...)
syntax
(before before-expr expr1 expr2 ...)
syntax
(after expr-1 expr-2 ... after-expr)
syntax
(around before-expr expr-1 expr-2 ... after-expr)
syntax
(delay-test test1 test2 ...)
syntax
(require/expose module (id ...))
procedure
(run-tests test [verbosity]) -> natural-number/c
  test : (or/c test-case? test-suite?)
  verbosity : (symbols 'quiet 'normal 'verbose) = 'normal
procedure
(test/gui test ... [#:wait? wait?]) -> void?
  test : (or/c test-case? test-suite?)
  wait? : boolean? = #f
procedure
(make-gui-runner) -> (-> (or/c test-case? test-suite?) ... any)
procedure
(check-docs lib [#:skip skip]) -> any
  lib : symbol?
  skip : (or/c regexp?                         = #f
               symbol?
               (listof (or/c regexp? symbol?))
               (-> symbol? any)
               #f)
parameter
(current-check-handler) -> (-> any/c any)
(current-check-handler handler) -> void?
  handler : (-> any/c any)
parameter
(current-check-around) -> (-> (-> any) any)
(current-check-around check) -> void?
  check : (-> (-> any) any)
parameter
(current-test-name) -> (or/c string? false/c)
(current-test-name name) -> void?
  name : (or/c string? false/c)
parameter
(current-test-case-around) -> (-> (-> any) any)
(current-test-case-around handler) -> void?
  handler : (-> (-> any) any)
procedure
(test-suite-test-case-around thunk) -> any
  thunk : (-> any)
procedure
(test-suite-check-around thunk) -> any/c
  thunk : (-> any/c)
struct
(struct exn:test exn:fail ()
        #:extra-constructor-name make-exn:test)
struct
(struct exn:test:check exn:test (stack)
        #:extra-constructor-name make-exn:test:check)
  stack : (listof check-info)
struct
(struct test-result (test-case-name)
        #:extra-constructor-name make-test-result)
  test-case-name : (or/c string #f)
struct
(struct test-failure test-result (result)
        #:extra-constructor-name make-test-failure)
  result : any
struct
(struct test-error test-result (result)
        #:extra-constructor-name make-test-error)
  result : exn
struct
(struct test-success test-result (result)
        #:extra-constructor-name make-test-success)
  result : any
procedure
(run-test-case name action) -> test-result
  name : (or/c string #f)
  action : (-> any)
procedure
(run-test test)
 -> (flat-murec-contract ([R (listof (or/c test-result? R))]) R)
  test : (or/c test-case? test-suite?)
procedure
(fold-test-results result-fn         
                   seed              
                   test              
                   #:run run         
                   #:fdown fdown     
                   #:fup fup)    -> 'a
  result-fn : ('b 'c ... 'a . -> . 'a)
  seed : 'a
  test : (or/c test-case? test-suite?)
  run : (string (() -> any) . -> . 'b 'c ...)
  fdown : (string 'a . -> . 'a)
  fup : (string 'a . -> . 'a)
procedure
(foldts-test-suite fdown fup fhere seed test) -> 'a
  fdown : (test-suite string thunk thunk 'a -> 'a)
  fup : (test-suite string thunk thunk 'a 'a -> 'a)
  fhere : (test-case string thunk 'a -> 'a)
  seed : 'a
  test : (or/c test-case? test-suite?)
