Overview
| Comment: | Better way of handling scripts. Still needs improvement. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.60_defunct |
| Files: | files | file ages | folders |
| SHA1: |
7254840ac9f1538ecc729917cc7029db |
| User & Date: | mrwellan on 2016-03-22 15:27:31 |
| Other Links: | branch diff | manifest | tags |
Context
|
2016-04-05
| ||
| 15:01 | Partial refactoring fix of tests dependency tree check-in: 5838fde95e user: mrwellan tags: v1.60_defunct | |
|
2016-03-22
| ||
| 15:27 | Better way of handling scripts. Still needs improvement. check-in: 7254840ac9 user: mrwellan tags: v1.60_defunct | |
|
2016-03-21
| ||
| 20:39 | Use env var to trigger loading scripts check-in: 67f07adab1 user: mrwellan tags: v1.60_defunct | |
Changes
Modified megatest.scm from [0245af141a] to [3afaa2cebb].
| ︙ | ︙ | |||
1866 1867 1868 1869 1870 1871 1872 |
(if (or (getenv "MT_RUNSCRIPT")
(args:get-arg "-repl")
(args:get-arg "-load"))
(let* ((toppath (launch:setup))
(dbstruct (if toppath (make-dbr:dbstruct path: toppath local: (args:get-arg "-local")) #f)))
(if dbstruct
(cond
| | | > > > > > | > > | > | 1866 1867 1868 1869 1870 1871 1872 1873 1874 1875 1876 1877 1878 1879 1880 1881 1882 1883 1884 1885 1886 1887 1888 1889 1890 1891 |
(if (or (getenv "MT_RUNSCRIPT")
(args:get-arg "-repl")
(args:get-arg "-load"))
(let* ((toppath (launch:setup))
(dbstruct (if toppath (make-dbr:dbstruct path: toppath local: (args:get-arg "-local")) #f)))
(if dbstruct
(cond
((getenv "MT_RUNSCRIPT")
;; How to run megatest scripts
;;
;; #!/bin/bash
;;
;; export MT_RUNSCRIPT=yes
;; megatest << EOF
;; (print "Hello world")
;; (exit)
;; EOF
(repl))
(else
(begin
(set! *db* dbstruct)
(set! *client-non-blocking-mode* #t)
(import extras) ;; might not be needed
;; (import csi)
(import readline)
|
| ︙ | ︙ |
Modified tests.scm from [5b29cc1f30] to [fd4aa50106].
| ︙ | ︙ | |||
892 893 894 895 896 897 898 |
(let ((all-testnames (hash-table-keys test-records)))
(if (null? all-testnames)
'()
(let loop ((hed (car all-testnames))
(tal (cdr all-testnames))
(res (list "digraph tests {"
" size=\"11,11\";"
| | | 892 893 894 895 896 897 898 899 900 901 902 903 904 905 906 |
(let ((all-testnames (hash-table-keys test-records)))
(if (null? all-testnames)
'()
(let loop ((hed (car all-testnames))
(tal (cdr all-testnames))
(res (list "digraph tests {"
" size=\"11,11\";"
" ratio=0.9;")))
(let* ((testrec (hash-table-ref test-records hed))
(waitons (or (tests:testqueue-get-waitons testrec) '()))
(newres (append res
(if (null? waitons)
(list (conc " \"" hed "\";"))
(map (lambda (waiton)
(conc " \"" waiton "\" -> \"" hed "\";"))
|
| ︙ | ︙ |