Overview
| Comment: | Fixed few bugs |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.61 |
| Files: | files | file ages | folders |
| SHA1: |
4c0b8cd38e261c26f225b786f3fdf50d |
| User & Date: | matt on 2016-05-08 22:22:28 |
| Other Links: | branch diff | manifest | tags |
Context
|
2016-05-08
| ||
| 23:49 | Added -clean-cache check-in: 97837ebda4 user: matt tags: v1.61 | |
| 22:22 | Fixed few bugs check-in: 4c0b8cd38e user: matt tags: v1.61 | |
| 18:28 | Fixed missing qualifier on triggers for last_update. Write current seconds to necessary data structure, subtracting 2 to ensure all records are retrieved check-in: 074dd23a4e user: matt tags: v1.61 | |
Changes
Modified tests.scm from [d2a9815087] to [9694ca520c].
| ︙ | ︙ | |||
751 752 753 754 755 756 757 | ;; (filter (lambda (testname) ;; (tests:match test-patts testname #f)) ;; (map (lambda (testp) ;; (last (string-split testp "/"))) ;; tests))))) (define (tests:get-test-path-from-environment) | | | | | | | | | | | | | > | 751 752 753 754 755 756 757 758 759 760 761 762 763 764 765 766 767 768 769 770 771 772 773 774 775 776 777 |
;; (filter (lambda (testname)
;; (tests:match test-patts testname #f))
;; (map (lambda (testp)
;; (last (string-split testp "/")))
;; tests)))))
(define (tests:get-test-path-from-environment)
(if (and (getenv "MT_LINKTREE")
(getenv "MT_TARGET")
(getenv "MT_RUNNAME")
(getenv "MT_TEST_NAME")
(getenv "MT_ITEMPATH"))
(conc (getenv "MT_LINKTREE") "/"
(getenv "MT_TARGET") "/"
(getenv "MT_RUNNAME") "/"
(getenv "MT_TEST_NAME") "/"
(if (or (getenv "MT_ITEMPATH")
(not (string=? "" (getenv "MT_ITEMPATH"))))
(conc "/" (getenv "MT_ITEMPATH"))))
#f))
;; if .testconfig exists in test directory read and return it
;; else if have cached copy in *testconfigs* return it IFF there is a section "have fulldata"
;; else read the testconfig file
;; if have path to test directory save the config as .testconfig and return it
;;
(define (tests:get-testconfig test-name test-registry system-allowed #!key (force-create #f))
|
| ︙ | ︙ |