diff --git a/collects/rktunit/gui.rkt b/collects/racunit/gui.rkt similarity index 84% rename from collects/rktunit/gui.rkt rename to collects/racunit/gui.rkt index 0b57fd6..8daff1a 100644 --- a/collects/rktunit/gui.rkt +++ b/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 diff --git a/collects/rktunit/main.rkt b/collects/racunit/main.rkt similarity index 100% rename from collects/rktunit/main.rkt rename to collects/racunit/main.rkt diff --git a/collects/rktunit/private/base.rkt b/collects/racunit/private/base.rkt similarity index 82% rename from collects/rktunit/private/base.rkt rename to collects/racunit/private/base.rkt index bb87c10..6809635 100644 --- a/collects/rktunit/private/base.rkt +++ b/collects/racunit/private/base.rkt @@ -4,10 +4,10 @@ ;; struct test : (define-struct test ()) -;; struct (rktunit-test-case test) : (U string #f) thunk -(define-struct (rktunit-test-case test) (name action) #:transparent) -;; struct (rktunit-test-suite test) : string (fdown fup fhere seed -> (listof test-result)) thunk thunk -(define-struct (rktunit-test-suite test) (name tests before after) #:transparent) +;; struct (racunit-test-case test) : (U string #f) thunk +(define-struct (racunit-test-case test) (name action) #:transparent) +;; struct (racunit-test-suite test) : string (fdown fup fhere seed -> (listof test-result)) thunk thunk +(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)) diff --git a/collects/rktunit/private/check-info.rkt b/collects/racunit/private/check-info.rkt similarity index 97% rename from collects/rktunit/private/check-info.rkt rename to collects/racunit/private/check-info.rkt index 3b3ec4e..de98d71 100644 --- a/collects/rktunit/private/check-info.rkt +++ b/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) diff --git a/collects/rktunit/private/check.rkt b/collects/racunit/private/check.rkt similarity index 100% rename from collects/rktunit/private/check.rkt rename to collects/racunit/private/check.rkt diff --git a/collects/rktunit/private/counter.rkt b/collects/racunit/private/counter.rkt similarity index 100% rename from collects/rktunit/private/counter.rkt rename to collects/racunit/private/counter.rkt diff --git a/collects/rktunit/private/format.rkt b/collects/racunit/private/format.rkt similarity index 100% rename from collects/rktunit/private/format.rkt rename to collects/racunit/private/format.rkt diff --git a/collects/rktunit/private/gui/cache-box.rkt b/collects/racunit/private/gui/cache-box.rkt similarity index 100% rename from collects/rktunit/private/gui/cache-box.rkt rename to collects/racunit/private/gui/cache-box.rkt diff --git a/collects/rktunit/private/gui/config.rkt b/collects/racunit/private/gui/config.rkt similarity index 78% rename from collects/rktunit/private/gui/config.rkt rename to collects/racunit/private/gui/config.rkt index c0123ee..1d843d9 100644 --- a/collects/rktunit/private/gui/config.rkt +++ b/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 'rktunit:frame:height 400 exact-positive-integer?) -(define pref:width (pref:get/set 'rktunit:frame:width)) -(define pref:height (pref:get/set 'rktunit:frame:height)) +(preferences:set-default 'racunit:frame:width 400 exact-positive-integer?) +(preferences:set-default 'racunit:frame:height 400 exact-positive-integer?) +(define pref:width (pref:get/set 'racunit:frame:width)) +(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) diff --git a/collects/rktunit/private/gui/controller.rkt b/collects/racunit/private/gui/controller.rkt similarity index 87% rename from collects/rktunit/private/gui/controller.rkt rename to collects/racunit/private/gui/controller.rkt index edcd4be..46a0834 100644 --- a/collects/rktunit/private/gui/controller.rkt +++ b/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) "")) (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) "")) (parent parent))])) (send/i view view<%> create-view-link result parent) diff --git a/collects/rktunit/private/gui/drracket-link.rkt b/collects/racunit/private/gui/drracket-link.rkt similarity index 100% rename from collects/rktunit/private/gui/drracket-link.rkt rename to collects/racunit/private/gui/drracket-link.rkt diff --git a/collects/rktunit/private/gui/drracket-ui.rkt b/collects/racunit/private/gui/drracket-ui.rkt similarity index 100% rename from collects/rktunit/private/gui/drracket-ui.rkt rename to collects/racunit/private/gui/drracket-ui.rkt diff --git a/collects/rktunit/private/gui/gui.rkt b/collects/racunit/private/gui/gui.rkt similarity index 95% rename from collects/rktunit/private/gui/gui.rkt rename to collects/racunit/private/gui/gui.rkt index 782875f..e5a5c41 100644 --- a/collects/rktunit/private/gui/gui.rkt +++ b/collects/racunit/private/gui/gui.rkt @@ -48,8 +48,8 @@ #| (define/public (run) (let ([custodian (make-custodian)] - [before (rktunit-test-suite-before test)] - [after (rktunit-test-suite-after test)]) + [before (racunit-test-suite-before 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) - (rktunit-test-case-action test)))))]) + (list (racunit-test-case-name test) + (racunit-test-case-action test)))))]) (values (car results) (list cputime realtime gctime)))) (define (make-output-ports) diff --git a/collects/rktunit/private/gui/interfaces.rkt b/collects/racunit/private/gui/interfaces.rkt similarity index 100% rename from collects/rktunit/private/gui/interfaces.rkt rename to collects/racunit/private/gui/interfaces.rkt diff --git a/collects/rktunit/private/gui/model.rkt b/collects/racunit/private/gui/model.rkt similarity index 100% rename from collects/rktunit/private/gui/model.rkt rename to collects/racunit/private/gui/model.rkt diff --git a/collects/rktunit/private/gui/model2rml.rkt b/collects/racunit/private/gui/model2rml.rkt similarity index 100% rename from collects/rktunit/private/gui/model2rml.rkt rename to collects/racunit/private/gui/model2rml.rkt diff --git a/collects/rktunit/private/gui/output-icon.png b/collects/racunit/private/gui/output-icon.png similarity index 100% rename from collects/rktunit/private/gui/output-icon.png rename to collects/racunit/private/gui/output-icon.png diff --git a/collects/rktunit/private/gui/rml.rkt b/collects/racunit/private/gui/rml.rkt similarity index 96% rename from collects/rktunit/private/gui/rml.rkt rename to collects/racunit/private/gui/rml.rkt index 885958b..1b2b65b 100644 --- a/collects/rktunit/private/gui/rml.rkt +++ b/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<%> -(define rktunit-style-map +;; racunit-style-map : style-map<%> +(define racunit-style-map (extend-style-map basic-style-map - rktunit-styles)) + racunit-styles)) diff --git a/collects/rktunit/private/gui/view.rkt b/collects/racunit/private/gui/view.rkt similarity index 98% rename from collects/rktunit/private/gui/view.rkt rename to collects/racunit/private/gui/view.rkt index 0b840db..e3ab435 100644 --- a/collects/rktunit/private/gui/view.rkt +++ b/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)]))) diff --git a/collects/rktunit/private/hash-monad.rkt b/collects/racunit/private/hash-monad.rkt similarity index 100% rename from collects/rktunit/private/hash-monad.rkt rename to collects/racunit/private/hash-monad.rkt diff --git a/collects/rktunit/private/location.rkt b/collects/racunit/private/location.rkt similarity index 100% rename from collects/rktunit/private/location.rkt rename to collects/racunit/private/location.rkt diff --git a/collects/rktunit/private/monad.rkt b/collects/racunit/private/monad.rkt similarity index 100% rename from collects/rktunit/private/monad.rkt rename to collects/racunit/private/monad.rkt diff --git a/collects/rktunit/private/name-collector.rkt b/collects/racunit/private/name-collector.rkt similarity index 100% rename from collects/rktunit/private/name-collector.rkt rename to collects/racunit/private/name-collector.rkt diff --git a/collects/rktunit/private/result.rkt b/collects/racunit/private/result.rkt similarity index 96% rename from collects/rktunit/private/result.rkt rename to collects/racunit/private/result.rkt index 61a553f..208b39d 100644 --- a/collects/rktunit/private/result.rkt +++ b/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) - (rktunit-test-case-action test) + (racunit-test-case-name 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 diff --git a/collects/rktunit/private/test-case.rkt b/collects/racunit/private/test-case.rkt similarity index 100% rename from collects/rktunit/private/test-case.rkt rename to collects/racunit/private/test-case.rkt diff --git a/collects/rktunit/private/test-suite.rkt b/collects/racunit/private/test-suite.rkt similarity index 86% rename from collects/rktunit/private/test-suite.rkt rename to collects/racunit/private/test-suite.rkt index d59ef78..4b3aa1d 100644 --- a/collects/rktunit/private/test-suite.rkt +++ b/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)] - [tests (rktunit-test-suite-tests suite)] - [before (rktunit-test-suite-before suite)] - [after (rktunit-test-suite-after suite)] + (let* ([name (racunit-test-suite-name suite)] + [tests (racunit-test-suite-tests suite)] + [before (racunit-test-suite-before 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) - (rktunit-test-case-action t) + (racunit-test-case-name 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)) diff --git a/collects/rktunit/private/test.rkt b/collects/racunit/private/test.rkt similarity index 93% rename from collects/rktunit/private/test.rkt rename to collects/racunit/private/test.rkt index f6ad6fe..0fabb9f 100644 --- a/collects/rktunit/private/test.rkt +++ b/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 rktunit-test-suite) + (struct-out racunit-test-case) + (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] - [rktunit-test-case? test-case?] - [rktunit-test-suite? test-suite?]) + (rename-out [make-racunit-test-case make-test-case] + [racunit-test-case? test-case?] + [racunit-test-suite? test-suite?]) define-test-suite define/provide-test-suite diff --git a/collects/rktunit/private/text-ui-util.rkt b/collects/racunit/private/text-ui-util.rkt similarity index 100% rename from collects/rktunit/private/text-ui-util.rkt rename to collects/racunit/private/text-ui-util.rkt diff --git a/collects/rktunit/private/util.rkt b/collects/racunit/private/util.rkt similarity index 100% rename from collects/rktunit/private/util.rkt rename to collects/racunit/private/util.rkt diff --git a/collects/rktunit/scribblings/acknowledgements.scrbl b/collects/racunit/scribblings/acknowledgements.scrbl similarity index 87% rename from collects/rktunit/scribblings/acknowledgements.scrbl rename to collects/racunit/scribblings/acknowledgements.scrbl index 147afc0..bdab109 100644 --- a/collects/rktunit/scribblings/acknowledgements.scrbl +++ b/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 diff --git a/collects/rktunit/scribblings/api.scrbl b/collects/racunit/scribblings/api.scrbl similarity index 78% rename from collects/rktunit/scribblings/api.scrbl rename to collects/racunit/scribblings/api.scrbl index 33ef491..f99db73 100644 --- a/collects/rktunit/scribblings/api.scrbl +++ b/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 - #:use-sources (rktunit)] +@defmodule[racunit + #:use-sources (racunit)] @include-section["overview.scrbl"] @include-section["check.scrbl"] diff --git a/collects/rktunit/scribblings/base.rkt b/collects/racunit/scribblings/base.rkt similarity index 58% rename from collects/rktunit/scribblings/base.rkt rename to collects/racunit/scribblings/base.rkt index 8189c12..1fc6e25 100644 --- a/collects/rktunit/scribblings/base.rkt +++ b/collects/racunit/scribblings/base.rkt @@ -6,15 +6,15 @@ (for-label scheme/base scheme/contract - rktunit - rktunit/text-ui - rktunit/gui)) + racunit + racunit/text-ui + racunit/gui)) (provide (all-from-out scribble/eval scribble/manual) (for-label (all-from-out scheme/base scheme/contract - rktunit - rktunit/text-ui - rktunit/gui))) + racunit + racunit/text-ui + racunit/gui))) diff --git a/collects/rktunit/scribblings/check.scrbl b/collects/racunit/scribblings/check.scrbl similarity index 99% rename from collects/rktunit/scribblings/check.scrbl rename to collects/racunit/scribblings/check.scrbl index 80de0ae..d95924c 100644 --- a/collects/rktunit/scribblings/check.scrbl +++ b/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)) diff --git a/collects/rktunit/scribblings/compound-testing.scrbl b/collects/racunit/scribblings/compound-testing.scrbl similarity index 99% rename from collects/rktunit/scribblings/compound-testing.scrbl rename to collects/racunit/scribblings/compound-testing.scrbl index 1879fe7..8a0fb71 100644 --- a/collects/rktunit/scribblings/compound-testing.scrbl +++ b/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.} } diff --git a/collects/rktunit/scribblings/control-flow.scrbl b/collects/racunit/scribblings/control-flow.scrbl similarity index 96% rename from collects/rktunit/scribblings/control-flow.scrbl rename to collects/racunit/scribblings/control-flow.scrbl index 68f64ca..59758d4 100644 --- a/collects/rktunit/scribblings/control-flow.scrbl +++ b/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.} diff --git a/collects/rktunit/scribblings/file-test.rkt b/collects/racunit/scribblings/file-test.rkt similarity index 96% rename from collects/rktunit/scribblings/file-test.rkt rename to collects/racunit/scribblings/file-test.rkt index 1841364..ce3df27 100644 --- a/collects/rktunit/scribblings/file-test.rkt +++ b/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) diff --git a/collects/rktunit/scribblings/file.rkt b/collects/racunit/scribblings/file.rkt similarity index 100% rename from collects/rktunit/scribblings/file.rkt rename to collects/racunit/scribblings/file.rkt diff --git a/collects/rktunit/scribblings/misc.scrbl b/collects/racunit/scribblings/misc.scrbl similarity index 89% rename from collects/rktunit/scribblings/misc.scrbl rename to collects/racunit/scribblings/misc.scrbl index 264abdf..64bd792 100644 --- a/collects/rktunit/scribblings/misc.scrbl +++ b/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)) ] diff --git a/collects/rktunit/scribblings/overview.scrbl b/collects/racunit/scribblings/overview.scrbl similarity index 84% rename from collects/rktunit/scribblings/overview.scrbl rename to collects/racunit/scribblings/overview.scrbl index 3d1efa6..8645271 100644 --- a/collects/rktunit/scribblings/overview.scrbl +++ b/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[ diff --git a/collects/rktunit/scribblings/philosophy.scrbl b/collects/racunit/scribblings/philosophy.scrbl similarity index 84% rename from collects/rktunit/scribblings/philosophy.scrbl rename to collects/racunit/scribblings/philosophy.scrbl index 359e90e..bf776e6 100644 --- a/collects/rktunit/scribblings/philosophy.scrbl +++ b/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 -the evolution of the program under testing. RktUnit +RacUnit is designed to allow tests to evolve in step with +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. diff --git a/collects/rktunit/scribblings/quick-start.scrbl b/collects/racunit/scribblings/quick-start.scrbl similarity index 87% rename from collects/rktunit/scribblings/quick-start.scrbl rename to collects/racunit/scribblings/quick-start.scrbl index 2e0bea8..af4dc31 100644 --- a/collects/rktunit/scribblings/quick-start.scrbl +++ b/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: (# 14 6 252 22) +location: (# 14 6 252 22) expression: (check-pred even? elt) params: (# 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! diff --git a/collects/rktunit/scribblings/rktunit.scrbl b/collects/racunit/scribblings/racunit.scrbl similarity index 82% rename from collects/rktunit/scribblings/rktunit.scrbl rename to collects/racunit/scribblings/racunit.scrbl index 0bb06f1..aa98ed2 100644 --- a/collects/rktunit/scribblings/rktunit.scrbl +++ b/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. diff --git a/collects/rktunit/scribblings/release-notes.scrbl b/collects/racunit/scribblings/release-notes.scrbl similarity index 95% rename from collects/rktunit/scribblings/release-notes.scrbl rename to collects/racunit/scribblings/release-notes.scrbl index af5b2d5..2015dc4 100644 --- a/collects/rktunit/scribblings/release-notes.scrbl +++ b/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 diff --git a/collects/rktunit/scribblings/ui.scrbl b/collects/racunit/scribblings/ui.scrbl similarity index 75% rename from collects/rktunit/scribblings/ui.scrbl rename to collects/racunit/scribblings/ui.scrbl index e070e66..460965d 100644 --- a/collects/rktunit/scribblings/ui.scrbl +++ b/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 -@racketmodname[rktunit/gui] module. +RacUnit also provides a GUI test runner, available from the +@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. } diff --git a/collects/rktunit/text-ui.rkt b/collects/racunit/text-ui.rkt similarity index 100% rename from collects/rktunit/text-ui.rkt rename to collects/racunit/text-ui.rkt diff --git a/collects/rktunit/tool.rkt b/collects/racunit/tool.rkt similarity index 97% rename from collects/rktunit/tool.rkt rename to collects/racunit/tool.rkt index a48f637..d725be0 100644 --- a/collects/rktunit/tool.rkt +++ b/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) diff --git a/collects/schemeunit/gui.rkt b/collects/schemeunit/gui.rkt index 5b3a672..bd856a0 100644 --- a/collects/schemeunit/gui.rkt +++ b/collects/schemeunit/gui.rkt @@ -1,3 +1,3 @@ #lang racket -(require rktunit/gui) -(provide (all-from-out rktunit/gui)) \ No newline at end of file +(require racunit/gui) +(provide (all-from-out racunit/gui)) diff --git a/collects/schemeunit/text-ui.rkt b/collects/schemeunit/text-ui.rkt index 1ede14a..619faa2 100644 --- a/collects/schemeunit/text-ui.rkt +++ b/collects/schemeunit/text-ui.rkt @@ -1,3 +1,3 @@ #lang racket -(require rktunit/text-ui) -(provide (all-from-out rktunit/text-ui)) \ No newline at end of file +(require racunit/text-ui) +(provide (all-from-out racunit/text-ui)) diff --git a/collects/tests/rktunit/all-rktunit-tests.rkt b/collects/tests/racunit/all-racunit-tests.rkt similarity index 92% rename from collects/tests/rktunit/all-rktunit-tests.rkt rename to collects/tests/racunit/all-racunit-tests.rkt index baf8d3c..2151ae4 100644 --- a/collects/tests/rktunit/all-rktunit-tests.rkt +++ b/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 diff --git a/collects/tests/rktunit/base-test.rkt b/collects/tests/racunit/base-test.rkt similarity index 80% rename from collects/tests/rktunit/base-test.rkt rename to collects/tests/racunit/base-test.rkt index 3c81db7..fe7b256 100644 --- a/collects/tests/rktunit/base-test.rkt +++ b/collects/tests/racunit/base-test.rkt @@ -28,8 +28,8 @@ #lang racket/base -(require rktunit - rktunit/private/base) +(require racunit + 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) diff --git a/collects/tests/rktunit/check-info-test.rkt b/collects/tests/racunit/check-info-test.rkt similarity index 91% rename from collects/tests/rktunit/check-info-test.rkt rename to collects/tests/racunit/check-info-test.rkt index 6cb5a6d..9b0ff44 100644 --- a/collects/tests/rktunit/check-info-test.rkt +++ b/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 @@ -27,8 +27,8 @@ #lang racket/base -(require rktunit - rktunit/private/check-info) +(require racunit + racunit/private/check-info) (provide check-info-tests) diff --git a/collects/tests/rktunit/check-test.rkt b/collects/tests/racunit/check-test.rkt similarity index 98% rename from collects/tests/rktunit/check-test.rkt rename to collects/tests/racunit/check-test.rkt index fd2029c..1ca69fc 100644 --- a/collects/tests/rktunit/check-test.rkt +++ b/collects/tests/racunit/check-test.rkt @@ -30,10 +30,10 @@ (require racket/runtime-path srfi/1 - rktunit - rktunit/private/check - rktunit/private/result - rktunit/private/test-suite) + racunit + racunit/private/check + racunit/private/result + 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. diff --git a/collects/tests/rktunit/counter-test.rkt b/collects/tests/racunit/counter-test.rkt similarity index 93% rename from collects/tests/rktunit/counter-test.rkt rename to collects/tests/racunit/counter-test.rkt index 516a391..2d32f79 100644 --- a/collects/tests/rktunit/counter-test.rkt +++ b/collects/tests/racunit/counter-test.rkt @@ -28,10 +28,10 @@ #lang racket/base (require racket/match - rktunit - rktunit/private/counter - rktunit/private/monad - rktunit/private/hash-monad) + racunit + racunit/private/counter + racunit/private/monad + racunit/private/hash-monad) (provide counter-tests) diff --git a/collects/tests/rktunit/format-test.rkt b/collects/tests/racunit/format-test.rkt similarity index 87% rename from collects/tests/rktunit/format-test.rkt rename to collects/tests/racunit/format-test.rkt index 9ac98b1..6adc10a 100644 --- a/collects/tests/rktunit/format-test.rkt +++ b/collects/tests/racunit/format-test.rkt @@ -1,8 +1,8 @@ #lang racket/base -(require rktunit - rktunit/private/check-info - rktunit/private/format) +(require racunit + racunit/private/check-info + racunit/private/format) (provide format-tests) diff --git a/collects/tests/rktunit/hash-monad-test.rkt b/collects/tests/racunit/hash-monad-test.rkt similarity index 95% rename from collects/tests/rktunit/hash-monad-test.rkt rename to collects/tests/racunit/hash-monad-test.rkt index cb9eecc..6326802 100644 --- a/collects/tests/rktunit/hash-monad-test.rkt +++ b/collects/tests/racunit/hash-monad-test.rkt @@ -28,9 +28,9 @@ #lang racket/base -(require rktunit - rktunit/private/monad - rktunit/private/hash-monad) +(require racunit + racunit/private/monad + racunit/private/hash-monad) (provide hash-monad-tests) diff --git a/collects/tests/rktunit/location-test.rkt b/collects/tests/racunit/location-test.rkt similarity index 98% rename from collects/tests/rktunit/location-test.rkt rename to collects/tests/racunit/location-test.rkt index 22ebbc2..35740c6 100644 --- a/collects/tests/rktunit/location-test.rkt +++ b/collects/tests/racunit/location-test.rkt @@ -27,8 +27,8 @@ ;; Commentary: #lang racket/base -(require rktunit - rktunit/private/location) +(require racunit + racunit/private/location) (provide location-tests) diff --git a/collects/tests/rktunit/monad-test.rkt b/collects/tests/racunit/monad-test.rkt similarity index 98% rename from collects/tests/rktunit/monad-test.rkt rename to collects/tests/racunit/monad-test.rkt index 7aeaa5b..0672e87 100644 --- a/collects/tests/rktunit/monad-test.rkt +++ b/collects/tests/racunit/monad-test.rkt @@ -29,8 +29,8 @@ #lang racket/base -(require rktunit - rktunit/private/monad) +(require racunit + racunit/private/monad) (provide monad-tests) diff --git a/collects/tests/rktunit/result-test.rkt b/collects/tests/racunit/result-test.rkt similarity index 95% rename from collects/tests/rktunit/result-test.rkt rename to collects/tests/racunit/result-test.rkt index a8534c1..a633fb4 100644 --- a/collects/tests/rktunit/result-test.rkt +++ b/collects/tests/racunit/result-test.rkt @@ -1,7 +1,7 @@ #lang racket/base -(require rktunit - rktunit/private/result) +(require racunit + racunit/private/result) (provide result-tests) diff --git a/collects/tests/rktunit/run-tests.rkt b/collects/tests/racunit/run-tests.rkt similarity index 74% rename from collects/tests/rktunit/run-tests.rkt rename to collects/tests/racunit/run-tests.rkt index 66f89fd..45c8ccc 100644 --- a/collects/tests/rktunit/run-tests.rkt +++ b/collects/tests/racunit/run-tests.rkt @@ -1,10 +1,10 @@ #lang racket/base -(require rktunit - rktunit/text-ui - "all-rktunit-tests.rkt") +(require racunit + racunit/text-ui + "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)] diff --git a/collects/tests/rktunit/standalone-check-test.rkt b/collects/tests/racunit/standalone-check-test.rkt similarity index 98% rename from collects/tests/rktunit/standalone-check-test.rkt rename to collects/tests/racunit/standalone-check-test.rkt index 9c6615a..454bfe9 100644 --- a/collects/tests/rktunit/standalone-check-test.rkt +++ b/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) diff --git a/collects/tests/rktunit/standalone-test-case-test.rkt b/collects/tests/racunit/standalone-test-case-test.rkt similarity index 88% rename from collects/tests/rktunit/standalone-test-case-test.rkt rename to collects/tests/racunit/standalone-test-case-test.rkt index 816f082..018bd46 100644 --- a/collects/tests/rktunit/standalone-test-case-test.rkt +++ b/collects/tests/racunit/standalone-test-case-test.rkt @@ -4,8 +4,8 @@ #lang racket/base -(require rktunit/private/check - rktunit/private/test-case) +(require racunit/private/check + racunit/private/test-case) ;; These tests should succeeds (test-begin (check-eq? 1 1)) diff --git a/collects/tests/rktunit/test-case-test.rkt b/collects/tests/racunit/test-case-test.rkt similarity index 86% rename from collects/tests/rktunit/test-case-test.rkt rename to collects/tests/racunit/test-case-test.rkt index 66fed4c..07ca05f 100644 --- a/collects/tests/rktunit/test-case-test.rkt +++ b/collects/tests/racunit/test-case-test.rkt @@ -1,10 +1,10 @@ #lang racket/base -(require rktunit/private/base - rktunit/private/check - rktunit/private/test-case - rktunit/private/test-suite - rktunit/private/result) +(require racunit/private/base + racunit/private/check + racunit/private/test-case + racunit/private/test-suite + racunit/private/result) (provide test-case-tests) diff --git a/collects/tests/rktunit/test-suite-test.rkt b/collects/tests/racunit/test-suite-test.rkt similarity index 97% rename from collects/tests/rktunit/test-suite-test.rkt rename to collects/tests/racunit/test-suite-test.rkt index de7dd55..0d1ed9d 100644 --- a/collects/tests/rktunit/test-suite-test.rkt +++ b/collects/tests/racunit/test-suite-test.rkt @@ -1,7 +1,7 @@ #lang racket/base -(require rktunit - rktunit/private/check) +(require racunit + racunit/private/check) (define run? #f) diff --git a/collects/tests/rktunit/test-test.rkt b/collects/tests/racunit/test-test.rkt similarity index 98% rename from collects/tests/rktunit/test-test.rkt rename to collects/tests/racunit/test-test.rkt index f83dd15..148a685 100644 --- a/collects/tests/rktunit/test-test.rkt +++ b/collects/tests/racunit/test-test.rkt @@ -4,9 +4,9 @@ racket/runtime-path srfi/1 srfi/13 - rktunit - rktunit/private/util - rktunit/private/location) + racunit + racunit/private/util + 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)) diff --git a/collects/tests/rktunit/text-ui-test.rkt b/collects/tests/racunit/text-ui-test.rkt similarity index 95% rename from collects/tests/rktunit/text-ui-test.rkt rename to collects/tests/racunit/text-ui-test.rkt index 1d9a0d9..d8766dd 100644 --- a/collects/tests/rktunit/text-ui-test.rkt +++ b/collects/tests/racunit/text-ui-test.rkt @@ -33,8 +33,8 @@ racket/port srfi/1 srfi/13 - rktunit - rktunit/text-ui) + racunit + 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" diff --git a/collects/tests/rktunit/text-ui-util-test.rkt b/collects/tests/racunit/text-ui-util-test.rkt similarity index 96% rename from collects/tests/rktunit/text-ui-util-test.rkt rename to collects/tests/racunit/text-ui-util-test.rkt index 2cb1362..931845f 100644 --- a/collects/tests/rktunit/text-ui-util-test.rkt +++ b/collects/tests/racunit/text-ui-util-test.rkt @@ -27,8 +27,8 @@ ;; Commentary: #lang racket/base -(require rktunit - rktunit/private/text-ui-util) +(require racunit + racunit/private/text-ui-util) (provide text-ui-util-tests) diff --git a/collects/tests/rktunit/util-test.rkt b/collects/tests/racunit/util-test.rkt similarity index 94% rename from collects/tests/rktunit/util-test.rkt rename to collects/tests/racunit/util-test.rkt index b1c5345..bc054cc 100644 --- a/collects/tests/rktunit/util-test.rkt +++ b/collects/tests/racunit/util-test.rkt @@ -1,7 +1,7 @@ #lang racket/base -(require rktunit - rktunit/private/util) +(require racunit + 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