729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
|
(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")))
(open-run-close 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
;;======================================================================
|
>
|
|
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
|
(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))))
(if db (sqlite3:finalize! db))
(set! *didsomething* #t))))
;;======================================================================
;; Various helper commands can go below here
;;======================================================================
|