Megatest

Check-in [91d7f9519d]
Login
Overview
Comment:Fixed missing call to db:setup in -cleanup-db
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.63
Files: files | file ages | folders
SHA1: 91d7f9519db7786fcee7b872d714fbd673dc3d18
User & Date: mrwellan on 2016-12-07 11:05:32
Other Links: branch diff | manifest | tags
Context
2016-12-08
09:52
Fixed call to update testdat with wrong num params check-in: 97a7ddf3ae user: mrwellan tags: v1.63
2016-12-07
20:53
merged v1.63 check-in: e25c16ede1 user: bjbarcla tags: v1.62-rpc
11:05
Fixed missing call to db:setup in -cleanup-db check-in: 91d7f9519d user: mrwellan tags: v1.63
2016-12-06
22:46
Fix marking incompletes to respect run-id check-in: d19eca2c09 user: mrwellan tags: v1.63
Changes

Modified megatest.scm from [46d15d3c2a] to [04febac19c].

1823
1824
1825
1826
1827
1828
1829

1830
1831
1832
1833
1834
1835
1836
1837

(if (args:get-arg "-cleanup-db")
    (begin
      (if (not (launch:setup))
	  (begin
	    (debug:print 0 *default-log-port* "Failed to setup, exiting") 
	    (exit 1)))

      (common:cleanup-db)
      (set! *didsomething* #t)))

(if (args:get-arg "-mark-incompletes")
    (begin
      (if (not (launch:setup))
	  (begin
	    (debug:print 0 *default-log-port* "Failed to setup, exiting")







>
|







1823
1824
1825
1826
1827
1828
1829
1830
1831
1832
1833
1834
1835
1836
1837
1838

(if (args:get-arg "-cleanup-db")
    (begin
      (if (not (launch:setup))
	  (begin
	    (debug:print 0 *default-log-port* "Failed to setup, exiting") 
	    (exit 1)))
      (let ((dbstruct (db:setup *toppath*)))
        (common:cleanup-db dbstruct))
      (set! *didsomething* #t)))

(if (args:get-arg "-mark-incompletes")
    (begin
      (if (not (launch:setup))
	  (begin
	    (debug:print 0 *default-log-port* "Failed to setup, exiting")