Overview
| Comment: | Fixed running of single item issue. Might be at the expense of a toplevel bug fix |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.60 |
| Files: | files | file ages | folders |
| SHA1: |
5276154e718e8dd28a18d360b560a407 |
| User & Date: | matt on 2015-06-07 00:25:24 |
| Other Links: | branch diff | manifest | tags |
Context
|
2015-06-08
| ||
| 12:41 | Bumping version to v1.6016 check-in: b194f7897a user: icfadm tags: v1.60 | |
|
2015-06-07
| ||
| 00:25 | Fixed running of single item issue. Might be at the expense of a toplevel bug fix check-in: 5276154e71 user: matt tags: v1.60 | |
|
2015-06-05
| ||
| 23:27 | Reverted dashboard to direct file access. Enabled dynamic server starting based on query time (settable in megatest.config). check-in: 42eb0d6807 user: matt tags: v1.60 | |
Changes
Modified megatest.scm from [28db6031ae] to [dec3653e88].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
;; Copyright 2006-2012, Matthew Welland.
;;
;; This program is made available under the GNU GPL version 2.0 or
;; greater. See the accompanying file COPYING for details.
;;
;; This program is distributed WITHOUT ANY WARRANTY; without even the
;; implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
;; PURPOSE.
;; (include "common.scm")
;; (include "megatest-version.scm")
;; fake out readline usage of toplevel-command
(define (toplevel-command . a) #f)
(use sqlite3 srfi-1 posix regex regex-case srfi-69 base64 readline apropos json http-client directory-utils rpc ;; (srfi 18) extras)
http-client srfi-18 extras format) ;; zmq extras)
| > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 |
;; Copyright 2006-2012, Matthew Welland.
;;
;; This program is made available under the GNU GPL version 2.0 or
;; greater. See the accompanying file COPYING for details.
;;
;; This program is distributed WITHOUT ANY WARRANTY; without even the
;; implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
;; PURPOSE.
;; (include "common.scm")
;; (include "megatest-version.scm")
(define (toplevel-command . a) #f)
;; fake out readline usage of toplevel-command
(define (toplevel-command . a) #f)
(use sqlite3 srfi-1 posix regex regex-case srfi-69 base64 readline apropos json http-client directory-utils rpc ;; (srfi 18) extras)
http-client srfi-18 extras format) ;; zmq extras)
|
| ︙ | ︙ |
Modified runs.scm from [201ab7c8d7] to [0db86f3289].
| ︙ | ︙ | |||
258 259 260 261 262 263 264 |
;; Now generate all the tests lists
(set! all-tests-registry (tests:get-all))
(set! all-test-names (hash-table-keys all-tests-registry))
(set! test-names (tests:filter-test-names all-test-names test-patts))
;; I think seeding required-tests with all test-names makes sense but lack analysis to back that up.
;;
| | | | 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 |
;; Now generate all the tests lists
(set! all-tests-registry (tests:get-all))
(set! all-test-names (hash-table-keys all-tests-registry))
(set! test-names (tests:filter-test-names all-test-names test-patts))
;; I think seeding required-tests with all test-names makes sense but lack analysis to back that up.
;;
(set! required-tests (lset-intersection equal? (string-split test-patts ",") all-test-names))
;; (set! required-tests (lset-intersection equal? test-names all-test-names))
;; look up all tests matching the comma separated list of globs in
;; test-patts (using % as wildcard)
;; (set! test-names (delete-duplicates (tests:get-valid-tests *toppath* test-patts)))
(debug:print-info 0 "tests search path: " (string-intersperse (tests:get-tests-search-path *configdat*) " "))
(debug:print-info 0 "all tests: " (string-intersperse (sort all-test-names string<) " "))
|
| ︙ | ︙ |