1566
1567
1568
1569
1570
1571
1572
1573
1574
1575
1576
1577
1578
1579
1580
1581
|
1566
1567
1568
1569
1570
1571
1572
1573
1574
1575
1576
1577
1578
1579
1580
1581
1582
|
-
-
+
+
+
|
;; 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)
(let* ((flags args:arg-hash)
(testname )
(run:test-bootstrap target runname keys keyvals flags)
)
)))
;;======================================================================
;; full run
|