getopt.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!./perl
BEGIN {
chdir 't' if -d 't';
}
print "1..11\n";
# First we test the getopt function
print "ok 1\n";
print "ok 2\n";
print "ok 3\n";
# Then we try the getopts
print "ok 4\n";
print "ok 5\n";
print "ok 6\n";
print "not " if $opt_o;
print "ok 7\n";
# Try illegal options, but avoid printing of the error message
print "ok 8\n";
# Then try the Getopt::Long module
) || print "not ";
print "ok 9\n";
print "ok 10\n";
print "ok 11\n";
unlink "stderr";