1use Test::Base tests => 2;
2no_diag_on_only;
3sub shouldnt_be_run {
4    fail "shouldnt_be_run was run";
5}
6
7run_is foo => 'bar';
8
9my ($block) = blocks;
10is($block->foo, "1234");
11
12__DATA__
13===
14--- foo shouldnt_be_run
15--- bar
16
17
18
19===
20--- ONLY
21--- foo chomp
221234
23--- bar chomp
241234
25