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