Megatest

Check-in [1fee8d8e98]
Login
Overview
Comment:added flag to allow adding prefix to target
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.64
Files: files | file ages | folders
SHA1: 1fee8d8e98618e1481ac24bd238ba957e1cec4b0
User & Date: srehman on 2017-03-15 17:32:13
Other Links: branch diff | manifest | tags
Context
2017-04-04
16:44
changes for webapp Closed-Leaf check-in: 46824503fa user: pjhatwal tags: pjhatwal1.64
2017-03-16
12:13
added pgsync via command line creds check-in: 5d1a6894bb user: srehman tags: v1.64
2017-03-15
17:32
added flag to allow adding prefix to target check-in: 1fee8d8e98 user: srehman tags: v1.64
2017-03-08
18:52
added filter to runs page check-in: f7eea52531 user: pjhatwal tags: v1.64
Changes

Modified megatest.scm from [4efda530ec] to [eda3e8595c].

286
287
288
289
290
291
292

293
294
295
296
297
298
299
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300







+







			"-target-db"
			"-source-db"

                        "-src-target"
                        "-src-runname"
                        "-diff-email"
			"-sync-to"
			"-prefix-target"			
                        "-diff-html"
			)
 		 (list  "-h" "-help" "--help"
			"-manual"
			"-version"
		        "-force"
		        "-xterm"

Modified tasks.scm from [65c9539101] to [57e383db06].

613
614
615
616
617
618
619
620

621
622
623
624
625
626
627
613
614
615
616
617
618
619

620
621
622
623
624
625
626
627







-
+







(define (tasks:run-id->mtpg-run-id dbh cached-info run-id)
  (let* ((runs-ht (hash-table-ref cached-info 'runs))
	 (runinf  (hash-table-ref/default runs-ht run-id #f)))
    (if runinf
	runinf ;; already cached
	(let* ((keytarg    (string-intersperse (rmt:get-keys) "/")) ;; e.g. version/iteration/platform
	       (spec-id    (pgdb:get-ttype dbh keytarg))
	       (target     (rmt:get-target run-id))                 ;; e.g. v1.63/a3e1/ubuntu
	       (target     (if (and (args:get-arg "-sync-to") (args:get-arg "-prefix-target")) (set! target (conc (args:get-arg "-prefix-target") (rmt:get-target run-id))) (rmt:get-target run-id)))                 ;; e.g. v1.63/a3e1/ubuntu
	       (run-dat    (rmt:get-run-info run-id))               ;; NOTE: get-run-info returns a vector < row header >
	       (run-name   (rmt:get-run-name-from-id run-id))
	       (new-run-id (pgdb:get-run-id dbh spec-id target run-name))
	       (row        (db:get-rows run-dat))                   ;; yes, this returns a single row
	       (header     (db:get-header run-dat))
	       (state      (db:get-value-by-header row header "state "))
	       (status     (db:get-value-by-header row header "status"))