| #!/bin/sh |
| |
| set -u |
| |
| export LANG=en-US.UTF-8 |
| |
| # Tell all.tcl to exit with an error code if there are failing tests |
| export ERROR_ON_FAILURES=1 |
| |
| # Some tests are overly strict with timings and fail on loaded systems. |
| SKIP="" |
| # 15321 |
| SKIP="$SKIP async-\* event-\*" |
| # This test behaves differently when using a system tzdata, skip until fixed upstream |
| # https://core.tcl-lang.org/tcl/tktview/51aa53616067cb63900b17ca1d71f07b094ffa1a |
| SKIP="$SKIP clock-59.2\*" |
| # 14882 |
| SKIP="$SKIP cmdMZ-6.6" |
| # 15081 |
| SKIP="$SKIP exit-1.\*" |
| # 15407 15421 |
| SKIP="$SKIP \*io-46.1" |
| # io-13.6 explicitly says it can fail on slow/loaded machines |
| SKIP="$SKIP \*io-13.6" |
| # Has race conditions and is missing cleanup |
| SKIP="$SKIP interp-36.7" |
| # The socket tests seem to be problematic with tight timing conditions, skip them all. |
| # 14825 15495 |
| SKIP="$SKIP socket-\* socket_inet\* socket_inet6\*" |
| # These tests seem to be unreliable: |
| # https://core.tcl-lang.org/tcl/tktview/3764f4e81f1483ab554c6d60f8483887bde28221 |
| SKIP="$SKIP http11-\*" |
| # tries to access google.com |
| SKIP="$SKIP httpProxy-\*" |
| # These tests appear to be load-sensitive (16214) |
| SKIP="$SKIP mutex-condition-\*" |
| # Timer-related tests are going to be fragile (16324) |
| SKIP="$SKIP timer-\*" |
| |
| # Run all tests in tests/*.test unless tests are specified as arguments |
| TESTS=${*:-tests/*.test} |
| |
| exitcode=0 |
| for name in $TESTS; do |
| ./tcltest tests/all.tcl -file $(basename $name) -skip "$SKIP" |
| if [ $? -eq 0 ]; then |
| echo "PASS: $name" |
| else |
| echo "FAIL: $name" |
| exitcode=1 |
| fi |
| echo |
| done |
| |
| exit $exitcode |
