Removing extra run-tests

This commit is contained in:
Jay McCarthy 2010-09-16 12:30:30 -06:00
parent 1f4c525245
commit ab5a9ff1e8
9 changed files with 0 additions and 37 deletions

View File

@ -455,8 +455,3 @@
(h1 ,(number->string (+ fst snd))))) (h1 ,(number->string (+ fst snd)))))
(serve/dispatch start)) (serve/dispatch start))
#;(test-serve/dispatch)
(require rackunit/text-ui)
(run-tests all-dispatch-tests)

View File

@ -119,6 +119,3 @@
(test-exn "dir, not exists, head" (test-exn "dir, not exists, head"
exn:dispatcher? exn:dispatcher?
(lambda () (collect (dispatch #f a-dir) (req #t #"HEAD" empty)))))) (lambda () (collect (dispatch #f a-dir) (req #t #"HEAD" empty))))))
#;(require (planet schematics/rackunit:3/text-ui))
#;(run-tests dispatch-files-tests)

View File

@ -162,8 +162,3 @@
; XXX test web-extras.rkt - redirect/get ; XXX test web-extras.rkt - redirect/get
)) ))
#|
(require rackunit/text-ui)
(run-tests dispatch-lang-tests)
|#

View File

@ -624,6 +624,3 @@
(values "Jay" 10 6 10 8))))) (values "Jay" 10 6 10 8)))))
)) ))
(require rackunit/text-ui)
(run-tests all-formlets-tests)

View File

@ -158,6 +158,3 @@ __utmz=165257760.1272597702.1.1.utmcsr=(direct)|utmccn=(direct)|utmcmd=(none)\r\
))) )))
(require rackunit/text-ui)
(run-tests cookies-tests)

View File

@ -304,8 +304,3 @@
; XXX test dispatch ; XXX test dispatch
)) ))
#|
(require rackunit/text-ui)
(run-tests abort-resume-tests)
|#

View File

@ -35,8 +35,3 @@
(cache-table-lookup! ct 'foo (lambda () #t)) (cache-table-lookup! ct 'foo (lambda () #t))
(cache-table-clear! ct) (cache-table-clear! ct)
(cache-table-lookup! ct 'foo (lambda () #f))))))) (cache-table-lookup! ct 'foo (lambda () #f)))))))
#|
(require (planet schematics/rackunit:3/text-ui))
(run-tests cache-table-tests)
|#

View File

@ -52,6 +52,3 @@
(test-case "permanently" (check-true (redirection-status? permanently))) (test-case "permanently" (check-true (redirection-status? permanently)))
(test-case "temporarily" (check-true (redirection-status? temporarily))) (test-case "temporarily" (check-true (redirection-status? temporarily)))
(test-case "see-other" (check-true (redirection-status? see-other)))))) (test-case "see-other" (check-true (redirection-status? see-other))))))
;(require (planet schematics/rackunit:3/text-ui))
;(run-tests helpers-tests)

View File

@ -125,8 +125,3 @@
(context-wrap (context-wrap
(lambda () (lambda ()
(check-not-false (is-url-too-big? (make-bytes 3000 65))))))))) (check-not-false (is-url-too-big? (make-bytes 3000 65)))))))))
#|
(require (planet schematics/rackunit:3/text-ui))
(run-tests all-stuffers-tests)
|#