use Test::Base tests => 2;
no_diag_on_only;
sub shouldnt_be_run {
    fail "shouldnt_be_run was run";
}

run_is foo => 'bar';

my ($block) = blocks;
is($block->foo, "1234");

__DATA__
===
--- foo shouldnt_be_run
--- bar



===
--- ONLY
--- foo chomp
1234
--- bar chomp
1234