Megatest

Check-in [1153bc2fba]
Login
Overview
Comment:fixed indentation
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.65 | 1.6535
Files: files | file ages | folders
SHA1: 1153bc2fbaf02086ad2b989accba68e6a9cb5ab5
User & Date: pjhatwal on 2019-09-19 14:59:07
Other Links: branch diff | manifest | tags
Context
2019-09-25
15:22
Added plan doc for ulex transition check-in: ad4a618778 user: mrwellan tags: v1.65
2019-09-20
04:03
Merged in v1.65 check-in: 24ae688ff1 user: matt tags: trunk
2019-09-19
14:59
fixed indentation check-in: 1153bc2fba user: pjhatwal tags: v1.65, 1.6535
14:52
update to pgdb sync to have publish time check-in: 8f2462ead6 user: pjhatwal tags: v1.65
Changes

Modified mt-pg.sql from [86e4db87d9] to [b692b264d4].

116
117
118
119
120
121
122
123

124
125
126
127
128
129
130
116
117
118
119
120
121
122

123
124
125
126
127
128
129
130







-
+







       owner      TEXT DEFAULT '',
       event_time INTEGER DEFAULT extract(epoch from now()),
       comment    TEXT DEFAULT '',
       fail_count INTEGER DEFAULT 0,
       pass_count INTEGER DEFAULT 0,
       last_update INTEGER DEFAULT extract(epoch from now()),
       area_id     INTEGER DEFAULT 0,
			 publish_time INTEGER default date_part('epoch'::text, now()),
       publish_time INTEGER default date_part('epoch'::text, now()),
       CONSTRAINT runsconstraint UNIQUE (target,ttype_id,run_name, area_id));

create Table if not exists change_triggers (
       id SERIAL           PRIMARY KEY,
       target              TEXT NOT NULL,
       area                TEXT NOT NULL,
       iteration           INTEGER NOT NULL,

Modified tasks.scm from [3cc42b97c9] to [b5c98d9ead].

769
770
771
772
773
774
775
776

777
778
779
780
781
782
783
784
785
786
787
769
770
771
772
773
774
775

776
777
778
779

780
781
782
783
784
785
786







-
+



-







									""))
         (last-update (db:get-value-by-header row header "last_update"))
	       (keytarg    (if (or (args:get-arg "-prepend-contour") (args:get-arg "-prefix-target"))
	       			(conc "MT_CONTOUR/MT_AREA/" (string-intersperse (rmt:get-keys) "/")) (string-intersperse (rmt:get-keys) "/"))) ;; e.g. version/iteration/platform
	       (target     (if (or (args:get-arg "-prepend-contour") (args:get-arg "-prefix-target")) 
	       			(conc (or (args:get-arg "-prefix-target") (conc contour "/" (common:get-area-name) "/")) (rmt:get-target run-id)) (rmt:get-target run-id)))                 ;; e.g. v1.63/a3e1/ubuntu
	       (spec-id    (pgdb:get-ttype dbh keytarg))
         (publish-time (if (args:get-arg "-cp-eventtime-to-publishtime")
	       (publish-time (if (args:get-arg "-cp-eventtime-to-publishtime")
                            event-time
                           (current-seconds))) 
	       (new-run-id (pgdb:get-run-id dbh spec-id target run-name area-id)))
					(print "event-time " event-time " publish-time " publish-time)
         (if new-run-id
	         (begin ;; let ((run-record (pgdb:get-run-info dbh new-run-id))
		        (hash-table-set! runs-ht run-id new-run-id)
		;; ensure key fields are up to date
     ;; if last_update == pgdb_last_update do not update smallest-last-update-time  
    (let* ((pgdb-last-update (pgdb:get-run-last-update dbh new-run-id))
           (smallest-time (hash-table-ref/default smallest-last-update-time "smallest-time" #f)))