source4/script/tests/test_pidl.sh


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

#!/bin/sh
if [ ! -n "$PERL" ]
then
	PERL=perl
fi

incdir=`dirname $0`
. $incdir/test_functions.sh

failed=0

for f in pidl/tests/*.pl; do
    testit "$f" $PERL $f || failed=`expr $failed + 1`
done

testok $0 $failed