From 43d3479786c37152172b2a62432f37f8a20f664e Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 30 Dec 2013 09:50:30 -0700 Subject: [PATCH] sync test configuration for non-".rkt" files --- pkgs/deinprogramm/deinprogramm/info.rkt | 2 +- .../deinprogramm/quickcheck/info.rkt | 2 +- .../drracket-test/tests/jpr/info.rkt | 10 +++++++- .../drracket-test/tests/jpr/jeu-du-chaos.ss | 12 +++++++--- .../plot-doc/plot/scribblings/plot.scrbl | 6 +++++ pkgs/plt-services/meta/props | 23 ------------------- pkgs/r6rs-pkgs/r6rs-test/tests/r6rs/info.rkt | 3 +++ pkgs/redex-pkgs/redex-doc/redex/redex.scrbl | 6 +++++ .../redex-doc/redex/scribblings/tut.scrbl | 7 ++++++ .../tests/typed-racket/info.rkt | 5 ++++ 10 files changed, 47 insertions(+), 29 deletions(-) create mode 100644 pkgs/r6rs-pkgs/r6rs-test/tests/r6rs/info.rkt diff --git a/pkgs/deinprogramm/deinprogramm/info.rkt b/pkgs/deinprogramm/deinprogramm/info.rkt index cdefa42bde..f8c974812e 100644 --- a/pkgs/deinprogramm/deinprogramm/info.rkt +++ b/pkgs/deinprogramm/deinprogramm/info.rkt @@ -8,7 +8,7 @@ (define tool-names '("DeinProgramm")) (define tool-urls '("http://www.deinprogramm.de/dmda/")) -(define compile-omit-files +(define compile-omit-paths '("define-record-procedures.scm" "convert-explicit.scm" "line3d.scm")) diff --git a/pkgs/deinprogramm/deinprogramm/quickcheck/info.rkt b/pkgs/deinprogramm/deinprogramm/quickcheck/info.rkt index ba7e976e6d..5913c48491 100644 --- a/pkgs/deinprogramm/deinprogramm/quickcheck/info.rkt +++ b/pkgs/deinprogramm/deinprogramm/quickcheck/info.rkt @@ -1,7 +1,7 @@ (module info info (define name "DeinProgramm - QuickCheck") - (define compile-omit-files + (define compile-omit-paths '("examples.scm" "packages.scm" "quickcheck-test.scm" diff --git a/pkgs/drracket-pkgs/drracket-test/tests/jpr/info.rkt b/pkgs/drracket-pkgs/drracket-test/tests/jpr/info.rkt index 11dda9e487..d5bb706b54 100644 --- a/pkgs/drracket-pkgs/drracket-test/tests/jpr/info.rkt +++ b/pkgs/drracket-pkgs/drracket-test/tests/jpr/info.rkt @@ -1,3 +1,11 @@ #lang info -(define test-skip-paths '("balle-grav-frot.ss")) +(define test-command-line-arguments + '(("dessine-arbre.ss" ()) + ("foo.ss" ()) + ("jeu-du-chaos.ss" ()) + ("mon-script.ss" ()) + ("streams.ss" ()) + ("valrose.ss" ()))) + + diff --git a/pkgs/drracket-pkgs/drracket-test/tests/jpr/jeu-du-chaos.ss b/pkgs/drracket-pkgs/drracket-test/tests/jpr/jeu-du-chaos.ss index 21ff5262d6..bc7010ebf3 100644 --- a/pkgs/drracket-pkgs/drracket-test/tests/jpr/jeu-du-chaos.ss +++ b/pkgs/drracket-pkgs/drracket-test/tests/jpr/jeu-du-chaos.ss @@ -34,7 +34,13 @@ (jeu-du-chaos) - - - +;; For automatic testing, check that we can at least start, +;; but exit soon after: +(module+ test + (require racket/gui/base) + (void + (thread + (lambda () + (sleep 1) + (queue-callback (lambda () (exit)) #f))))) diff --git a/pkgs/plot-pkgs/plot-doc/plot/scribblings/plot.scrbl b/pkgs/plot-pkgs/plot-doc/plot/scribblings/plot.scrbl index 8ff0249516..ffded0cc28 100644 --- a/pkgs/plot-pkgs/plot-doc/plot/scribblings/plot.scrbl +++ b/pkgs/plot-pkgs/plot-doc/plot/scribblings/plot.scrbl @@ -53,3 +53,9 @@ If you have code written for @(plot-name) 5.1.3 or earlier, please see @secref[" @include-section["compat.scrbl"] @close-plot-eval[] + +@; Needs a timeout for testing: +@(module* test racket/base + (require (submod "..")) + (module config info + (define timeout 180))) diff --git a/pkgs/plt-services/meta/props b/pkgs/plt-services/meta/props index bcf4768fec..1a706ce65f 100755 --- a/pkgs/plt-services/meta/props +++ b/pkgs/plt-services/meta/props @@ -685,11 +685,6 @@ path/s is either such a string or a list of them. "pkgs/datalog" responsible (jay) "pkgs/db-pkgs" responsible (ryanc) "pkgs/deinprogramm" responsible (sperber) -"pkgs/deinprogramm/deinprogramm/convert-explicit.scm" drdr:command-line #f -"pkgs/deinprogramm/deinprogramm/define-record-procedures.scm" drdr:command-line #f -"pkgs/deinprogramm/deinprogramm/line3d.scm" drdr:command-line #f -"pkgs/deinprogramm/deinprogramm/quickcheck/quickcheck.scm" drdr:command-line #f -"pkgs/deinprogramm/deinprogramm/quickcheck/random.scm" drdr:command-line #f "pkgs/distributed-places-pkgs" responsible (tewk) "pkgs/distro-build" responsible (mflatt) "pkgs/draw-pkgs" responsible (mflatt) @@ -715,14 +710,6 @@ path/s is either such a string or a list of them. "pkgs/drracket-pkgs/drracket-test/tests/drracket/teachpack.rkt" responsible (robby matthias) "pkgs/drracket-pkgs/drracket-test/tests/drracket/test-engine-test.rkt" responsible (sperber) drdr:timeout 480 "pkgs/drracket-pkgs/drracket-test/tests/jpr" responsible (mflatt) -"pkgs/drracket-pkgs/drracket-test/tests/jpr/balle-grav-frot.ss" drdr:command-line (mzc "-k" *) -"pkgs/drracket-pkgs/drracket-test/tests/jpr/dessine-arbre.ss" drdr:command-line (mzc "-k" *) -"pkgs/drracket-pkgs/drracket-test/tests/jpr/foo.ss" drdr:command-line (mzc "-k" *) -"pkgs/drracket-pkgs/drracket-test/tests/jpr/jeu-du-chaos.ss" drdr:command-line (mzc "-k" *) -"pkgs/drracket-pkgs/drracket-test/tests/jpr/mon-script.ss" drdr:command-line (mzc "-k" *) -"pkgs/drracket-pkgs/drracket-test/tests/jpr/monte-carlo.ss" drdr:command-line (mzc "-k" *) -"pkgs/drracket-pkgs/drracket-test/tests/jpr/streams.ss" drdr:command-line (mzc "-k" *) -"pkgs/drracket-pkgs/drracket-test/tests/jpr/valrose.ss" drdr:command-line (mzc "-k" *) "pkgs/ds-store-pkgs" responsible (mflatt) "pkgs/eli-tester" responsible (eli) "pkgs/eopl" responsible (dvanhorn) @@ -762,7 +749,6 @@ path/s is either such a string or a list of them. "pkgs/htdp-pkgs/htdp-lib/graphics/tests/sixlib.rktl" drdr:command-line #f "pkgs/htdp-pkgs/htdp-lib/stepper" responsible (clements) "pkgs/htdp-pkgs/htdp-lib/teachpack" responsible (matthias) -"pkgs/htdp-pkgs/htdp-lib/teachpack/balls.ss" drdr:command-line (mzc *) "pkgs/htdp-pkgs/htdp-lib/test-engine" responsible (kathyg) "pkgs/htdp-pkgs/htdp-test/2htdp/tests/image-equality-performance-htdp.rkt" responsible (robby) "pkgs/htdp-pkgs/htdp-test/2htdp/tests/image-equality-performance.rkt" responsible (robby) @@ -858,7 +844,6 @@ path/s is either such a string or a list of them. "pkgs/plt-services/meta" responsible (eli) "pkgs/plt-services/meta/drdr" responsible (jay) "pkgs/plt-services/meta/drdr2" responsible (jay) -"pkgs/plt-services/meta/images/taking-screenshots/racket-widget.scm" drdr:command-line #f "pkgs/plt-services/meta/pkg-index" responsible (jay) "pkgs/plt-services/meta/props" responsible (eli jay) drdr:command-line (racket "-um" * "verify") "pkgs/preprocessor" responsible (eli) @@ -1138,16 +1123,8 @@ path/s is either such a string or a list of them. "pkgs/shell-completion/racket-completion.zsh" responsible (eli) "pkgs/slatex" responsible (sstrickl) "pkgs/slideshow-pkgs" responsible (mflatt robby) -"pkgs/slideshow-pkgs/slideshow-exe/slideshow/examples/interlocking-components.scm" drdr:command-line (mzc *) "pkgs/snip-pkgs" responsible (mflatt) "pkgs/srfi-pkgs" responsible (mflatt noel chongkai jay) -"pkgs/srfi-pkgs/srfi-lib/srfi/25/arlib.scm" drdr:command-line #f -"pkgs/srfi-pkgs/srfi-lib/srfi/25/ix-ctor.scm" drdr:command-line #f -"pkgs/srfi-pkgs/srfi-lib/srfi/25/op-ctor.scm" drdr:command-line #f -"pkgs/srfi-pkgs/srfi-lib/srfi/67/compare-reference.scm" drdr:command-line #f -"pkgs/srfi-pkgs/srfi-lib/srfi/74/blob.scm" drdr:command-line #f -"pkgs/srfi-pkgs/srfi-lib/srfi/78/check-reference.scm" drdr:command-line #f -"pkgs/srfi-pkgs/srfi-lib/srfi/78/examples-78.scm" drdr:command-line #f "pkgs/string-constants-pkgs" responsible (robby) "pkgs/swindle" responsible (eli) "pkgs/syntax-color-pkgs" responsible (mflatt) diff --git a/pkgs/r6rs-pkgs/r6rs-test/tests/r6rs/info.rkt b/pkgs/r6rs-pkgs/r6rs-test/tests/r6rs/info.rkt new file mode 100644 index 0000000000..c06ab04806 --- /dev/null +++ b/pkgs/r6rs-pkgs/r6rs-test/tests/r6rs/info.rkt @@ -0,0 +1,3 @@ +#lang info + +(define test-command-line-arguments '(("run.sps" ()))) diff --git a/pkgs/redex-pkgs/redex-doc/redex/redex.scrbl b/pkgs/redex-pkgs/redex-doc/redex/redex.scrbl index 50a254cfe5..2c4e64ec5f 100644 --- a/pkgs/redex-pkgs/redex-doc/redex/redex.scrbl +++ b/pkgs/redex-pkgs/redex-doc/redex/redex.scrbl @@ -24,3 +24,9 @@ and the @tt{examples} subdirectory in the @tt{redex} collection. @index-section[] + +@; Needs a timeout for testing: +@(module* test racket/base + (require (submod "..")) + (module config info + (define timeout 300))) diff --git a/pkgs/redex-pkgs/redex-doc/redex/scribblings/tut.scrbl b/pkgs/redex-pkgs/redex-doc/redex/scribblings/tut.scrbl index 725c6baf96..9c39b88564 100644 --- a/pkgs/redex-pkgs/redex-doc/redex/scribblings/tut.scrbl +++ b/pkgs/redex-pkgs/redex-doc/redex/scribblings/tut.scrbl @@ -1125,3 +1125,10 @@ is rendered as @racketblock[Γ ⊢ e : t] @close-eval[amb-eval] + + +@; Needs a timeout for testing: +@(module* test racket/base + (require (submod "..")) + (module config info + (define timeout 300))) diff --git a/pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/info.rkt b/pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/info.rkt index 802d7d6d60..fc16e2486e 100644 --- a/pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/info.rkt +++ b/pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/info.rkt @@ -2,3 +2,8 @@ (define test-omit-paths '("fail" "xfail")) +(define test-command-line-arguments + '(("succeed/priority-queue.scm" ()) + ("succeed/hw01.scm" ()) + ("succeed/foo.scm" ()) + ("succeed/batched-queue.scm" ())))