raco qtest

quad/qtest/info.rkt

@@ -1,3 +1,4 @@
 #lang info
 (define compile-omit-paths 'all)
-(define test-omit-paths 'all)
+(define test-omit-paths 'all)
+(define raco-commands '(("qtest" qtest/raco "qtests" #f)))

quad/qtest/log.rkt

@@ -0,0 +1,4 @@
+#lang racket/base
+(require racket/logging)
+(provide (all-defined-out))
+(define-logger qtest)

quad/qtest/raco.rkt

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