Megatest

Check-in [d6f19abb24]
Login
Overview
Comment:Fixed -test-files (again). This is more useful than it might appear. It is able to find files even when the item path hierarchy changes.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.63
Files: files | file ages | folders
SHA1: d6f19abb24338ee31f63ea4c81658694baa2eae0
User & Date: matt on 2016-12-11 00:38:35
Other Links: branch diff | manifest | tags
Context
2016-12-11
19:07
basic automatic launching to remote hosts check-in: a4468798cf user: matt tags: v1.63, v1.6302
11:22
Committing automated merge of v1.63/d6f19abb24/integ into check-in: 8533e41b48 user: matt tags: integ-home
00:38
Fixed -test-files (again). This is more useful than it might appear. It is able to find files even when the item path hierarchy changes. check-in: d6f19abb24 user: matt tags: v1.63
2016-12-10
23:58
Added include from script output (requested many times) check-in: d6290cc32a user: matt tags: v1.63
Changes

Modified megatest.scm from [bd5acaa861] to [da4e664704].

1527
1528
1529
1530
1531
1532
1533

1534

1535
1536
1537
1538
1539
1540
1541
1527
1528
1529
1530
1531
1532
1533
1534

1535
1536
1537
1538
1539
1540
1541
1542







+
-
+







		(debug:print 0 *default-log-port* "Failed to setup, giving up on -test-paths or -test-files, exiting")
		(exit 1)))
	  (let* ((keys     (rmt:get-keys))
		 ;; db:test-get-paths must not be run remote
		 (paths    (tests:test-get-paths-matching keys target (args:get-arg "-test-files"))))
	    (set! *didsomething* #t)
	    (for-each (lambda (path)
			(if (file-exists? path)
			(print path))
			(print path)))	
		      paths)))
	;; else do a general-run-call
	(general-run-call 
	 "-test-files"
	 "Get paths to test"
	 (lambda (target runname keys keyvals)
	   (let* ((db       #f)