Megatest

Check-in [e13dadf97a]
Login
Overview
Comment:Junk eh?
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | refactor
Files: files | file ages | folders
SHA1: e13dadf97add55478f500fc252636b2cc387bc88
User & Date: matt on 2013-05-06 00:48:43
Other Links: branch diff | manifest | tags
Context
2013-05-06
10:52
Non-existant waiton check, updates to unit tests, various fixes from refactoring fallout check-in: 3c69374e35 user: mrwellan tags: refactor
00:48
Junk eh? check-in: e13dadf97a user: matt tags: refactor
00:44
Clean up related to test1 and refactoring check-in: 5c6d9dac45 user: matt tags: refactor
Changes

Modified tests/tests.scm from [44620017fc] to [6b53f866a9].

252
253
254
255
256
257
258



259
260
261
262
263
264
265
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268







+
+
+







(test "get a testconfig" #t (let ((tconf (tests:get-testconfig "test1" 'return-procs)))
			      (set! tconfig tconf)
			      (hash-table? tconf)))
(db:clean-all-caches)

(set! *verbosity* (list 0 1 2))

(test #f #t (set-megatest-env-vars 1 inkeys: keys))
(test #f #t (setup-env-defaults "runconfigs.config" 1 *already-seen-runconfig-info* keys keyvals "pre-launch-env-vars"))

(test "Run a test" #t (general-run-call 
		       "-runtests" 
		       "run a test"
		       (lambda (target runname keys keyvallst)
			 (let ((test-patts "test%"))
			   ;; (runs:run-tests target runname test-patts user (make-hash-table))
			   ;; (run:test run-id run-info key-vals runname test-record flags parent-test)