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
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 
     (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")