From 929f37df62ec76e4a1ad85e8189397a9d9825d48 Mon Sep 17 00:00:00 2001
From: Ryan Culpepper <ryanc@racket-lang.org>
Date: Mon, 7 Jan 2013 17:16:57 -0500
Subject: [PATCH] fix db test script

---
 collects/tests/db/all-tests.rkt | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/collects/tests/db/all-tests.rkt b/collects/tests/db/all-tests.rkt
index 6c6d7aa034..5918fc0af3 100644
--- a/collects/tests/db/all-tests.rkt
+++ b/collects/tests/db/all-tests.rkt
@@ -229,18 +229,20 @@ Testing profiles are flattened, not hierarchical.
  [("-s" "--sqlite3") "Run sqlite3 in-memory db tests" (set! include-sqlite? #t)]
  [("-f" "--config-file") file  "Use configuration file" (pref-file file)]
  #:args labels
- (let* ([tests
+ (let* ([no-labels?
+         (not (or include-generic? include-sqlite? (pair? labels)))]
+        [tests
          (for/list ([label labels])
            (cons label
                  (make-all-tests label (get-dbconf (string->symbol label)))))]
         [tests
-         (cond [(or include-sqlite? (null? labels))
+         (cond [(or include-sqlite? no-labels?)
                 (list* (cons "sqlite3, memory" sqlite-test)
                        (cons "sqlite3, memory, #:use-place=#t" sqlite/p-test)
                        tests)]
                [else tests])]
         [tests
-         (cond [(or include-generic? (null? labels))
+         (cond [(or include-generic? no-labels?)
                 (cons (cons "generic" generic-test) tests)]
                [else tests])])
    (cond [gui?