Renaming rktunit to racunit

original commit: bc5cf30ebe1ba3743f7097d81ebf1297435e0201

collects/racunit/gui.rkt

@@ -6,7 +6,7 @@
 (define (test/gui . tests)
   (apply (make-gui-runner) tests))
 
-(define test/c (or/c rktunit-test-case? rktunit-test-suite?))
+(define test/c (or/c racunit-test-case? racunit-test-suite?))
 
 (provide/contract
  [test/gui

collects/racunit/private/base.rkt

@@ -4,10 +4,10 @@
 
 ;; struct test : 
 (define-struct test ())
-;; struct (rktunit-test-case test) : (U string #f) thunk
+;; struct (racunit-test-case test) : (U string #f) thunk
-(define-struct (rktunit-test-case test) (name action) #:transparent)
+(define-struct (racunit-test-case test) (name action) #:transparent)
-;; struct (rktunit-test-suite test) : string (fdown fup fhere seed -> (listof test-result)) thunk thunk
+;; struct (racunit-test-suite test) : string (fdown fup fhere seed -> (listof test-result)) thunk thunk
-(define-struct (rktunit-test-suite test) (name tests before after) #:transparent)
+(define-struct (racunit-test-suite test) (name tests before after) #:transparent)
 
 ;; struct exn:test exn : ()
 ;;
@@ -33,10 +33,10 @@
 (define-struct (test-success test-result) (result))
 
 (provide/contract
- (struct (rktunit-test-case test)
+ (struct (racunit-test-case test)
          ((name (or/c string? false/c))
           (action (-> any))))
- (struct (rktunit-test-suite test)
+ (struct (racunit-test-suite test)
          ((name string?)
           (tests procedure?)
           (before (-> any))

collects/racunit/private/check-info.rkt

@@ -11,7 +11,7 @@
 ;; Infrastructure ----------------------------------------------
 
 ;; The continuation mark under which all check-info is keyed
-(define check-info-mark (gensym 'rktunit))
+(define check-info-mark (gensym 'racunit))
 
 ;; (continuation-mark-set -> (listof check-info))
 (define (check-info-stack marks)

collects/racunit/private/gui/config.rkt

@@ -5,20 +5,20 @@
 
 ;; Frame size preferences
 
-(preferences:set-default 'rktunit:frame:width 400 exact-positive-integer?)
+(preferences:set-default 'racunit:frame:width 400 exact-positive-integer?)
-(preferences:set-default 'rktunit:frame:height 400 exact-positive-integer?)
+(preferences:set-default 'racunit:frame:height 400 exact-positive-integer?)
-(define pref:width (pref:get/set 'rktunit:frame:width))
+(define pref:width (pref:get/set 'racunit:frame:width))
-(define pref:height (pref:get/set 'rktunit:frame:height))
+(define pref:height (pref:get/set 'racunit:frame:height))
 
 ;; CONSTANTS
 ;; Some of these are obsolete, given the preferences above.
 
 (define DETAILS-CANVAS-INIT-WIDTH 400)
-(define FRAME-LABEL "RktUnit")
+(define FRAME-LABEL "RacUnit")
 (define FRAME-INIT-HEIGHT 400)
 (define TREE-INIT-WIDTH 240)
 (define TREE-COLORIZE-CASES #t)
-(define DIALOG-ERROR-TITLE "RktUnit: Error")
+(define DIALOG-ERROR-TITLE "RacUnit: Error")
 (define STATUS-SUCCESS 'success)
 (define STATUS-FAILURE 'failure)
 (define STATUS-ERROR 'error)

collects/racunit/private/gui/controller.rkt

@@ -25,18 +25,18 @@
     ;; create-model : test suite<%>/#f -> result<%>
     (define/public (create-model test parent)
       (define result
-        (cond [(rktunit-test-case? test)
+        (cond [(racunit-test-case? test)
                (new case-result%
                     (controller this)
                     (test test)
-                    (name (or (rktunit-test-case-name test)
+                    (name (or (racunit-test-case-name test)
                               "<unnamed test-case>"))
                     (parent parent))]
-              [(rktunit-test-suite? test)
+              [(racunit-test-suite? test)
                (new suite-result%
                     (controller this)
                     (test test)
-                    (name (or (rktunit-test-suite-name test)
+                    (name (or (racunit-test-suite-name test)
                               "<unnamed test-suite>"))
                     (parent parent))]))
       (send/i view view<%> create-view-link result parent)

collects/racunit/private/gui/gui.rkt

@@ -48,8 +48,8 @@
 #|
 (define/public (run)
   (let ([custodian (make-custodian)]
-        [before (rktunit-test-suite-before test)]
+        [before (racunit-test-suite-before test)]
-        [after (rktunit-test-suite-after test)])
+        [after (racunit-test-suite-after test)])
     (parameterize [(current-custodian custodian)]
       (dynamic-wind
         before
@@ -112,8 +112,8 @@
                 (call-with-continuation-prompt
                  (lambda ()
                    (time-apply run-test-case 
-                               (list (rktunit-test-case-name test)
+                               (list (racunit-test-case-name test)
-                                     (rktunit-test-case-action test)))))])
+                                     (racunit-test-case-action test)))))])
     (values (car results) (list cputime realtime gctime))))
 
 (define (make-output-ports)

collects/racunit/private/gui/rml.rkt

@@ -7,7 +7,7 @@
 
 (provide insert-text
          ext:text%
-         rktunit-style-map)
+         racunit-style-map)
 
 ;; insert-text : text% string style-delta% -> void
 (define (insert-text e text style)
@@ -20,7 +20,7 @@
 
 (define ext:text-mixin
   (mixin (text<%>) ()
-    (init-field (style-map rktunit-style-map))
+    (init-field (style-map racunit-style-map))
     (inherit last-position
              change-style
              set-clickback
@@ -139,7 +139,7 @@
     [error     . ,style:red]
     [value     . ,style:darkblue]))
 
-(define rktunit-styles
+(define racunit-styles
   `([test-unexecuted . ,style:gray]
     [test-success    . ,style:green]
     [test-failure    . ,style:red]
@@ -181,7 +181,7 @@
   (extend-style-map empty-style-map
                     basic-styles))
 
-;; rktunit-style-map : style-map<%>
+;; racunit-style-map : style-map<%>
-(define rktunit-style-map
+(define racunit-style-map
   (extend-style-map basic-style-map 
-                    rktunit-styles))
+                    racunit-styles))

collects/racunit/private/gui/view.rkt

@@ -13,7 +13,7 @@
 (provide make-view-frame
          view%)
 
-(define style-map rktunit-style-map)
+(define style-map racunit-style-map)
 
 #|
 
@@ -50,7 +50,7 @@ still be there, just not visible?
                 controller)
     (super-new)
 
-    (define editor (new ext:text% (style-map rktunit-style-map)))
+    (define editor (new ext:text% (style-map racunit-style-map)))
     (define renderer
       (new model-renderer%
            (controller controller)
@@ -146,7 +146,7 @@ still be there, just not visible?
                ;; If the view-link has not been created,
                ;; yield until it is.
                (unless (yield)
-                 (error 'rktunit-gui
+                 (error 'racunit-gui
                         "internal error: no progress waiting for view-link"))
                (do-model-update model)])))
 

collects/racunit/private/result.rkt

@@ -51,12 +51,12 @@
 ;; data so FP is a bit ugly].
 (define (foldts fdown fup fhere seed test)
   (cond
-   ((rktunit-test-case? test)
+   ((racunit-test-case? test)
     (fhere test
-           (rktunit-test-case-name test)
+           (racunit-test-case-name test)
-           (rktunit-test-case-action test)
+           (racunit-test-case-action test)
            seed))
-   ((rktunit-test-suite? test)
+   ((racunit-test-suite? test)
     (apply-test-suite test fdown fup fhere seed))
    (else
     (raise

collects/racunit/private/test-suite.rkt

@@ -27,14 +27,14 @@
 (define (test-suite-test-case-around fhere)
   (lambda (thunk)
     (let* ([name (current-test-name)]
-           [test (make-rktunit-test-case name thunk)]
+           [test (make-racunit-test-case name thunk)]
            [seed (current-seed)])
       (current-seed (fhere test name thunk seed)))))
 
 (define (test-suite-check-around fhere)
   (lambda (thunk)
     (let* ([name #f]
-           [test (make-rktunit-test-case name thunk)]
+           [test (make-racunit-test-case name thunk)]
            [seed (current-seed)])
       (current-seed (fhere test name thunk seed)))))
 
@@ -42,12 +42,12 @@
 (define delayed-test-case-around
   (lambda (thunk)
     (let ([name (current-test-name)])
-      (make-rktunit-test-case name thunk))))
+      (make-racunit-test-case name thunk))))
 
 (define delayed-check-around
   (lambda (thunk)
     (let ([name #f])
-      (make-rktunit-test-case name thunk))))
+      (make-racunit-test-case name thunk))))
 
 (define-syntax delay-test
   (syntax-rules ()
@@ -58,12 +58,12 @@
                test test1 ...)]))
 
 (define (apply-test-suite suite fdown fup fhere seed)
-  (let* ([name   (rktunit-test-suite-name   suite)]
+  (let* ([name   (racunit-test-suite-name   suite)]
-         [tests  (rktunit-test-suite-tests  suite)]
+         [tests  (racunit-test-suite-tests  suite)]
-         [before (rktunit-test-suite-before suite)]
+         [before (racunit-test-suite-before suite)]
-         [after  (rktunit-test-suite-after  suite)]
+         [after  (racunit-test-suite-after  suite)]
          [kid-seed (fdown suite name before after seed)]
-         [kid-seed ((rktunit-test-suite-tests suite) fdown fup fhere kid-seed)])
+         [kid-seed ((racunit-test-suite-tests suite) fdown fup fhere kid-seed)])
     (fup suite name before after seed kid-seed)))
 
 ;; test-suite : name [#:before thunk] [#:after thunk] test ...
@@ -84,7 +84,7 @@
             [the-tests
              (lambda (fdown fup fhere seed)
                (define (run/inner x)
-                 (cond [(rktunit-test-suite? x)
+                 (cond [(racunit-test-suite? x)
                         (current-seed
                          (apply-test-suite x fdown fup fhere (current-seed)))]
                        [(list? x)
@@ -103,7 +103,7 @@
          [(not (string? the-name))
           (raise-type-error 'test-suite "test-suite name as string" the-name)]
          [else
-          (make-rktunit-test-suite
+          (make-racunit-test-suite
            the-name
            the-tests
            before-thunk
@@ -138,13 +138,13 @@
       (for-each
        (lambda (t)
          (cond
-          [(rktunit-test-suite? t)
+          [(racunit-test-suite? t)
            (current-seed (apply-test-suite t fdown fup fhere (current-seed)))]
-          [(rktunit-test-case? t)
+          [(racunit-test-case? t)
            (current-seed
             (fhere t
-                   (rktunit-test-case-name t)
+                   (racunit-test-case-name t)
-                   (rktunit-test-case-action t)
+                   (racunit-test-case-action t)
                    (current-seed)))]
           [else
            (raise
@@ -158,7 +158,7 @@
 ;;
 ;; Construct a test suite from a list of tests
 (define (make-test-suite name #:before [before void-thunk] #:after [after void-thunk] tests)
-  (make-rktunit-test-suite name
+  (make-racunit-test-suite name
                               (tests->test-suite-action tests)
                               before
                               after))

collects/racunit/private/test.rkt

@@ -15,8 +15,8 @@
          (struct-out test-failure)
          (struct-out test-error)
          (struct-out test-success)
-         (struct-out rktunit-test-case)
+         (struct-out racunit-test-case)
-         (struct-out rktunit-test-suite)
+         (struct-out racunit-test-suite)
 
          with-check-info
          with-check-info*
@@ -42,9 +42,9 @@
          test-suite
          make-test-suite
          delay-test
-         (rename-out [make-rktunit-test-case make-test-case]
+         (rename-out [make-racunit-test-case make-test-case]
-                     [rktunit-test-case? test-case?]
+                     [racunit-test-case? test-case?]
-                     [rktunit-test-suite? test-suite?])
+                     [racunit-test-suite? test-suite?])
          
          define-test-suite
          define/provide-test-suite

collects/racunit/scribblings/acknowledgements.scrbl

@@ -3,7 +3,7 @@
 
 @title{Acknowlegements}
 
-The following people have contributed to RktUnit:
+The following people have contributed to RacUnit:
 
 @itemize[
   @item{Robby Findler pushed me to release version 3}
@@ -12,7 +12,7 @@ The following people have contributed to RktUnit:
   suggested renaming @racket[test/text-ui]}
 
   @item{Dave Gurnell reported a bug in check-not-exn and
-  suggested improvements to RktUnit}
+  suggested improvements to RacUnit}
 
   @item{Danny Yoo reported a bug in and provided a fix for
     trim-current-directory}
@@ -30,7 +30,7 @@ The following people have contributed to RktUnit:
   @item{Jose A. Ortega Ruiz alerted me a problem in the
     packaging system and helped fix it.}
 
-  @item{Sebastian H. Seidel provided help packaging RktUnit
+  @item{Sebastian H. Seidel provided help packaging RacUnit
     into a .plt}
 
   @item{Don Blaheta provided the method for grabbing line number

collects/racunit/scribblings/api.scrbl

@@ -1,10 +1,10 @@
 #lang scribble/doc
 @(require "base.rkt")
 
-@title[#:tag "api"]{RktUnit API}
+@title[#:tag "api"]{RacUnit API}
 
-@defmodule[rktunit
+@defmodule[racunit
-  #:use-sources (rktunit)]
+  #:use-sources (racunit)]
 
 @include-section["overview.scrbl"]
 @include-section["check.scrbl"]

collects/racunit/scribblings/base.rkt

@@ -6,15 +6,15 @@
 
  (for-label scheme/base
             scheme/contract
-            rktunit
+            racunit
-            rktunit/text-ui
+            racunit/text-ui
-            rktunit/gui))
+            racunit/gui))
 
 (provide
  (all-from-out scribble/eval
                scribble/manual)
  (for-label (all-from-out scheme/base
                           scheme/contract
-                          rktunit
+                          racunit
-                          rktunit/text-ui
+                          racunit/text-ui
-                          rktunit/gui)))
+                          racunit/gui)))

collects/racunit/scribblings/check.scrbl

@@ -3,7 +3,7 @@
 
 @title{Checks}
 
-Checks are the basic building block of RktUnit.  A check
+Checks are the basic building block of RacUnit.  A check
 checks some condition.  If the condition holds the check
 evaluates to @racket[#t].  If the condition doesn't hold the
 check raises an instance of @racket[exn:test:check] with
@@ -16,7 +16,7 @@ their arguments.  You can use check as first class
 functions, though you will lose precision in the reported
 source locations if you do so.
 
-The following are the basic checks RktUnit provides.  You
+The following are the basic checks RacUnit provides.  You
 can create your own checks using @racket[define-check].
 
 @defproc[(check (op (-> any any any))

collects/racunit/scribblings/compound-testing.scrbl

@@ -147,7 +147,7 @@ creates test cases within the suite, with the given names and
 body expressions.
 
 As far I know no-one uses this macro, so it might disappear
-in future versions of RktUnit.}
+in future versions of RacUnit.}
 }
 
 

collects/racunit/scribblings/control-flow.scrbl

@@ -48,5 +48,5 @@ file.  The after action deletes it.
 This somewhat curious macro evaluates the given tests in a
 context where @racket[current-test-case-around] is
 parameterized to @racket[test-suite-test-case-around].  This
-has been useful in testing RktUnit.  It might be useful
+has been useful in testing RacUnit.  It might be useful
 for you if you create test cases that create test cases.}

collects/racunit/scribblings/file-test.rkt

@@ -1,6 +1,6 @@
 #lang scheme/base
 
-(require rktunit
+(require racunit
          "file.rkt")
 
 (check-equal? (my-+ 1 1) 2)

collects/racunit/scribblings/misc.scrbl

@@ -14,8 +14,8 @@ Note that @racket[require/expose] can be a bit fragile,
 especially when mixed with compiled code.  Use at your own risk!
 }
 
-This example gets @racket[make-failure-test], which is defined in a RktUnit test:
+This example gets @racket[make-failure-test], which is defined in a RacUnit test:
 
 @racketblock[
-(require/expose rktunit/private/check-test (make-failure-test))
+(require/expose racunit/private/check-test (make-failure-test))
 ]

collects/racunit/scribblings/overview.scrbl

@@ -1,9 +1,9 @@
 #lang scribble/doc
 @(require "base.rkt")
 
-@title{Overview of RktUnit}
+@title{Overview of RacUnit}
 
-There are three basic data types in RktUnit:
+There are three basic data types in RacUnit:
 
 @itemize[
 

collects/racunit/scribblings/philosophy.scrbl

@@ -1,10 +1,10 @@
 #lang scribble/doc
 @(require "base.rkt")
 
-@title[#:tag "philosophy"]{The Philosophy of RktUnit}
+@title[#:tag "philosophy"]{The Philosophy of RacUnit}
 
-RktUnit is designed to allow tests to evolve in step with
+RacUnit is designed to allow tests to evolve in step with
-the evolution of the program under testing.  RktUnit
+the evolution of the program under testing.  RacUnit
 scales from the unstructed checks suitable for simple
 programs to the complex structure necessary for large
 projects.
@@ -25,9 +25,9 @@ checking are of the form:
   (equal? (length '(a b)) 2)
 ]
 
-RktUnit directly supports this style of testing.  A check
+RacUnit directly supports this style of testing.  A check
 on its own is a valid test.  So the above examples may be
-written in RktUnit as:
+written in RacUnit as:
 
 @racketblock[
   (check-equal? (length null) 0)
@@ -35,7 +35,7 @@ written in RktUnit as:
   (check-equal? (length '(a b)) 2)
 ]
 
-Simple programs now get all the benefits of RktUnit with
+Simple programs now get all the benefits of RacUnit with
 very little overhead.
 
 There are limitations to this style of testing that more
@@ -45,7 +45,7 @@ it does not make sense to evaluate some expressions if
 earlier ones have failed.  This type of program needs a way
 to group expressions so that a failure in one group causes
 evaluation of that group to stop and immediately proceed to
-the next group.  In RktUnit all that is required is to
+the next group.  In RacUnit all that is required is to
 wrap a @racket[test-begin] expression around a group of
 expressions:
 
@@ -62,7 +62,7 @@ be evaluated.
 
 Notice that all the previous tests written in the simple
 style are still valid.  Introducing grouping is a local
-change only.  This is a key feature of RktUnit's support
+change only.  This is a key feature of RacUnit's support
 for the evolution of the program.
 
 The programmer may wish to name a group of tests.  This is
@@ -79,7 +79,7 @@ Most programs will stick with this style. However,
 programmers writing very complex programs may wish to
 maintain separate groups of tests for different parts of the
 program, or run their tests in different ways to the normal
-RktUnit manner (for example, test results may be logged
+RacUnit manner (for example, test results may be logged
 for the purpose of improving software quality, or they may
 be displayed on a website to indicate service quality). For
 these programmers it is necessary to delay the execution of
@@ -104,15 +104,15 @@ outside the suite continue to evaluate as before.
 @section{Historical Context}
 
 Most testing frameworks, including earlier versions of
-RktUnit, support only the final form of testing. This is
+RacUnit, support only the final form of testing. This is
 likely due to the influence of the SUnit testing framework,
-which is the ancestor of RktUnit and the most widely used
+which is the ancestor of RacUnit and the most widely used
 frameworks in Java, .Net, Python, and Ruby, and many other
 languages. That this is insufficient for all users is
 apparent if one considers the proliferation of ``simpler''
 testing frameworks in Racket such as SRFI-78, or the
 practice of beginner programmers. Unfortunately these
 simpler methods are inadequate for testing larger
-systems. To the best of my knowledge RktUnit is the only
+systems. To the best of my knowledge RacUnit is the only
 testing framework that makes a conscious effort to support
 the testing style of all levels of programmer.

collects/racunit/scribblings/quick-start.scrbl

@@ -1,7 +1,7 @@
 #lang scribble/doc
 @(require "base.rkt")
 
-@title[#:tag "quick-start"]{Quick Start Guide for RktUnit}
+@title[#:tag "quick-start"]{Quick Start Guide for RacUnit}
 
 Suppose we have code contained in @tt{file.rkt}, which
 implements buggy versions of @racket[+] and @racket[-]
@@ -24,15 +24,15 @@ racket/base
          my-*)
 ]
 
-We want to test this code with RktUnit.  We start by
+We want to test this code with RacUnit.  We start by
 creating a file called @tt{file-test.rkt} to contain our
 tests.  At the top of @tt{file-test.rkt} we import
-RktUnit and @tt{file.rkt}:
+RacUnit and @tt{file.rkt}:
 
 @racketmod[
 racket/base
 
-(require rktunit
+(require racunit
          "file.rkt")
 ]
 
@@ -43,7 +43,7 @@ Now we add some tests to check our library:
 (check-equal? (my-* 1 2) 2 "Simple multiplication")
 ]
 
-This is all it takes to define tests in RktUnit.  Now
+This is all it takes to define tests in RacUnit.  Now
 evaluate this file and see if the library is correct.
 Here's the result I get:
 
@@ -63,13 +63,13 @@ expected:   2
 The first @racket[#t] indicates the first test passed.  The
 second test failed, as shown by the message.
 
-Requiring RktUnit and writing checks is all you need to
+Requiring RacUnit and writing checks is all you need to
 get started testing, but let's take a little bit more time
 to look at some features beyond the essentials.
 
 Let's say we want to check that a number of properties hold.
 How do we do this?  So far we've only seen checks of a
-single expression.  In RktUnit a check is always a single
+single expression.  In RacUnit a check is always a single
 expression, but we can group checks into units called test
 cases.  Here's a simple test case written using the
 @racket[test-begin] form:
@@ -91,7 +91,7 @@ Evalute this and you should see an error message like:
 A test 
 ... has a FAILURE
 name:       check-pred
-location:   (#<path:/Users/noel/programming/schematics/rktunit/branches/v3/doc/file-test.rkt> 14 6 252 22)
+location:   (#<path:/Users/noel/programming/schematics/racunit/branches/v3/doc/file-test.rkt> 14 6 252 22)
 expression: (check-pred even? elt)
 params:     (#<procedure:even?> 9)
 --------------------
@@ -147,13 +147,13 @@ tests, allowing you to choose how you run your tests.  You
 might, for example, print the results to the screen or log
 them to a file.
 
-Let's run our tests, using RktUnit's simple textual user
+Let's run our tests, using RacUnit's simple textual user
 interface (there are fancier interfaces available but this
 will do for our example).  In @tt{file-test.rkt} add the
 following lines:
 
 @racketblock[
-  (require rktunit/text-ui)
+  (require racunit/text-ui)
 
   (run-tests file-tests)
 ]
@@ -161,6 +161,6 @@ following lines:
 Now evaluate the file and you should see similar output
 again.
 
-These are the basics of RktUnit.  Refer to the
+These are the basics of RacUnit.  Refer to the
 documentation below for more advanced topics, such as
 defining your own checks.  Have fun!

collects/racunit/scribblings/racunit.scrbl

@@ -1,12 +1,12 @@
 #lang scribble/doc
 @(require "base.rkt")
 
-@title{@bold{RktUnit}: Unit Testing for Racket}
+@title{@bold{RacUnit}: Unit Testing for Racket}
 
 @author[(author+email "Noel Welsh" "noelwelsh@gmail.com")
         (author+email "Ryan Culpepper" "ryan_sml@yahoo.com")]
 
-RktUnit is a unit-testing framework for Racket.  It
+RacUnit is a unit-testing framework for Racket.  It
 is designed to handle the needs of all Racket programmers,
 from novices to experts.
 

collects/racunit/scribblings/release-notes.scrbl

@@ -12,7 +12,7 @@ There are also miscellaneous Scribble fixes.
 
 @section{Version 3}
 
-This version of RktUnit is largely backwards compatible
+This version of RacUnit is largely backwards compatible
 with version 2 but there are significant changes to the
 underlying model, justifying incrementing the major version
 number.  These changes are best explained in

collects/racunit/scribblings/ui.scrbl

@@ -3,13 +3,13 @@
 
 @title[#:tag  "ui"]{User Interfaces}
 
-RktUnit provides a textual and a graphical user interface
+RacUnit provides a textual and a graphical user interface
 
 @section{Textual User Interface}
 
-@defmodule[rktunit/text-ui]
+@defmodule[racunit/text-ui]
 
-The textual UI is in the @racketmodname[rktunit/text-ui] module.
+The textual UI is in the @racketmodname[racunit/text-ui] module.
 It is run via the @racket[run-tests] function.
 
 @defproc[(run-tests (test (or/c test-case? test-suite?))
@@ -33,15 +33,15 @@ information.
 
 @section{Graphical User Interface}
 
-@defmodule[rktunit/gui]
+@defmodule[racunit/gui]
 
-RktUnit also provides a GUI test runner, available from the
+RacUnit also provides a GUI test runner, available from the
-@racketmodname[rktunit/gui] module.
+@racketmodname[racunit/gui] module.
 
 @defproc[(test/gui [test (or/c test-case? test-suite?)] ...)
          any]{
 
-Creates a new RktUnit GUI window and runs each @racket[test]. The
+Creates a new RacUnit GUI window and runs each @racket[test]. The
 GUI is updated as tests complete.
 
 }
@@ -49,7 +49,7 @@ GUI is updated as tests complete.
 @defproc[(make-gui-runner)
          (-> (or/c test-case? test-suite?) ... any)]{
 
-Creates a new RktUnit GUI window and returns a procedure that, when
+Creates a new RacUnit GUI window and returns a procedure that, when
 applied, runs the given tests and displays the results in the GUI.
 
 }

collects/racunit/tool.rkt

@@ -11,7 +11,7 @@
 ;; CONSTANTS
 
 (define BACKTRACE-NO-MESSAGE "No message.")
-(define LINK-MODULE-SPEC 'rktunit/private/gui/drracket-link)
+(define LINK-MODULE-SPEC 'racunit/private/gui/drracket-link)
 
 (define-namespace-anchor drracket-ns-anchor)
 

collects/schemeunit/gui.rkt

@@ -1,3 +1,3 @@
 #lang racket
-(require rktunit/gui)
+(require racunit/gui)
-(provide (all-from-out rktunit/gui))
+(provide (all-from-out racunit/gui))

collects/schemeunit/text-ui.rkt

@@ -1,3 +1,3 @@
 #lang racket
-(require rktunit/text-ui)
+(require racunit/text-ui)
-(provide (all-from-out rktunit/text-ui))
+(provide (all-from-out racunit/text-ui))

collects/tests/racunit/all-racunit-tests.rkt

@@ -1,6 +1,6 @@
 #lang racket/base
 
-(require rktunit
+(require racunit
          "check-test.rkt"
          "check-info-test.rkt"
          "format-test.rkt"
@@ -17,12 +17,12 @@
          "counter-test.rkt"
          "text-ui-util-test.rkt")
 
-(provide all-rktunit-tests
+(provide all-racunit-tests
          failure-tests)
 
-(define all-rktunit-tests
+(define all-racunit-tests
   (test-suite
-   "All RktUnit Tests"
+   "All RacUnit Tests"
    check-tests
    base-tests
    check-info-tests

collects/tests/racunit/base-test.rkt

@@ -28,8 +28,8 @@
 
 #lang racket/base
 
-(require rktunit
+(require racunit
-         rktunit/private/base)
+         racunit/private/base)
 
 (provide base-tests)
 
@@ -37,45 +37,45 @@
   (test-suite
    "All tests for base"
    (test-case
-    "rktunit-test-case structure has a contract on name"
+    "racunit-test-case structure has a contract on name"
     (check-exn exn:fail?
                (lambda ()
-                 (make-rktunit-test-case
+                 (make-racunit-test-case
                   'foo
                   (lambda () #t)))))
    (test-case
-    "rktunit-test-case structure has a contract on action"
+    "racunit-test-case structure has a contract on action"
     (check-exn exn:fail?
                (lambda ()
-                 (make-rktunit-test-case
+                 (make-racunit-test-case
                   "Name"
                   #f))))
    (test-case
-    "rktunit-test-suite has a contract on its fields"
+    "racunit-test-suite has a contract on its fields"
     (check-exn exn:fail?
                (lambda ()
-                 (make-rktunit-test-suite
+                 (make-racunit-test-suite
                   #f
                   (list)
                   (lambda () 3)
                   (lambda () 2))))
     (check-exn exn:fail?
                (lambda ()
-                 (make-rktunit-test-suite
+                 (make-racunit-test-suite
                   "Name"
                   #f
                   (lambda () 3)
                   (lambda () 2))))
     (check-exn exn:fail?
                (lambda ()
-                 (make-rktunit-test-suite
+                 (make-racunit-test-suite
                   "Name"
                   (list)
                   #f
                   (lambda () 2))))
     (check-exn exn:fail?
                (lambda ()
-                 (make-rktunit-test-suite
+                 (make-racunit-test-suite
                   "Name"
                   (list)
                   (lambda () 3)

collects/tests/racunit/check-info-test.rkt

@@ -4,20 +4,20 @@
 ;;;
 ;;; Copyright (C) 2003 by Noel Welsh. 
 ;;;
-;;; This file is part of RktUnit.
+;;; This file is part of RacUnit.
 
-;;; RktUnit is free software; you can redistribute it and/or
+;;; RacUnit is free software; you can redistribute it and/or
 ;;; modify it under the terms of the GNU Lesser General Public
 ;;; License as published by the Free Software Foundation; either
 ;;; version 2.1 of the License, or (at your option) any later version.
 
-;;; RktUnitis distributed in the hope that it will be useful,
+;;; RacUnitis distributed in the hope that it will be useful,
 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 ;;; Lesser General Public License for more details.
 
 ;;; You should have received a copy of the GNU Lesser General Public
-;;; License along with RktUnit; if not, write to the Free Software
+;;; License along with RacUnit; if not, write to the Free Software
 ;;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307  USA
 
 ;;; Author: Noel Welsh <noelwelsh@yahoo.com>
@@ -27,8 +27,8 @@
 
 #lang racket/base
 
-(require rktunit
+(require racunit
-         rktunit/private/check-info)
+         racunit/private/check-info)
 
 (provide check-info-tests)
 

collects/tests/racunit/check-test.rkt

@@ -30,10 +30,10 @@
 
 (require racket/runtime-path
          srfi/1
-         rktunit
+         racunit
-         rktunit/private/check
+         racunit/private/check
-         rktunit/private/result
+         racunit/private/result
-         rktunit/private/test-suite)
+         racunit/private/test-suite)
 
 (provide check-tests)
 
@@ -288,7 +288,7 @@
           (cns (current-namespace)))
       (parameterize ((current-namespace destns))
         (namespace-require '(for-syntax racket/base))
-        (namespace-require 'rktunit/private/check)
+        (namespace-require 'racunit/private/check)
         ;; First check that the right check macro got
         ;; used: ie that it didn't just compile the thing
         ;; as an application.

collects/tests/racunit/counter-test.rkt

@@ -28,10 +28,10 @@
 #lang racket/base
 
 (require racket/match
-         rktunit
+         racunit
-         rktunit/private/counter
+         racunit/private/counter
-         rktunit/private/monad
+         racunit/private/monad
-         rktunit/private/hash-monad)
+         racunit/private/hash-monad)
 
 (provide counter-tests)
 

collects/tests/racunit/format-test.rkt

@@ -1,8 +1,8 @@
 #lang racket/base
 
-(require rktunit
+(require racunit
-         rktunit/private/check-info
+         racunit/private/check-info
-         rktunit/private/format)
+         racunit/private/format)
 
 (provide format-tests)
 

collects/tests/racunit/hash-monad-test.rkt

@@ -28,9 +28,9 @@
 
 #lang racket/base
 
-(require rktunit
+(require racunit
-         rktunit/private/monad
+         racunit/private/monad
-         rktunit/private/hash-monad)
+         racunit/private/hash-monad)
 
 (provide hash-monad-tests)
 

collects/tests/racunit/location-test.rkt

@@ -27,8 +27,8 @@
 ;; Commentary:
 #lang racket/base
 
-(require rktunit
+(require racunit
-         rktunit/private/location)
+         racunit/private/location)
 
 (provide location-tests)
 

collects/tests/racunit/monad-test.rkt

@@ -29,8 +29,8 @@
 
 #lang racket/base
 
-(require rktunit
+(require racunit
-         rktunit/private/monad)
+         racunit/private/monad)
 
 (provide monad-tests)
 

collects/tests/racunit/result-test.rkt

@@ -1,7 +1,7 @@
 #lang racket/base
 
-(require rktunit
+(require racunit
-         rktunit/private/result)
+         racunit/private/result)
 
 (provide result-tests)
   

collects/tests/racunit/run-tests.rkt

@@ -1,10 +1,10 @@
 #lang racket/base
 
-(require rktunit
+(require racunit
-         rktunit/text-ui
+         racunit/text-ui
-         "all-rktunit-tests.rkt")
+         "all-racunit-tests.rkt")
 
-(run-tests all-rktunit-tests)
+(run-tests all-racunit-tests)
 
 ;; These tests should all error, so we switch the meaning of correct and incorrect. If the error display changes significantly, DrDr will catch it
 (parameterize ([current-error-port (current-output-port)]

collects/tests/racunit/standalone-check-test.rkt

@@ -31,7 +31,7 @@
 
 #lang racket/base
 
-(require rktunit/private/check)
+(require racunit/private/check)
 
 ;; This check should succeed
 (check = 1 1 0.0)

collects/tests/racunit/standalone-test-case-test.rkt

@@ -4,8 +4,8 @@
 
 #lang racket/base
 
-(require rktunit/private/check
+(require racunit/private/check
-         rktunit/private/test-case)
+         racunit/private/test-case)
 
 ;; These tests should succeeds
 (test-begin (check-eq? 1 1))

collects/tests/racunit/test-case-test.rkt

@@ -1,10 +1,10 @@
 #lang racket/base
 
-(require rktunit/private/base
+(require racunit/private/base
-         rktunit/private/check
+         racunit/private/check
-         rktunit/private/test-case
+         racunit/private/test-case
-         rktunit/private/test-suite
+         racunit/private/test-suite
-         rktunit/private/result)
+         racunit/private/result)
 
 (provide test-case-tests)
 

collects/tests/racunit/test-suite-test.rkt

@@ -1,7 +1,7 @@
 #lang racket/base
 
-(require rktunit
+(require racunit
-         rktunit/private/check)
+         racunit/private/check)
 
 (define run? #f)
 

collects/tests/racunit/test-test.rkt

@@ -4,9 +4,9 @@
          racket/runtime-path
          srfi/1
          srfi/13
-         rktunit
+         racunit
-         rktunit/private/util
+         racunit/private/util
-         rktunit/private/location)
+         racunit/private/location)
 
 (provide test-tests)
 
@@ -43,7 +43,7 @@
   (let ((destns (make-base-namespace))
         (cns (current-namespace)))
     (parameterize ((current-namespace destns))
-      (namespace-require 'rktunit)
+      (namespace-require 'racunit)
       (check-exn (lambda (e)
                    (check-pred exn:fail:syntax? e)
                    (check string-contains (exn-message e) msg))

collects/tests/racunit/text-ui-test.rkt

@@ -33,8 +33,8 @@
          racket/port
          srfi/1
          srfi/13
-         rktunit
+         racunit
-         rktunit/text-ui)
+         racunit/text-ui)
 
 (provide text-ui-tests)
 
@@ -119,9 +119,9 @@
                 (with-all-output-to-string (failing-binary-test/complex-params)))])
       (check string-contains
              op
-             "(`(0 1 2 3 4 5 6 7 8 9 10 11 12 13 14)
+             "`((0 1 2 3 4 5 6 7 8 9 10 11 12 13 14)
- `(0 1 2 3 4 5 6 7 8 9 10 11 12 13 14)
+ (0 1 2 3 4 5 6 7 8 9 10 11 12 13 14)
- `(0 1 2 3 4 5 6 7 8 9 10 11 12 13 14))")))
+ (0 1 2 3 4 5 6 7 8 9 10 11 12 13 14))")))
    
    (test-case
     "Non-binary check output is pretty printed"
@@ -129,9 +129,9 @@
                 (with-all-output-to-string (failing-test/complex-params)))])
       (check string-contains
              op
-             "(`(0 1 2 3 4 5 6 7 8 9 10 11 12 13 14)
+             "`((0 1 2 3 4 5 6 7 8 9 10 11 12 13 14)
- `(0 1 2 3 4 5 6 7 8 9 10 11 12 13 14)
+ (0 1 2 3 4 5 6 7 8 9 10 11 12 13 14)
- `(0 1 2 3 4 5 6 7 8 9 10 11 12 13 14))")))
+ (0 1 2 3 4 5 6 7 8 9 10 11 12 13 14))")))
    
    (test-case
     "Location trimmed when file is under current directory"

collects/tests/racunit/text-ui-util-test.rkt

@@ -27,8 +27,8 @@
 ;; Commentary:
 #lang racket/base
 
-(require rktunit
+(require racunit
-         rktunit/private/text-ui-util)
+         racunit/private/text-ui-util)
 
 (provide text-ui-util-tests)
 

collects/tests/racunit/util-test.rkt

@@ -1,7 +1,7 @@
 #lang racket/base
 
-(require rktunit
+(require racunit
-         rktunit/private/util)
+         racunit/private/util)
 
 (provide util-tests)
 
@@ -21,7 +21,7 @@
       (check-true (procedure? make-failure-test))
       (check-equal? (make-arity-at-least 2)
                     (procedure-arity make-failure-test))
-      (check-pred rktunit-test-case?
+      (check-pred racunit-test-case?
                   (delay-test (make-failure-test "foo" string?)))))
    
    (test-case