Differences From Artifact [ce4320f87b]:
- File tests.scm — part of check-in [3de9db9a0f] at 2012-04-23 02:36:33 on branch extend-test-get-path — Added simple helper for creating new tests and megatest areas (user: matt, size: 19534) [annotate] [blame] [check-ins using] [more...]
To Artifact [e315223b61]:
- File tests.scm — part of check-in [9d84a5eddb] at 2012-04-18 12:38:53 on branch trunk — Added missing header (user: matt, size: 19483) [annotate] [blame] [check-ins using]
︙ | ︙ | |||
74 75 76 77 78 79 80 | (not (null? tal))) (loop (car tal)(cdr tal)) (if (null? results) #f (car results)))))))))) ;; get the previous records for when these tests were run where all keys match but runname ;; NB// Merge this with test:get-previous-test-run-records? This one looks for all matching tests | | | 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 | (not (null? tal))) (loop (car tal)(cdr tal)) (if (null? results) #f (car results)))))))))) ;; get the previous records for when these tests were run where all keys match but runname ;; NB// Merge this with test:get-previous-test-run-records? This one looks for all matching tests ;; can use wildcards. (define (test:get-matching-previous-test-run-records db run-id test-name item-path) (let* ((keys (db:get-keys db)) (selstr (string-intersperse (map (lambda (x)(vector-ref x 0)) keys) ",")) (qrystr (string-intersperse (map (lambda (x)(conc (vector-ref x 0) "=?")) keys) " AND ")) (keyvals #f) (tests-hash (make-hash-table))) ;; first look up the key values from the run selected by run-id |
︙ | ︙ |