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