raco qtest
parent
9c35a3de43
commit
75b3b0939c
@ -1,3 +1,4 @@
|
|||||||
#lang info
|
#lang info
|
||||||
(define compile-omit-paths 'all)
|
(define compile-omit-paths 'all)
|
||||||
(define test-omit-paths 'all)
|
(define test-omit-paths 'all)
|
||||||
|
(define raco-commands '(("qtest" qtest/raco "qtests" #f)))
|
@ -0,0 +1,4 @@
|
|||||||
|
#lang racket/base
|
||||||
|
(require racket/logging)
|
||||||
|
(provide (all-defined-out))
|
||||||
|
(define-logger qtest)
|
@ -0,0 +1,15 @@
|
|||||||
|
#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 #f)]
|
||||||
|
[_ (displayln "no cmd given")]))
|
||||||
|
#:logger qtest-logger
|
||||||
|
'info
|
||||||
|
'qtest)
|
Loading…
Reference in New Issue