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