git.maemo.org Git - pkg-perl/blob - deb-src/libtest-harness-perl/libtest-harness-perl-3.12/t/sample-tests/die_last_minute

   1 print <<DUMMY_TEST;
   2 ok 1
   3 ok 2
   4 ok 3
   5 ok 4
   6 1..4
   7 DUMMY_TEST
   8
   9 eval "use vmsish 'hushed'" if ($^O eq 'VMS');
  10 exit 1;