Megatest

Check-in [77620de737]
Login
Overview
Comment:fix list run times.. added launch setup.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.65
Files: files | file ages | folders
SHA1: 77620de737b78f85f7b30f7e298428ddd67bd928
User & Date: pjhatwal on 2017-10-04 10:32:58
Other Links: branch diff | manifest | tags
Context
2017-10-09
15:19
fixed pgdb sync to skip deleted runs if they were not added to pgdb in prior sync check-in: 0ae58081ef user: pjhatwal tags: v1.65
2017-10-04
10:32
fix list run times.. added launch setup. check-in: 77620de737 user: pjhatwal tags: v1.65
2017-09-27
14:25
added cmd line support to show run times check-in: b95f77dc67 user: pjhatwal tags: v1.65
Changes

Modified megatest.scm from [abc0584839] to [6863d8b097].

2235
2236
2237
2238
2239
2240
2241
2242

2243
2244
2245
2246
2247

2248
2249
2250
2251
2252
2253
2254
2235
2236
2237
2238
2239
2240
2241

2242
2243
2244
2245
2246

2247
2248
2249
2250
2251
2252
2253
2254







-
+




-
+








(if (args:get-arg "-sync-to")
    (let ((toppath (launch:setup)))
      (tasks:sync-to-postgres *configdat* (args:get-arg "-sync-to"))
      (set! *didsomething* #t)))

(if (args:get-arg "-list-test-time")
     (begin 
     (let* ((toppath (launch:setup))) 
     (task:get-test-times)  
     (set! *didsomething* #t)))

(if (args:get-arg "-list-run-time")
     (begin 
     (let* ((toppath (launch:setup))) 
     (task:get-run-times)  
     (set! *didsomething* #t)))
     
(if (args:get-arg "-generate-html")
    (let* ((toppath (launch:setup)))
      (if (tests:create-html-tree #f)
          (debug:print-info 0 *default-log-port* "HTML output created in " toppath "/lt/page#.html")