This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
One-argument syswrite
[perl5.git] / t / lib / 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