tests: remove "gui" lock declarations

The fresh PLTUSERHOME created by `raco test --drdr` should avoid
the problems that made the lock necessary before.

pkgs/drracket-pkgs/drracket-test/tests/drracket/example-tool.rkt

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

pkgs/drracket-pkgs/drracket-test/tests/drracket/hangman.rkt

@@ -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")))

pkgs/drracket-pkgs/drracket-test/tests/drracket/io.rkt

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

pkgs/drracket-pkgs/drracket-test/tests/drracket/language-test.rkt

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

pkgs/drracket-pkgs/drracket-test/tests/drracket/memory-log.rkt

@@ -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")))

pkgs/drracket-pkgs/drracket-test/tests/drracket/module-lang-test.rkt

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

pkgs/drracket-pkgs/drracket-test/tests/drracket/repl-test-debug.rkt

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

pkgs/drracket-pkgs/drracket-test/tests/drracket/repl-test-debugprofile.rkt

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

pkgs/drracket-pkgs/drracket-test/tests/drracket/repl-test-misc.rkt

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

pkgs/drracket-pkgs/drracket-test/tests/drracket/repl-test-raw.rkt

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

pkgs/drracket-pkgs/drracket-test/tests/drracket/snips.rkt

@@ -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")))

pkgs/drracket-pkgs/drracket-test/tests/drracket/syncheck-test.rkt

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

pkgs/drracket-pkgs/drracket-test/tests/drracket/teaching-lang-coverage.rkt

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

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

@@ -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")))

pkgs/drracket-pkgs/drracket-test/tests/drracket/teachpack.rkt

@@ -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")))

pkgs/drracket-pkgs/drracket-test/tests/drracket/test-engine-test.rkt

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

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

@@ -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")))

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

@@ -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")))

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

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

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

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

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

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

pkgs/gui-pkgs/gui-test/framework/tests/main.rkt

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

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

@@ -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")))

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

@@ -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")))

pkgs/htdp-pkgs/htdp-test/2htdp/tests/perform-robby.rkt

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

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

@@ -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)

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

@@ -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")))

pkgs/htdp-pkgs/htdp-test/2htdp/tests/record.rkt

@@ -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")))

pkgs/htdp-pkgs/htdp-test/2htdp/tests/release.rkt

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

pkgs/htdp-pkgs/htdp-test/2htdp/tests/struct-universe.rkt

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

pkgs/htdp-pkgs/htdp-test/2htdp/tests/ufo-rename.rkt

@@ -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")))

pkgs/htdp-pkgs/htdp-test/2htdp/tests/universe-restart.rkt

@@ -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")))

pkgs/htdp-pkgs/htdp-test/2htdp/tests/world0-stops.rkt

@@ -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")))