Megatest

Check-in [737532df21]
Login
☰Home Timeline Files Branches Tags Tickets Wiki Login
Overview
Comment:Merged in some leftover changes....
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 737532df21c8cdadad037ee7218ee9a293aa0705
User & Date: mrwellan on 2012-10-15 08:54:51
Other Links: manifest | tags
Context
2012-10-15
10:06
Added wrapping of test desciption at 40 chars check-in: 1dca81e5c4 user: mrwellan tags: trunk
08:54
Merged in some leftover changes.... check-in: 737532df21 user: mrwellan tags: trunk
2012-10-14
23:27
Resized test patt box on dashboard, updated help for removal of -itempatt, temporary remove of -rollup, added rollup test, added -test-file and -test-path tests check-in: c3f6a89ed1 user: matt tags: trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified megatest.scm from [bc96cda5c5] to [cbd52df01f].

︙
470
471
472
473
474
475
476
477
478

479
480
481
482
483
484
485

470
471
472
473
474
475
476


477
478
479
480
481
482
483
484








-
-
+








	      (begin
		(debug:print 0 "ERROR: -target is required.")
		(exit 1)))
	  (if (not (setup-for-run))
	      (begin
		(debug:print 0 "Failed to setup, giving up on -test-paths or -test-files, exiting")
		(exit 1)))
	  (let* ((itempatt (args:get-arg "-itempatt"))
		 (keys     (open-run-close db:get-keys db))
	  (let* ((keys     (open-run-close db:get-keys db))
		 (keynames (map key:get-fieldname keys))
		 (paths    (open-run-close db:test-get-paths-matching db keynames target (args:get-arg "-test-files"))))
	    (set! *didsomething* #t)
	    (for-each (lambda (path)
			(print path))
		      paths)))
	;; else do a general-run-call
︙

This page was generated in about 0.11s by Fossil 2.24 [452f8e1ffc] 2024-03-26 15:36:00