714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
|
(if (and (args:get-arg "-test-status")
(or (not state)
(not status)))
(begin
(debug:print 0 "ERROR: You must specify :state and :status with every call to -test-status\n" help)
;; (sqlite3:finalize! db)
(exit 6)))
(let ((msg (args:get-arg "-m")))
;; Convert to rpc
;; (rdb:open-run-close 'tests:test-set-status! #f test-id state newstatus msg otherdata))))
(tests:test-set-status! db test-id state newstatus msg otherdata))))
(if db (sqlite3:finalize! db))
(set! *didsomething* #t))))
;;======================================================================
;; Various helper commands can go below here
;;======================================================================
|
|
>
|
<
|
|
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
|
(if (and (args:get-arg "-test-status")
(or (not state)
(not status)))
(begin
(debug:print 0 "ERROR: You must specify :state and :status with every call to -test-status\n" help)
;; (sqlite3:finalize! db)
(exit 6)))
(let* ((msg (args:get-arg "-m"))
(numoth (length (hash-table-keys otherdata))))
;; Convert to rpc inside the tests:test-set-status! call, not here
(tests:test-set-status! test-id state newstatus msg otherdata))))
(if db (sqlite3:finalize! db))
(set! *didsomething* #t))))
;;======================================================================
;; Various helper commands can go below here
;;======================================================================
|