Overview
Comment: | Added correct exit back for non-server mode |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | test-specific-db |
Files: | files | file ages | folders |
SHA1: |
4111a3bf40473df60892aec00dd6221d |
User & Date: | matt on 2012-10-01 21:48:41 |
Other Links: | branch diff | manifest | tags |
Context
2012-10-01
| ||
23:11 | Added checking on -debug for non-numbers check-in: 1ad597218e user: matt tags: test-specific-db, v1.4608 | |
21:48 | Added correct exit back for non-server mode check-in: 4111a3bf40 user: matt tags: test-specific-db | |
17:32 | partial recovery of rpc mechanism check-in: 541cc327b6 user: mrwellan tags: test-specific-db | |
Changes
Modified runs.scm from [985ca1292d] to [5de4941805].
︙ | ︙ | |||
521 522 523 524 525 526 527 | ;; we get here on "drop through" - loop for next test in queue (if (null? tal) (begin ;; FIXME!!!! THIS SHOULD NOT REQUIRE AN EXIT!!!!!!! (debug:print 1 "INFO: All tests launched") (thread-sleep! 0.5) ;; FIXME! This harsh exit should not be necessary.... | | | 521 522 523 524 525 526 527 528 529 530 531 532 533 534 535 | ;; we get here on "drop through" - loop for next test in queue (if (null? tal) (begin ;; FIXME!!!! THIS SHOULD NOT REQUIRE AN EXIT!!!!!!! (debug:print 1 "INFO: All tests launched") (thread-sleep! 0.5) ;; FIXME! This harsh exit should not be necessary.... (if (not *runremote*)(exit)) ;; #f) ;; return a #f as a hint that we are done ;; Here we need to check that all the tests remaining to be run are eligible to run ;; and are not blocked by failed (let* ((newlst (open-run-close tests:filter-non-runnable #f run-id tal test-records)) ;; i.e. not FAIL, WAIVED, INCOMPLETE, PASS, KILLED, (junked (lset-difference equal? tal newlst))) (debug:print 4 "INFO: full drop through, if reruns is less than 100 we will force retry them: " reruns) (if (< num-retries max-retries) |
︙ | ︙ |