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

fix db test script

Browse Source
This commit is contained in:
Ryan Culpepper 2013-01-07 17:16:57 -05:00
parent c0543e8f65
commit 929f37df62
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/tests/db/all-tests.rkt
View File

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