harness_complain (revision f2da64fbbbf1b03f09f390ab01267c93dfd77c4c) - OpenGrok cross reference for /openbsd-src/gnu/usr.bin/perl/cpan/Test-Harness/t/source_tests/harness_complain

#!/usr/bin/perl

print "1..1\n";

die "I should have no args -- @ARGV" if (@ARGV);
print "ok 1 - this is a test\n";