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

Rename tests

Browse Source 
svn: r6293
This commit is contained in:
Jay McCarthy 2007-05-25 14:37:55 +00:00
parent 2f97ee61a8
commit 0b74eca282
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/web-server/prototype-web-server/tests/persistent-interaction-tests.ss → collects/web-server/prototype-web-server/tests/lang-tests.ss
View File

@ -1,7 +1,7 @@
(module persistent-interaction-tests mzscheme (module lang-tests mzscheme
(require (planet "test.ss" ("schematics" "schemeunit.plt" 1 1)) (require (planet "test.ss" ("schematics" "schemeunit.plt" 1 1))
"language-tester.ss") "language-tester.ss")
(provide persistent-interaction-suite) (provide lang-suite)
(define (catch-unsafe-context-exn thunk) (define (catch-unsafe-context-exn thunk)
(with-handlers ([void (with-handlers ([void
@ -14,9 +14,9 @@
(raise the-exn)))]) (raise the-exn)))])
(and (thunk) #f))) (and (thunk) #f)))
(define persistent-interaction-suite (define lang-suite
(make-test-suite (make-test-suite
"Test the persistent interaction language" "Test the Web language"
;; **************************************** ;; ****************************************
;; **************************************** ;; ****************************************

4
collects/web-server/prototype-web-server/tests/suite.ss
View File

@ -5,7 +5,7 @@
"test-normalizer.ss" "test-normalizer.ss"
"closure-tests.ss" "closure-tests.ss"
"labels-tests.ss" "labels-tests.ss"
"persistent-interaction-tests.ss" "lang-tests.ss"
"stuff-url-tests.ss") "stuff-url-tests.ss")
(test/graphical-ui (test/graphical-ui
@ -16,5 +16,5 @@
test-normalizer-suite test-normalizer-suite
closure-tests-suite closure-tests-suite
labels-tests-suite labels-tests-suite
persistent-interaction-suite lang-suite
))) )))