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

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