source4/script/tests/test_pidl.sh


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

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

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


for f in pidl/tests/*.pl; do
    testit "$f" $PERL -MExtUtils::Command::MM -e "test_harness()" $f || failed=`expr $failed + 1`
done

testok $0 $failed