1#!/bin/sh 2BANNER="----------------------------------------------------------------------------" 3TCLSH="tclsh all.tcl -preservecore 3 -verbose bps -tmpdir ./results -outfile test-ippool.result" 4 5test_setup() { 6 if [ -d ./results ]; then rm -fr ./results; fi 7 mkdir ./results 8} 9 10test_ippool() { 11 echo "${BANNER}" 12 eval $TCLSH -constraints "ipPool" 13} 14test_postprocess() { 15 echo "${BANNER}" 16 (failed=`grep FAILED results/*.result | wc -l`; \ 17 let failed2=failed/2 ;\ 18 passed=`grep PASSED results/*.result | wc -l`; \ 19 echo "TEST SUMMARY: $passed tests PASSED, $failed2 tests FAILED" ;\ 20 exit $failed2) 21} 22 23test_setup 24test_ippool 25test_postprocess 26 27