Megatest

Check-in [e25c16ede1]
Login
Overview
Comment:merged v1.63
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.62-rpc
Files: files | file ages | folders
SHA1: e25c16ede10ed17fcb9ca430bb72437b26dae7fb
User & Date: bjbarcla on 2016-12-07 20:53:52
Other Links: branch diff | manifest | tags
Context
2016-12-07
21:19
fixed stackdump at end of megatest (was doing http close all connections even if using rpc transport) check-in: 27b30355f5 user: bjbarcla tags: v1.62-rpc
20:53
merged v1.63 check-in: e25c16ede1 user: bjbarcla tags: v1.62-rpc
20:52
got test4 to run with rpc, but hit deadlock and errors in some tests. check-in: 551bd9234a 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
Changes

Modified megatest.scm from [0f506afcbd] to [a1517b64e1].

1822
1823
1824
1825
1826
1827
1828

1829

1830
1831
1832
1833
1834
1835
1836
1822
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)))
      (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")