vcs.maemo.org Git - pkg-perl/blob - deb-src/libtest-harness-perl/libtest-harness-perl-3.12/t/source_tests/harness_complain

   1 #!/usr/bin/perl
   2
   3 print "1..1\n";
   4
   5 die "I should have no args -- @ARGV" if (@ARGV);
   6 print "ok 1 - this is a test\n";
   7