You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
16 lines
454 B
Racket
16 lines
454 B
Racket
#lang debug racket/base
|
|
(require racket/logging
|
|
racket/match
|
|
"log.rkt")
|
|
|
|
(with-logging-to-port
|
|
(current-error-port)
|
|
(λ ()
|
|
(match (with-handlers ([exn:fail? (λ (exn) #f)])
|
|
(vector-ref (current-command-line-arguments) 0))
|
|
["test" (dynamic-require 'qtest/all-tests #f)]
|
|
["update" (dynamic-require 'qtest/update-tests #f)]
|
|
[_ (displayln "no cmd given")]))
|
|
#:logger qtest-logger
|
|
'info
|
|
'qtest) |