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

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