Overview
Comment: | Added some initial checks at the beginning of all-rmt.scm to gate the more complex tests from simple problems. |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | v1.65 |
Files: | files | file ages | folders |
SHA1: |
20a8d29b9b4732f0aaa19129e9fa35cb |
User & Date: | mrwellan on 2019-09-05 15:29:55 |
Other Links: | branch diff | manifest | tags |
Context
2019-09-16
| ||
16:19 | Add unit as target from top dir. check-in: 7c04317658 user: mrwellan tags: v1.65 | |
2019-09-05
| ||
15:29 | Added some initial checks at the beginning of all-rmt.scm to gate the more complex tests from simple problems. check-in: 20a8d29b9b user: mrwellan tags: v1.65 | |
2019-08-30
| ||
10:59 | Kill any residual servers at the beginning of all-rmt unit test. check-in: 931244e94b user: mrwellan tags: v1.65 | |
Changes
Modified tests/unittests/all-rmt.scm from [89dcfe42a3] to [3c7b17d5c4].
︙ | |||
33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 | 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 | + + + + + + + + + - - + + + + | (print "start dir: " (current-directory)) (define toppath (current-directory)) (test #f #f (server:check-if-running toppath)) ;; these are used by server:start-and-wait (test #f #t (list? (server:get-list toppath))) (test #f '() (server:get-best '())) (test #f #t (common:simple-file-lock-and-wait "test.lock" expire-time: 15)) (test #f "test.lock" (common:simple-file-release-lock "test.lock")) (test #f #t (server:get-best-guess-address (get-host-name))) (test #f #t (string? (common:get-homehost))) ;; clean out any old running servers ;; (let ((servers (server:get-list toppath))) (print "Known servers: " servers) (if (not (null? servers)) (begin (for-each (lambda (server) (let ((pid (list-ref server 4))) (thread-start! (make-thread (lambda () (print "Attempting to kill server: " server) (print "Attempting to kill pid " pid) (system (conc "kill " pid)) (thread-sleep! 2) (system (conc "kill -9 " pid))) (conc pid))))) servers) (thread-sleep! 2)))) ;; let's start up a server the mechanical way |
︙ |