Megatest

Check-in [b541c8f3a1]
Login
Overview
Comment:Cherrypicked test path reordering per Tal's request.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.55 | v1.5525
Files: files | file ages | folders
SHA1: b541c8f3a1e362ad5f39a7720bba827431201c57
User & Date: matt on 2015-02-03 22:14:36
Other Links: branch diff | manifest | tags
Context
2015-03-23
23:56
nada check-in: 810dd1492f user: matt tags: v1.60
2015-03-13
00:38
Basic dump to json from list-runs check-in: 1753b52784 user: matt tags: v1.55
2015-02-03
22:14
Cherrypicked test path reordering per Tal's request. check-in: b541c8f3a1 user: matt tags: v1.55, v1.5525
2014-11-18
15:41
Tweaked installall.sh for a RedHat install check-in: cbcc0afda3 user: mrwellan tags: v1.55
Changes

Modified megatest-version.scm from [724ccf372e] to [ca9cc860b4].

1
2
3
4
5
6
7
;; Always use two digit decimal
;; 1.01, 1.02...1.10,1.11 ... 1.99,2.00..

(declare (unit megatest-version))

(define megatest-version 1.5524)






|

1
2
3
4
5
6
7
;; Always use two digit decimal
;; 1.01, 1.02...1.10,1.11 ... 1.99,2.00..

(declare (unit megatest-version))

(define megatest-version 1.5525)

Modified tests.scm from [cf71f12de1] to [a0ed3411a7].

32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
;; Call this one to do all the work and get a standardized list of tests
(define (tests:get-all)
  (let* ((test-search-path   (tests:get-tests-search-path *configdat*)))
    (tests:get-valid-tests (make-hash-table) test-search-path)))

(define (tests:get-tests-search-path cfgdat)
  (let ((paths (map cadr (configf:get-section cfgdat "tests-paths"))))
    (cons (conc *toppath* "/tests") paths)))

(define (tests:get-valid-tests test-registry tests-paths)
  (if (null? tests-paths) 
      test-registry
      (let loop ((hed (car tests-paths))
		 (tal (cdr tests-paths)))
	(if (file-exists? hed)







|







32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
;; Call this one to do all the work and get a standardized list of tests
(define (tests:get-all)
  (let* ((test-search-path   (tests:get-tests-search-path *configdat*)))
    (tests:get-valid-tests (make-hash-table) test-search-path)))

(define (tests:get-tests-search-path cfgdat)
  (let ((paths (map cadr (configf:get-section cfgdat "tests-paths"))))
    (append paths (list (conc *toppath* "/tests")))))

(define (tests:get-valid-tests test-registry tests-paths)
  (if (null? tests-paths) 
      test-registry
      (let loop ((hed (car tests-paths))
		 (tal (cdr tests-paths)))
	(if (file-exists? hed)

tests/installall/config/megatest.config.dat became a regular file with contents [736a5da885].

tests/installall/config/runconfigs.config.dat became a regular file with contents [3b8f260acb].