Megatest

Check-in [a01734df49]
Login
Overview
Comment:Changed version to 1.7015
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.71 | v1.7015
Files: files | file ages | folders
SHA1: a01734df4930da86ce24b3d902ab1152724adb68
User & Date: mmgraham on 2023-05-16 18:07:46
Other Links: branch diff | manifest | tags
Context
2023-05-17
11:54
Changed version to 1.7101 check-in: 44fc420b74 user: mmgraham tags: v1.71
2023-05-16
18:07
Changed version to 1.7015 check-in: a01734df49 user: mmgraham tags: v1.71, v1.7015
2023-05-15
18:59
Limit to 10 dbs. Fully turned off running find-and-mark in runs.scm check-in: 447b257e2f user: matt tags: v1.71
Changes

Modified dbfile.scm from [8e0e70bc74] to [2804b5db1a].

807
808
809
810
811
812
813
814


815
816
817
818
819
820
821
	        (sqlite3:for-each-row
	          (lambda (a . b)
	            (set! fromdat (cons (apply vector a b) fromdat))
	            (if (> (length fromdat) batch-len)
		      (begin
		        (set! fromdats (cons fromdat fromdats))
		        (set! fromdat  '())
		        (set! totrecords (+ totrecords 1)))


                    )
                 )
	         (dbr:dbdat-dbh fromdb)
	         full-sel)
              )
            )








|
>
>







807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
	        (sqlite3:for-each-row
	          (lambda (a . b)
	            (set! fromdat (cons (apply vector a b) fromdat))
	            (if (> (length fromdat) batch-len)
		      (begin
		        (set! fromdats (cons fromdat fromdats))
		        (set! fromdat  '())
		        (set! totrecords (+ totrecords 1))
                        (thread-sleep! 2)
                      )
                    )
                 )
	         (dbr:dbdat-dbh fromdb)
	         full-sel)
              )
            )

Modified megatest-version.scm from [9b7afeda4b] to [44728c9efd].

16
17
18
19
20
21
22
23
;;     along with Megatest.  If not, see <http://www.gnu.org/licenses/>.

;; Always use two or four digit decimal
;; 1.01, 1.02...1.10,1.11,1.1101 ... 1.99,2.00..

;; (declare (unit megatest-version))

(define megatest-version 1.7014)







|
16
17
18
19
20
21
22
23
;;     along with Megatest.  If not, see <http://www.gnu.org/licenses/>.

;; Always use two or four digit decimal
;; 1.01, 1.02...1.10,1.11,1.1101 ... 1.99,2.00..

;; (declare (unit megatest-version))

(define megatest-version 1.7015)