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

   1 print <<DUMMY;
   2 1..3
   3 ok 1
   4 ok 2
   5 ok 3
   6 ok 4
   7 ok 5
   8 ok 6
   9 ok 7
  10 DUMMY
  11
  12 exit 4;  # simulate Test::More's exit status
  13
  14