git.maemo.org Git - dh-make-perl/blob - dev/i386/libtest-harness-perl/libtest-harness-perl-3.12/t/sample-tests/with_comments

   1 print <<DUMMY_TEST;
   2 # and stuff
   3 1..5 todo 1 2 4 5;
   4 # yeah, that
   5 not ok 1
   6 # Failed test 1 in t/todo.t at line 9 *TODO*
   7 ok 2 # (t/todo.t at line 10 TODO?!)
   8 ok 3
   9 not ok 4
  10 # Test 4 got: '0' (t/todo.t at line 12 *TODO*)
  11 #   Expected: '1' (need more tuits)
  12 ok 5 # (t/todo.t at line 13 TODO?!)
  13 # woo
  14 DUMMY_TEST