suzanne.soy/rackunit
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

removed useless requires

Browse Source 
original commit: c7f86d276c68b12e87dc46cef4a8e1b95538f88d
This commit is contained in:
Ryan Culpepper 2011-09-25 17:35:04 -06:00
parent da4f8fc9f8
commit d24af2ea3f
19 changed files with 10 additions and 35 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/rackunit/gui.rkt
View File

@ -1,5 +1,5 @@
#lang racket/base #lang racket/base
(require racket/contract (require racket/contract/base
racket/gui/base racket/gui/base
"private/base.rkt" "private/base.rkt"
"private/gui/gui.rkt") "private/gui/gui.rkt")

3
collects/rackunit/private/base.rkt
View File

@ -1,6 +1,5 @@
#lang racket/base #lang racket/base
(require racket/contract/base)
(require racket/contract)
;; struct test : ;; struct test :
(define-struct test ()) (define-struct test ())

2
collects/rackunit/private/check-info.rkt
View File

@ -1,5 +1,5 @@
#lang racket/base #lang racket/base
(require racket/contract (require racket/contract/base
"location.rkt" "location.rkt"
(for-syntax racket/base (for-syntax racket/base
racket/syntax)) racket/syntax))

1
collects/rackunit/private/format.rkt
View File

@ -1,5 +1,4 @@
#lang racket/base #lang racket/base
(require racket/match (require racket/match
srfi/13 srfi/13
"base.rkt" "base.rkt"

2
collects/rackunit/private/gui/cache-box.rkt
View File

@ -1,5 +1,5 @@
#lang racket/base #lang racket/base
(require racket/contract) (require racket/contract/base)
;; Add a new kind of promise instead? ;; Add a new kind of promise instead?

2
collects/rackunit/private/gui/config.rkt
View File

@ -1,5 +1,5 @@
#lang racket/base #lang racket/base
(require framework (require framework/preferences
unstable/gui/prefs) unstable/gui/prefs)
(provide (all-defined-out)) (provide (all-defined-out))

3
collects/rackunit/private/gui/controller.rkt
View File

@ -4,8 +4,7 @@
unstable/gui/notify unstable/gui/notify
"../base.rkt" "../base.rkt"
"interfaces.rkt" "interfaces.rkt"
"model.rkt" "model.rkt")
"view.rkt")
(provide controller%) (provide controller%)
(define controller% (define controller%

4
collects/rackunit/private/gui/drracket-ui.rkt
View File

@ -1,7 +1,5 @@
#lang racket/base #lang racket/base
(require racket/list (require mzlib/etc
racket/string
mzlib/etc
"drracket-link.rkt") "drracket-link.rkt")
;; Procedures which *may* be overridden by DrRacket to do useful things. ;; Procedures which *may* be overridden by DrRacket to do useful things.

1
collects/rackunit/private/gui/gui.rkt
View File

@ -1,7 +1,6 @@
#lang racket/base #lang racket/base
(require racket/class (require racket/class
unstable/class-iop unstable/class-iop
racket/gui/base
"../base.rkt" "../base.rkt"
"../result.rkt" "../result.rkt"
"../check-info.rkt" "../check-info.rkt"

3
collects/rackunit/private/gui/interfaces.rkt
View File

@ -1,6 +1,5 @@
#lang racket/base #lang racket/base
(require racket/class (require unstable/class-iop)
unstable/class-iop)
(provide (all-defined-out)) (provide (all-defined-out))
;; controller ;; controller

1
collects/rackunit/private/gui/model.rkt
View File

@ -1,7 +1,6 @@
#lang racket/base #lang racket/base
(require racket/class (require racket/class
unstable/class-iop unstable/class-iop
racket/list
data/gvector data/gvector
"../base.rkt" "../base.rkt"
"interfaces.rkt" "interfaces.rkt"

2
collects/rackunit/private/gui/model2rml.rkt
View File

@ -1,10 +1,8 @@
#lang racket/base #lang racket/base
(require racket/class (require racket/class
unstable/class-iop unstable/class-iop
racket/list
racket/gui/base racket/gui/base
racket/match racket/match
racket/file
racket/path racket/path
mrlib/include-bitmap mrlib/include-bitmap
(prefix-in drlink: "drracket-ui.rkt") (prefix-in drlink: "drracket-ui.rkt")

1
collects/rackunit/private/gui/rml.rkt
View File

@ -1,6 +1,5 @@
#lang racket/base #lang racket/base
(require racket/class (require racket/class
unstable/class-iop
racket/gui/base racket/gui/base
framework framework
"interfaces.rkt") "interfaces.rkt")

1
collects/rackunit/private/gui/view.rkt
View File

@ -2,7 +2,6 @@
(require racket/class (require racket/class
unstable/class-iop unstable/class-iop
unstable/gui/notify unstable/gui/notify
racket/list
racket/gui/base racket/gui/base
framework framework
mrlib/hierlist mrlib/hierlist

2
collects/rackunit/private/location.rkt
View File

@ -1,6 +1,6 @@
#lang racket/base #lang racket/base
(require racket/list (require racket/list
racket/contract) racket/contract/base)
;; type location = (list any number/#f number/#f number/#f number/#f) ;; type location = (list any number/#f number/#f number/#f number/#f)
;; location : source line column position span ;; location : source line column position span

3
collects/rackunit/private/test-case.rkt
View File

@ -1,9 +1,6 @@
#lang racket/base #lang racket/base
(require (for-syntax racket/base) (require (for-syntax racket/base)
"base.rkt"
"format.rkt" "format.rkt"
"check-info.rkt"
"check.rkt") "check.rkt")
(provide current-test-name (provide current-test-name

5
collects/rackunit/private/text-ui-util.rkt
View File

@ -27,14 +27,9 @@
;; Commentary: ;; Commentary:
#lang racket/base #lang racket/base
(require (only-in srfi/13 string-contains string-drop))
(provide trim-current-directory) (provide trim-current-directory)
;; trim-current-directory : string -> string ;; trim-current-directory : string -> string
(define (trim-current-directory path) (define (trim-current-directory path)
(let ((cd (path->string (current-directory)))) (let ((cd (path->string (current-directory))))
(regexp-replace (regexp-quote cd) path ""))) (regexp-replace (regexp-quote cd) path "")))

6
collects/rackunit/text-ui.rkt
View File

@ -30,9 +30,6 @@
(require racket/match (require racket/match
racket/pretty racket/pretty
srfi/13
srfi/26
"main.rkt"
"private/base.rkt" "private/base.rkt"
"private/counter.rkt" "private/counter.rkt"
"private/format.rkt" "private/format.rkt"
@ -241,6 +238,5 @@
test)) test))
((normal) (std-test/text-ui display-context test)) ((normal) (std-test/text-ui display-context test))
((verbose) (std-test/text-ui ((verbose) (std-test/text-ui
(cut display-context <> #t) (lambda (x) (display-context x #t))
test)))))) test))))))

1
collects/rackunit/tool.rkt
View File

@ -1,7 +1,6 @@
#lang racket/base #lang racket/base
(require racket/class (require racket/class
racket/gui/base racket/gui/base
framework
drscheme/tool drscheme/tool
racket/unit) racket/unit)