@@ -545,11 +545,11 @@
 		       (process:children #f))
 		      (original-exit exit-code)))))
 
 ;; for some switches always print the command to stderr
 ;;
-(if (args:any? "-run" "-runall" "-remove-runs" "-set-state-status")
+(if (args:any? "-run" "-runall" "-remove-runs" "-set-state-status" "-run-test")
     (debug:print 0 *default-log-port* (string-intersperse (argv) " ")))
 
 ;; some switches imply homehost. Exit here if not on homehost
 ;;
 (let ((homehost-required  (list "-cleanup-db" "-server")))
@@ -1557,11 +1557,28 @@
 ;; 	   (run-ids    (db:get-changed-run-ids since-time)))
 ;;       ;; (rmt:get-tests-for-runs-mindata run-ids testpatt states status not-in)
 ;;       (print (sort run-ids <))
 ;;       (set! *didsomething* #t)))
       
-      
+
+;;======================================================================
+;; run single test
+;;======================================================================
+;; launch test; executed from runloop
+;; should only be called by megatest, not user.
+(if (args:get-arg "-internal-run-test")
+    (general-run-call
+     "-internal-run-test"
+     "run single test; internal use only"
+     (lambda (target runname keys keyvals)
+       (let* ((flags args:arg-hash))
+         (run:test-standalone target runname keys keyvals flags)
+
+
+         )
+       )))
+
 ;;======================================================================
 ;; full run
 ;;======================================================================
 
 ;; get lock in db for full run for this directory
@@ -1575,11 +1592,11 @@
 ;;     launch task
 ;;   else
 ;;     put task in deferred queue
 ;; if still ok to run tasks
 ;;   process deferred tasks per above steps
-
+     
 ;; run all tests are are Not COMPLETED and PASS or CHECK
 (if (or (args:get-arg "-runall")
 	(args:get-arg "-run")
 	(args:get-arg "-rerun-clean")
 	(args:get-arg "-rerun-all")