Megatest

Diff
Login

Differences From Artifact [f47e8f14e8]:

To Artifact [95fcbb68a8]:


729
730
731
732
733
734
735

736

737
738
739
740
741
742
743
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
		  (open-run-close tests:test-set-status! db test-id state newstatus msg otherdata))))
		  (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
;;======================================================================