23 lines
381 B
Perl
23 lines
381 B
Perl
|
#!/bin/sh
|
||
|
|
# $FreeBSD$
|
||
|
|
|
||
|
|
cd `dirname $0`
|
||
|
|
|
||
|
|
executable=`basename $0 .t`
|
||
|
|
|
||
|
|
make $executable 2>&1 > /dev/null
|
||
|
|
|
||
|
|
echo 1..1
|
||
|
|
|
||
|
|
comment="rawconnect # open raw ip socket, connect it and then close"
|
||
|
|
|
||
|
|
uid=`id -u`
|
||
|
|
|
||
|
|
if [ $uid -ne 0 ]; then
|
||
|
|
echo "ok 1 - rawconnect # skipped: you need to be root to run this test"
|
||
|
|
elif ./$executable; then
|
||
|
|
echo "ok 1 - $comment"
|
||
|
|
else
|
||
|
|
echo "not ok 1 - $comment"
|
||
|
|
fi
|