876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
|
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
|
-
+
+
|
(if (and buttondat
(hash-table? testsdat-by-name))
(let* ((testdat (let ((matching (hash-table-ref/default testsdat-by-name testname #f)))
;; (filter
;; (lambda (x)(equal? (test:test-get-fullname x) testname))
;; testsdat)))
(if (not matching)
(vector -1 -1 "" "" "" 0 "" "" 0 "" "" "" 0 "" "")
;;(vector -1 -1 "" "" "" 0 "" "" 0 "" "" "" 0 "" "")
(make-db:test-rec (id -1))
;; (car matching))))
matching)))
(testname (db:test-get-testname testdat))
(itempath (db:test-get-item-path testdat))
(testfullname (test:test-get-fullname testdat))
(teststatus (db:test-get-status testdat))
(teststate (db:test-get-state testdat))
|