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

tests: remove "gui" lock declarations

Browse Source 
The fresh PLTUSERHOME created by `raco test --drdr` should avoid
the problems that made the lock necessary before.
This commit is contained in:
Matthew Flatt 2014-06-03 07:38:57 +01:00
parent 2d3b856b71
commit 165f21a192
33 changed files with 4 additions and 93 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
pkgs/drracket-pkgs/drracket-test/tests/drracket/example-tool.rkt
View File

@ -34,5 +34,4 @@
(module+ test
(module config info
(define lock-name "gui")
(define random? #t)))

4
pkgs/drracket-pkgs/drracket-test/tests/drracket/hangman.rkt
View File

@ -21,7 +21,3 @@
(define labels (map (λ (x) (send x get-label)) windows))
(member "Hangman" labels))
(poll-until user-hangman-frame?)))
(module+ test
(module config info
(define lock-name "gui")))

1
pkgs/drracket-pkgs/drracket-test/tests/drracket/io.rkt
View File

@ -234,5 +234,4 @@ add this test:
(module+ test
(module config info
(define lock-name "gui")
(define timeout 500)))

1
pkgs/drracket-pkgs/drracket-test/tests/drracket/language-test.rkt
View File

@ -1580,5 +1580,4 @@ the settings above should match r5rs
(module+ test
(module config info
(define lock-name "gui")
(define timeout 1500)))

4
pkgs/drracket-pkgs/drracket-test/tests/drracket/memory-log.rkt
View File

@ -72,7 +72,3 @@
(λ ()
(send (send drs-frame get-definitions-text) syncheck:arrows-visible?)))
(wait-and-print))))
(module+ test
(module config info
(define lock-name "gui")))

1
pkgs/drracket-pkgs/drracket-test/tests/drracket/module-lang-test.rkt
View File

@ -428,5 +428,4 @@
(eval-jit-enabled #f)
(dynamic-require (quote-module-path "..") #f)
(module config info
(define lock-name "gui")
(define timeout 800)))

1
pkgs/drracket-pkgs/drracket-test/tests/drracket/repl-test-debug.rkt
View File

@ -4,5 +4,4 @@
(module+ test
(module config info
(define lock-name "gui")
(define timeout 300)))

1
pkgs/drracket-pkgs/drracket-test/tests/drracket/repl-test-debugprofile.rkt
View File

@ -4,5 +4,4 @@
(module+ test
(module config info
(define lock-name "gui")
(define timeout 300)))

2
pkgs/drracket-pkgs/drracket-test/tests/drracket/repl-test-misc.rkt
View File

@ -4,4 +4,4 @@
(module+ test
(module config info
(define lock-name "gui")))
(define timeout 300)))

1
pkgs/drracket-pkgs/drracket-test/tests/drracket/repl-test-raw.rkt
View File

@ -4,5 +4,4 @@
(module+ test
(module config info
(define lock-name "gui")
(define timeout 300)))

4
pkgs/drracket-pkgs/drracket-test/tests/drracket/snips.rkt
View File

@ -24,7 +24,3 @@
(error 'snips.rkt "lost drracket frame while saving ~s" rfile))))
(delete-directory/files tmpdir)))
(module+ test
(module config info
(define lock-name "gui")))

1
pkgs/drracket-pkgs/drracket-test/tests/drracket/syncheck-test.rkt
View File

@ -1682,5 +1682,4 @@
(module+ test
(module config info
(define lock-name "gui")
(define timeout 200)))

4
pkgs/drracket-pkgs/drracket-test/tests/drracket/teaching-lang-coverage.rkt
View File

@ -117,7 +117,3 @@
(test-line t)
got
(test-uncovered t)))))))))
(module+ test
(module config info
(define lock-name "gui")))

4
pkgs/drracket-pkgs/drracket-test/tests/drracket/teaching-lang-save-file.rkt
View File

@ -46,7 +46,3 @@
(delete-file fn)
(unless (equal? result "1\n> ")
(error 'save-teaching-lang-file.rkt "expected the program to produce 1 (followed by the prompt), got ~s" result)))))))
(module+ test
(module config info
(define lock-name "gui")))

4
pkgs/drracket-pkgs/drracket-test/tests/drracket/teachpack.rkt
View File

@ -274,7 +274,3 @@
(test-built-in-teachpacks))
(fire-up-drracket-and-run-tests run-test)
(module+ test
(module config info
(define lock-name "gui")))

1
pkgs/drracket-pkgs/drracket-test/tests/drracket/test-engine-test.rkt
View File

@ -522,5 +522,4 @@
(module+ test
(module config info
(define lock-name "gui")
(define timeout 480)))

4
pkgs/games/paint-by-numbers/raw-problems/build-solution-sets.rkt
View File

@ -288,7 +288,3 @@ The col and row type specs are in sig.rkt and the solution type is:
',(solve name rows cols))))
problems)))))))))))
sets)
(module+ test
(module config info
(define lock-name "gui")))

