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.
15 lines
390 B
Racket
15 lines
390 B
Racket
5 years ago
|
#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 'ptest/all #f)]
|
||
|
|
[_ (displayln "no cmd given")]))
|
||
|
|
#:logger ptest-logger
|
||
|
|
'info
|
||
|
|
'ptest)
|