Megatest

Check-in [f32b18ba49]
Login
Overview
Comment:fixed list test time by adding launch:settup to check arguments before executing actual functionality
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.64 | v1.6432
Files: files | file ages | folders
SHA1: f32b18ba491a6e042e52203af9a3da045985834f
User & Date: pjhatwal on 2017-10-03 14:39:55
Other Links: branch diff | manifest | tags
Context
2017-10-10
13:27
Merged in itemflow2 branch and bumped version check-in: a43f4c88f9 user: mrwellan tags: v1.64, v1.6433
2017-10-05
12:16
second attempt to solve itemwait problems check-in: 29e9b8cb21 user: bjbarcla tags: v1.64-itemflow2
2017-10-03
14:39
fixed list test time by adding launch:settup to check arguments before executing actual functionality check-in: f32b18ba49 user: pjhatwal tags: v1.64, v1.6432
2017-09-29
17:13
added missing reruns argument to runs:loop-values check-in: 72c5be5101 user: pjhatwal tags: v1.64
Changes

Modified megatest.scm from [5e66a8aa2b] to [90635785a2].

2209
2210
2211
2212
2213
2214
2215
2216
2217
2218
2219
2220
2221
2222
2223
2224
2225
2226
2227
2228

(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 
     (task:get-test-times)  
     (set! *didsomething* #t)))

(if (args:get-arg "-list-run-time")
     (begin 
     (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")







|




|







2209
2210
2211
2212
2213
2214
2215
2216
2217
2218
2219
2220
2221
2222
2223
2224
2225
2226
2227
2228

(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")
     (let* ((toppath (launch:setup))) 
     (task:get-test-times)  
     (set! *didsomething* #t)))

(if (args:get-arg "-list-run-time")
     (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")