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







>
>
>







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)