1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38
|
#!/usr/bin/env perl
use perl5i::latest;
use Test::More;
note "scalar context"; {
is capture { print "Hello" }, "Hello";
is capture {
print "Hello";
warn "you should not see this";
}, "Hello", "stderr is silenced";
}
note "tee"; {
my($out, $err) = capture {
capture {
print "out";
warn "err";
} tee => 1;
};
is $out, "out";
like $err, qr/^err\b/;
}
note "merge"; {
my $out = capture {
print "out";
print STDERR "err";
} merge => 1;
is $out, "outerr";
}
done_testing;
|