| #!/bin/sh |
| BANNER="----------------------------------------------------------------------------" |
| TCLSH="tclsh all.tcl -preservecore 3 -verbose bps -tmpdir ./results -outfile test-ippool.result" |
| |
| test_setup() { |
| if [ -d ./results ]; then rm -fr ./results; fi |
| mkdir ./results |
| } |
| |
| test_ippool() { |
| echo "${BANNER}" |
| eval $TCLSH -constraints "ipPool" |
| } |
| test_postprocess() { |
| echo "${BANNER}" |
| (failed=`grep FAILED results/*.result | wc -l`; \ |
| let failed2=failed/2 ;\ |
| passed=`grep PASSED results/*.result | wc -l`; \ |
| echo "TEST SUMMARY: $passed tests PASSED, $failed2 tests FAILED" ;\ |
| exit $failed2) |
| } |
| |
| test_setup |
| test_ippool |
| test_postprocess |
| |