use Test::Chunks tests => 1;
is(next_chunk->perl, <<'...');
You are a foo!
You are 1 2.
...
__DATA__
===
--- perl eval_stdout
print "You are a foo!\n";
my $foo = 2;
print "You are 1 $foo.\n";
return 42;
use Test::Chunks tests => 1;
is(next_chunk->perl, <<'...');
You are a foo!
You are 1 2.
...
__DATA__
===
--- perl eval_stdout
print "You are a foo!\n";
my $foo = 2;
print "You are 1 $foo.\n";
return 42;