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) |
| ︙ | ︙ |