with_comments

来自「source of perl for linux application,」· 代码 · 共 15 行

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