4
pkgs/gui-pkgs/gui-lib/mrlib/private/aligned-pasteboard/tests/actual-bigger.rkt
View File

@ -33,7 +33,3 @@
(>= (send vpb1 get-aligned-min-height)
(send vpb2 get-aligned-min-height)
(snip-height es))
(module+ test
(module config info
(define lock-name "gui")))

4
pkgs/gui-pkgs/gui-lib/mrlib/private/aligned-pasteboard/tests/test-snip-lib.rkt
View File

@ -126,7 +126,3 @@
(send frame show #f))
;; (printf "tests done\n")
(module+ test
(module config info
(define lock-name "gui")))

4
pkgs/gui-pkgs/gui-lib/mrlib/private/aligned-pasteboard/tests/test.rkt
View File

@ -145,7 +145,3 @@
(send frame show #f)
(printf "done\n")
(module+ test
(module config info
(define lock-name "gui")))

4
pkgs/gui-pkgs/gui-lib/mrlib/private/aligned-pasteboard/tests/test2.rkt
View File

@ -112,7 +112,3 @@
(send frame show #f)
(printf "done\n")
(module+ test
(module config info
(define lock-name "gui")))

1
pkgs/gui-pkgs/gui-test/framework/tests/main.rkt
View File

@ -121,5 +121,4 @@
(module+ test
(module config info
(define lock-name "gui")
(define timeout 360)))

4
pkgs/htdp-pkgs/htdp-test/2htdp/tests/full-scene-visible.rkt
View File

@ -13,7 +13,3 @@
(see-full-rectangle 3 2:rectangle)
(see-full-rectangle 3 1:rectangle)
(module+ test
(module config info
(define lock-name "gui")))

4
pkgs/htdp-pkgs/htdp-test/2htdp/tests/on-tick-universe-with-limit.rkt
View File

@ -6,7 +6,3 @@
(on-tick (lambda (w) (make-bundle (add1 w) '() '())) 1/28 3)
(on-msg (lambda (w sender msg) (make-bundle w '() '())))
(on-new cons))
(module+ test
(module config info
(define lock-name "gui")))

4
pkgs/htdp-pkgs/htdp-test/2htdp/tests/perform-robby.rkt
View File

@ -19,7 +19,3 @@
(stop-when zero?))
(printf "done\n")
(module+ test
(module config info
(define lock-name "gui")))

4
pkgs/htdp-pkgs/htdp-test/2htdp/tests/random-seed-works.rkt
View File

@ -17,4 +17,6 @@
(stop-when (λ (l) (>= (length l) 2)))))
(define *color 'blue)
(check-equal? (main) (begin (set! *color 'red) (main)))
(check-equal? (main) (begin (set! *color 'red) (main)))
(module test racket/base)

4
pkgs/htdp-pkgs/htdp-test/2htdp/tests/record-stop-when.rkt
View File

@ -32,7 +32,3 @@
(unless (image=? (crop 0 0 100 100 i) j)
(eprintf "this test needs to be revised -- the way 'world' writes images adds an extra pixel -- think! \n"))
(module+ test
(module config info
(define lock-name "gui")))

4
pkgs/htdp-pkgs/htdp-test/2htdp/tests/record.rkt
View File

@ -39,7 +39,3 @@
(create-n-images 3 3 "images3/")
(create-n-images 0 0 "images0/")
(module+ test
(module config info
(define lock-name "gui")))

4
pkgs/htdp-pkgs/htdp-test/2htdp/tests/release.rkt
View File

@ -28,7 +28,3 @@
1
n)))))
(main 1)
(module+ test
(module config info
(define lock-name "gui")))

1
pkgs/htdp-pkgs/htdp-test/2htdp/tests/struct-universe.rkt
View File

@ -54,5 +54,4 @@
(module+ test
(module config info
(define lock-name "gui")
(define random? #t)))

4
pkgs/htdp-pkgs/htdp-test/2htdp/tests/ufo-rename.rkt
View File

@ -13,7 +13,3 @@
(uni:on-tick add1)
(uni:stop-when (lambda (y) (>= y 100)))
(uni:on-draw create-UFO-scene))
(module+ test
(module config info
(define lock-name "gui")))

4
pkgs/htdp-pkgs/htdp-test/2htdp/tests/universe-restart.rkt
View File

@ -45,7 +45,3 @@
(launch-many-worlds (u) (w "one") (w "two") (w "three")))
; (require (submod "." drop-bad))
(module+ test
(module config info
(define lock-name "gui")))

4
pkgs/htdp-pkgs/htdp-test/2htdp/tests/world0-stops.rkt
View File

@ -25,7 +25,3 @@
(test (big-bang (stop-with 0) (on-tick add1) (to-draw (draw ""))) 0 "")
(test (big-bang 0 (on-draw (draw 0)) (stop-when zero? (draw 1))) 0 "1")
(module+ test
(module config info
(define lock-name "gui")))