Megatest

Check-in [dd032a6908]
Login
Overview
Comment:Removed debugging print stmt
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.61
Files: files | file ages | folders
SHA1: dd032a69086fda77fc464f12b5bbc5a50e8f321f
User & Date: mrwellan on 2016-06-22 10:15:55
Other Links: branch diff | manifest | tags
Context
2016-06-22
10:43
Converted to using debug:print-error and added double printing of errors when output is sent to log file check-in: 537ddaa4f1 user: mrwellan tags: v1.61
10:15
Removed debugging print stmt check-in: dd032a6908 user: mrwellan tags: v1.61
10:04
Fixed typo. Added -rerun-all check-in: 907be55132 user: mrwellan tags: v1.61
Changes

Modified runs.scm from [2f2ce54b51] to [9b1e44d0d7].

949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
			(not (and prevdat
				  (equal? state  (db:test-get-state  prevdat))
				  (equal? status (db:test-get-status prevdat)))))
		   (let ((fmt   (runs:gendat-inc-results-fmt *runs:general-data*))
			 (dtime (seconds->year-work-week/day-time event-time))) 
		     (if (runs:lownoise "inc-print" 600)
			 (format #t fmt "State" "Status" "Start Time" "Duration" "Test name" "Item path"))
		     (debug:print 0 *default-log-port* "fmt: " fmt " state: " state " status: " status " test-name: " test-name " item-path: " item-path " dtime: " dtime)
		     ;; (debug:print 0 #f "event-time: " event-time " duration: " duration)
		     (format #t fmt
			     state
			     status
			     dtime
			     (seconds->hr-min-sec duration)
			     test-name







|







949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
			(not (and prevdat
				  (equal? state  (db:test-get-state  prevdat))
				  (equal? status (db:test-get-status prevdat)))))
		   (let ((fmt   (runs:gendat-inc-results-fmt *runs:general-data*))
			 (dtime (seconds->year-work-week/day-time event-time))) 
		     (if (runs:lownoise "inc-print" 600)
			 (format #t fmt "State" "Status" "Start Time" "Duration" "Test name" "Item path"))
		     ;; (debug:print 0 *default-log-port* "fmt: " fmt " state: " state " status: " status " test-name: " test-name " item-path: " item-path " dtime: " dtime)
		     ;; (debug:print 0 #f "event-time: " event-time " duration: " duration)
		     (format #t fmt
			     state
			     status
			     dtime
			     (seconds->hr-min-sec duration)
			     test-name