Megatest

Check-in [bc5d8b0c1b]
Login
Overview
Comment:fixed bug with waive dialog in dashboard
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.63-readonly
Files: files | file ages | folders
SHA1: bc5d8b0c1b386092668834722aa15f3fa487de14
User & Date: bjbarcla on 2017-02-21 22:18:27
Other Links: branch diff | manifest | tags
Context
2017-02-21
23:01
prime tmpdb even if readonly check-in: e7ef30d3e1 user: bjbarcla tags: v1.63-readonly
22:18
fixed bug with waive dialog in dashboard check-in: bc5d8b0c1b user: bjbarcla tags: v1.63-readonly
21:44
fixed readonly watchdog check-in: 8c83a08f46 user: bjbarcla tags: v1.63-readonly
Changes

Modified dashboard-tests.scm from [0388c35774] to [a5c62d93cd].

402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
			      #:action (lambda (obj)
					 (let ((comment (iup:attribute comnt "VALUE"))
					       (test-id (db:test-get-id testdat)))
					   (if (or (not wpatt)
						   (string-match wregx comment))
					       (begin
						 ;; (rmt:test-set-state-status-by-id run-id test-id #f "WAIVED" comment)
						 (rmt:test-set-state-status-by run-id test-id #f "WAIVED" comment)
						 (db:test-set-status! testdat "WAIVED")
						 (cmtcmd comment)
						 (iup:destroy! dlog))))))
		  (iup:button "Cancel"
			      #:expand "HORIZONTAL" 
			      #:action (lambda (obj)
					 (iup:destroy! dlog)))))))







|







402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
			      #:action (lambda (obj)
					 (let ((comment (iup:attribute comnt "VALUE"))
					       (test-id (db:test-get-id testdat)))
					   (if (or (not wpatt)
						   (string-match wregx comment))
					       (begin
						 ;; (rmt:test-set-state-status-by-id run-id test-id #f "WAIVED" comment)
						 (rmt:test-set-state-status run-id test-id #f "WAIVED" comment)
						 (db:test-set-status! testdat "WAIVED")
						 (cmtcmd comment)
						 (iup:destroy! dlog))))))
		  (iup:button "Cancel"
			      #:expand "HORIZONTAL" 
			      #:action (lambda (obj)
					 (iup:destroy! dlog)))))))