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)) |
︙ | ︙ |