From a221e4bba2f28ac75d2d0913592ab67c1eda0553 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 17 Aug 2011 06:19:23 -0500 Subject: [PATCH] move some helper files into the private/ directory for drracket tests --- collects/tests/drracket/example-tool.rkt | 2 +- collects/tests/drracket/hangman.rkt | 2 +- collects/tests/drracket/io.rkt | 2 +- collects/tests/drracket/language-test.rkt | 2 +- collects/tests/drracket/leaky-frame.rkt | 2 +- collects/tests/drracket/memory-log.rkt | 2 +- collects/tests/drracket/module-lang-test-utils.rkt | 2 +- collects/tests/drracket/{ => private}/drracket-test-util.rkt | 0 collects/tests/drracket/{ => private}/randomly-click.rkt | 0 collects/tests/drracket/private/run-example-tool.rkt | 2 +- collects/tests/drracket/randomly-click-language-dialog.rkt | 4 ++-- collects/tests/drracket/randomly-click-preferences.rkt | 4 ++-- collects/tests/drracket/sample-solutions-one-window.rkt | 2 +- collects/tests/drracket/stepper-test.rkt | 2 +- collects/tests/drracket/syncheck-eval-compile-time.rkt | 2 +- collects/tests/drracket/syncheck-test.rkt | 2 +- collects/tests/drracket/teaching-lang-coverage.rkt | 2 +- collects/tests/drracket/teaching-lang-sharing-modules.rkt | 2 +- collects/tests/drracket/teachpack.rkt | 2 +- collects/tests/drracket/test-engine-test.rkt | 2 +- 20 files changed, 20 insertions(+), 20 deletions(-) rename collects/tests/drracket/{ => private}/drracket-test-util.rkt (100%) rename collects/tests/drracket/{ => private}/randomly-click.rkt (100%) diff --git a/collects/tests/drracket/example-tool.rkt b/collects/tests/drracket/example-tool.rkt index 7ee8bc05e7..14caeb571c 100644 --- a/collects/tests/drracket/example-tool.rkt +++ b/collects/tests/drracket/example-tool.rkt @@ -1,5 +1,5 @@ #lang racket/base -(require "drracket-test-util.rkt" +(require "private/drracket-test-util.rkt" scribblings/tools/example-src racket/unit racket/gui/base diff --git a/collects/tests/drracket/hangman.rkt b/collects/tests/drracket/hangman.rkt index ea585bdbee..c29ee1facd 100644 --- a/collects/tests/drracket/hangman.rkt +++ b/collects/tests/drracket/hangman.rkt @@ -1,5 +1,5 @@ #lang racket/base -(require "drracket-test-util.rkt" +(require "private/drracket-test-util.rkt" racket/class) (fire-up-drscheme-and-run-tests diff --git a/collects/tests/drracket/io.rkt b/collects/tests/drracket/io.rkt index b1bbdd4dd1..78daee2b0d 100644 --- a/collects/tests/drracket/io.rkt +++ b/collects/tests/drracket/io.rkt @@ -12,7 +12,7 @@ add this test: |# -(require "drracket-test-util.rkt" +(require "private/drracket-test-util.rkt" tests/utils/gui mzlib/class mzlib/pretty diff --git a/collects/tests/drracket/language-test.rkt b/collects/tests/drracket/language-test.rkt index 2d43726807..a2a5b62f28 100644 --- a/collects/tests/drracket/language-test.rkt +++ b/collects/tests/drracket/language-test.rkt @@ -14,7 +14,7 @@ the settings above should match r5rs |# -(require "drracket-test-util.rkt" +(require "private/drracket-test-util.rkt" tests/utils/gui mred framework diff --git a/collects/tests/drracket/leaky-frame.rkt b/collects/tests/drracket/leaky-frame.rkt index 6faa4882c6..3f6447e242 100644 --- a/collects/tests/drracket/leaky-frame.rkt +++ b/collects/tests/drracket/leaky-frame.rkt @@ -1,5 +1,5 @@ #lang racket -(require "drracket-test-util.rkt" +(require "private/drracket-test-util.rkt" framework) (parameterize ([current-command-line-arguments '#()]) diff --git a/collects/tests/drracket/memory-log.rkt b/collects/tests/drracket/memory-log.rkt index 3d79d2021d..5c4245284e 100644 --- a/collects/tests/drracket/memory-log.rkt +++ b/collects/tests/drracket/memory-log.rkt @@ -1,5 +1,5 @@ #lang racket/base -(require "drracket-test-util.rkt" +(require "private/drracket-test-util.rkt" racket/gui/base racket/class framework/test) diff --git a/collects/tests/drracket/module-lang-test-utils.rkt b/collects/tests/drracket/module-lang-test-utils.rkt index 0ae1272d9d..6782c02d92 100644 --- a/collects/tests/drracket/module-lang-test-utils.rkt +++ b/collects/tests/drracket/module-lang-test-utils.rkt @@ -1,5 +1,5 @@ #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) diff --git a/collects/tests/drracket/drracket-test-util.rkt b/collects/tests/drracket/private/drracket-test-util.rkt similarity index 100% rename from collects/tests/drracket/drracket-test-util.rkt rename to collects/tests/drracket/private/drracket-test-util.rkt diff --git a/collects/tests/drracket/randomly-click.rkt b/collects/tests/drracket/private/randomly-click.rkt similarity index 100% rename from collects/tests/drracket/randomly-click.rkt rename to collects/tests/drracket/private/randomly-click.rkt diff --git a/collects/tests/drracket/private/run-example-tool.rkt b/collects/tests/drracket/private/run-example-tool.rkt index d4f75b8e50..1dbf440854 100644 --- a/collects/tests/drracket/private/run-example-tool.rkt +++ b/collects/tests/drracket/private/run-example-tool.rkt @@ -1,5 +1,5 @@ #lang racket/base -(require "../drracket-test-util.rkt" +(require "drracket-test-util.rkt" setup/setup-unit setup/option-sig setup/option-unit diff --git a/collects/tests/drracket/randomly-click-language-dialog.rkt b/collects/tests/drracket/randomly-click-language-dialog.rkt index 8e3c6dea27..410b1d9850 100644 --- a/collects/tests/drracket/randomly-click-language-dialog.rkt +++ b/collects/tests/drracket/randomly-click-language-dialog.rkt @@ -1,3 +1,3 @@ -#lang scheme -(require "randomly-click.rkt") +#lang racket/base +(require "private/randomly-click.rkt") (go 'language-dialog) diff --git a/collects/tests/drracket/randomly-click-preferences.rkt b/collects/tests/drracket/randomly-click-preferences.rkt index 56e6ac796c..35e25eb2a8 100644 --- a/collects/tests/drracket/randomly-click-preferences.rkt +++ b/collects/tests/drracket/randomly-click-preferences.rkt @@ -1,3 +1,3 @@ -#lang scheme -(require "randomly-click.rkt") +#lang racket/base +(require "private/randomly-click.rkt") (go 'preferences-dialog) diff --git a/collects/tests/drracket/sample-solutions-one-window.rkt b/collects/tests/drracket/sample-solutions-one-window.rkt index 255e894f6e..f0e2a88e7e 100644 --- a/collects/tests/drracket/sample-solutions-one-window.rkt +++ b/collects/tests/drracket/sample-solutions-one-window.rkt @@ -1,6 +1,6 @@ (module sample-solutions-one-window mzscheme - (require "drracket-test-util.rkt" + (require "private/drracket-test-util.rkt" tests/utils/gui mzlib/class mzlib/list diff --git a/collects/tests/drracket/stepper-test.rkt b/collects/tests/drracket/stepper-test.rkt index cd24eac464..c9d660ec5a 100644 --- a/collects/tests/drracket/stepper-test.rkt +++ b/collects/tests/drracket/stepper-test.rkt @@ -2,7 +2,7 @@ (module stepper-test mzscheme (require mred mzlib/class - "drracket-test-util.rkt" + "private/drracket-test-util.rkt" tests/utils/gui framework mzlib/pretty) diff --git a/collects/tests/drracket/syncheck-eval-compile-time.rkt b/collects/tests/drracket/syncheck-eval-compile-time.rkt index 4237f1c564..0984a6d16f 100644 --- a/collects/tests/drracket/syncheck-eval-compile-time.rkt +++ b/collects/tests/drracket/syncheck-eval-compile-time.rkt @@ -1,6 +1,6 @@ #lang racket/base -(require "drracket-test-util.rkt" +(require "private/drracket-test-util.rkt" racket/class framework) diff --git a/collects/tests/drracket/syncheck-test.rkt b/collects/tests/drracket/syncheck-test.rkt index 41a4e1bb6f..272540cd86 100644 --- a/collects/tests/drracket/syncheck-test.rkt +++ b/collects/tests/drracket/syncheck-test.rkt @@ -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 tests/utils/gui racket/path diff --git a/collects/tests/drracket/teaching-lang-coverage.rkt b/collects/tests/drracket/teaching-lang-coverage.rkt index df507a1613..b003768631 100644 --- a/collects/tests/drracket/teaching-lang-coverage.rkt +++ b/collects/tests/drracket/teaching-lang-coverage.rkt @@ -2,7 +2,7 @@ (require racket/gui/base racket/class mrlib/text-string-style-desc - "drracket-test-util.rkt" + "private/drracket-test-util.rkt" (for-syntax racket/base)) ;; Test suite for the coverage annotations in the teaching languages. diff --git a/collects/tests/drracket/teaching-lang-sharing-modules.rkt b/collects/tests/drracket/teaching-lang-sharing-modules.rkt index 4fa34c942c..1d6548ccdb 100644 --- a/collects/tests/drracket/teaching-lang-sharing-modules.rkt +++ b/collects/tests/drracket/teaching-lang-sharing-modules.rkt @@ -1,5 +1,5 @@ #lang racket -(require "drracket-test-util.rkt") +(require "private/drracket-test-util.rkt") #| diff --git a/collects/tests/drracket/teachpack.rkt b/collects/tests/drracket/teachpack.rkt index ef16e81b32..2aabd7fd88 100644 --- a/collects/tests/drracket/teachpack.rkt +++ b/collects/tests/drracket/teachpack.rkt @@ -1,6 +1,6 @@ #lang scheme/base -(require "drracket-test-util.rkt" +(require "private/drracket-test-util.rkt" scheme/class scheme/path scheme/gui/base diff --git a/collects/tests/drracket/test-engine-test.rkt b/collects/tests/drracket/test-engine-test.rkt index e4a27851c6..ad421d727b 100644 --- a/collects/tests/drracket/test-engine-test.rkt +++ b/collects/tests/drracket/test-engine-test.rkt @@ -1,6 +1,6 @@ #lang racket -(require "drracket-test-util.rkt" +(require "private/drracket-test-util.rkt" tests/utils/gui mred framework