Adding typed/racunit and fixing racunit exports vis a vis documentation

original commit: 445a143f5193e874d88bddfa9fc9ef1b52211f26

collects/racunit/private/check.rkt

@@ -30,6 +30,7 @@
          check-=
          check-not-false
          check-not-eq?
+         check-not-eqv?
          check-not-equal?
          fail)
 
@@ -263,6 +264,9 @@
 (define-simple-check (check-not-eq? expr1 expr2)
   (not (eq? expr1 expr2)))
 
+(define-simple-check (check-not-eqv? expr1 expr2)
+  (not (eqv? expr1 expr2)))
+
 (define-simple-check (check-not-equal? expr1 expr2)
   (not (equal? expr1 expr2)))
 

collects/racunit/private/test.rkt

@@ -9,7 +9,8 @@
          "test-suite.rkt"
          "util.rkt")
 
-(provide (struct-out exn:test:check)
+(provide (struct-out exn:test)
+         (struct-out exn:test:check)
          (struct-out check-info)
          (struct-out test-result)
          (struct-out test-failure)
@@ -45,6 +46,10 @@
          (rename-out [make-racunit-test-case make-test-case]
                      [racunit-test-case? test-case?]
                      [racunit-test-suite? test-suite?])
+         current-test-name
+         current-test-case-around
+         test-suite-test-case-around
+         test-suite-check-around
          
          define-test-suite
          define/provide-test-suite
@@ -80,6 +85,9 @@
          define-check
          define-simple-check
          define-binary-check
+         
+         current-check-handler
+         current-check-around
 
          check
          check-exn
@@ -93,6 +101,7 @@
          check-=
          check-not-false
          check-not-eq?
+         check-not-eqv?
          check-not-equal?
          check-regexp-match
          fail)

collects/racunit/scribblings/check.scrbl

@@ -36,6 +36,7 @@ For example, the following check succeeds:
 @defproc*[([(check-eq? (v1 any) (v2 any) (message string? "")) #t]
            [(check-not-eq? (v1 any) (v2 any) (message string? "")) #t]
            [(check-eqv? (v1 any) (v2 any) (message string? "")) #t]
+           [(check-not-eqv? (v1 any) (v2 any) (message string? "")) #t]
            [(check-equal? (v1 any) (v2 any) (message string? "")) #t]
            [(check-not-equal? (v1 any) (v2 any) (message string? "")) #t])]{
 
@@ -50,6 +51,7 @@ For example, the following checks all fail:
   (check-eq? (list 1) (list 1) "allocated data not eq?")
   (check-not-eq? 1 1 "integers are eq?")
   (check-eqv? 1 1.0 "not eqv?")
+  (check-not-eqv? 1 1 "integers are eqv?")
   (check-equal? 1 1.0 "not equal?")
   (check-not-equal? (list 1) (list 1) "equal?")
 ]