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: |
dd032a69086fda77fc464f12b5bbc5a5 |
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 | (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")) | | | 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 |
︙ | ︙ |