move some helper files into the private/ directory for drracket tests

This commit is contained in:
Robby Findler 2011-08-17 06:19:23 -05:00
parent 9495145ea5
commit a221e4bba2
20 changed files with 20 additions and 20 deletions

View File

@ -1,5 +1,5 @@
#lang racket/base #lang racket/base
(require "drracket-test-util.rkt" (require "private/drracket-test-util.rkt"
scribblings/tools/example-src scribblings/tools/example-src
racket/unit racket/unit
racket/gui/base racket/gui/base

View File

@ -1,5 +1,5 @@
#lang racket/base #lang racket/base
(require "drracket-test-util.rkt" (require "private/drracket-test-util.rkt"
racket/class) racket/class)
(fire-up-drscheme-and-run-tests (fire-up-drscheme-and-run-tests

View File

@ -12,7 +12,7 @@ add this test:
|# |#
(require "drracket-test-util.rkt" (require "private/drracket-test-util.rkt"
tests/utils/gui tests/utils/gui
mzlib/class mzlib/class
mzlib/pretty mzlib/pretty

View File

@ -14,7 +14,7 @@ the settings above should match r5rs
|# |#
(require "drracket-test-util.rkt" (require "private/drracket-test-util.rkt"
tests/utils/gui tests/utils/gui
mred mred
framework framework

View File

@ -1,5 +1,5 @@
#lang racket #lang racket
(require "drracket-test-util.rkt" (require "private/drracket-test-util.rkt"
framework) framework)
(parameterize ([current-command-line-arguments '#()]) (parameterize ([current-command-line-arguments '#()])

View File

@ -1,5 +1,5 @@
#lang racket/base #lang racket/base
(require "drracket-test-util.rkt" (require "private/drracket-test-util.rkt"
racket/gui/base racket/gui/base
racket/class racket/class
framework/test) framework/test)

View File

@ -1,5 +1,5 @@
#lang scheme/gui #lang scheme/gui
(require "drracket-test-util.rkt" mzlib/etc framework scheme/string) (require "private/drracket-test-util.rkt" mzlib/etc framework scheme/string)
(provide test t rx run-test in-here write-test-modules) (provide test t rx run-test in-here write-test-modules)

View File

@ -1,5 +1,5 @@
#lang racket/base #lang racket/base
(require "../drracket-test-util.rkt" (require "drracket-test-util.rkt"
setup/setup-unit setup/setup-unit
setup/option-sig setup/option-sig
setup/option-unit setup/option-unit

View File

@ -1,3 +1,3 @@
#lang scheme #lang racket/base
(require "randomly-click.rkt") (require "private/randomly-click.rkt")
(go 'language-dialog) (go 'language-dialog)

View File

@ -1,3 +1,3 @@
#lang scheme #lang racket/base
(require "randomly-click.rkt") (require "private/randomly-click.rkt")
(go 'preferences-dialog) (go 'preferences-dialog)

View File

@ -1,6 +1,6 @@
(module sample-solutions-one-window mzscheme (module sample-solutions-one-window mzscheme
(require "drracket-test-util.rkt" (require "private/drracket-test-util.rkt"
tests/utils/gui tests/utils/gui
mzlib/class mzlib/class
mzlib/list mzlib/list

View File

@ -2,7 +2,7 @@
(module stepper-test mzscheme (module stepper-test mzscheme
(require mred (require mred
mzlib/class mzlib/class
"drracket-test-util.rkt" "private/drracket-test-util.rkt"
tests/utils/gui tests/utils/gui
framework framework
mzlib/pretty) mzlib/pretty)

View File

@ -1,6 +1,6 @@
#lang racket/base #lang racket/base
(require "drracket-test-util.rkt" (require "private/drracket-test-util.rkt"
racket/class racket/class
framework) framework)

View File

@ -7,7 +7,7 @@ trigger runtime errors in check syntax.
|# |#
(require "drracket-test-util.rkt" (require "private/drracket-test-util.rkt"
string-constants/string-constant string-constants/string-constant
tests/utils/gui tests/utils/gui
racket/path racket/path

View File

@ -2,7 +2,7 @@
(require racket/gui/base (require racket/gui/base
racket/class racket/class
mrlib/text-string-style-desc mrlib/text-string-style-desc
"drracket-test-util.rkt" "private/drracket-test-util.rkt"
(for-syntax racket/base)) (for-syntax racket/base))
;; Test suite for the coverage annotations in the teaching languages. ;; Test suite for the coverage annotations in the teaching languages.

View File

@ -1,5 +1,5 @@
#lang racket #lang racket
(require "drracket-test-util.rkt") (require "private/drracket-test-util.rkt")
#| #|

View File

@ -1,6 +1,6 @@
#lang scheme/base #lang scheme/base
(require "drracket-test-util.rkt" (require "private/drracket-test-util.rkt"
scheme/class scheme/class
scheme/path scheme/path
scheme/gui/base scheme/gui/base

View File

@ -1,6 +1,6 @@
#lang racket #lang racket
(require "drracket-test-util.rkt" (require "private/drracket-test-util.rkt"
tests/utils/gui tests/utils/gui
mred mred
framework framework