diff options
author | Jesse Luehrs <doy@tozt.net> | 2010-06-14 03:21:42 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2010-06-14 03:21:42 -0500 |
commit | b6f9cf0cd8b90c31a024581d524cf513a5446c93 (patch) | |
tree | a8dcdf7fefa4eb50973263dda9d46a3b46c872e2 /t/04-eval.t | |
parent | 90bf809d0662a2f87d63a4453e0cd74c101418a7 (diff) | |
download | carp-always-color-b6f9cf0cd8b90c31a024581d524cf513a5446c93.tar.gz carp-always-color-b6f9cf0cd8b90c31a024581d524cf513a5446c93.zip |
update dzil (and other packaging) stuff
Diffstat (limited to 't/04-eval.t')
-rw-r--r-- | t/04-eval.t | 40 |
1 files changed, 40 insertions, 0 deletions
diff --git a/t/04-eval.t b/t/04-eval.t new file mode 100644 index 0000000..3500dc0 --- /dev/null +++ b/t/04-eval.t @@ -0,0 +1,40 @@ +#!/usr/bin/env perl +use strict; +use warnings; +use Test::More; +BEGIN { + eval "use IO::Pty::Easy;"; + plan skip_all => "IO::Pty::Easy is required for this test" if $@; + plan tests => 2; +} + +sub output_is { + local $Test::Builder::Level = $Test::Builder::Level + 1; + my ($script, $expected, $desc) = @_; + my $pty = IO::Pty::Easy->new; + $pty->spawn("$^X", "-e", $script); + is($pty->read, $expected, $desc); +} + +output_is(<<EOF, + use Carp::Always::Color; + eval { die "foo" }; + if (\$@) { + die \$@; + } +EOF + "\e[31m\e[31mfoo\e[m\e[m at -e line 4\n", + "rethrowing works"); + +output_is(<<EOF, + use Carp::Always::Color; + sub foo { + eval { die "foo" }; + if (\$@) { + die \$@; + } + } + foo(); +EOF + "\e[31m\e[31mfoo\e[m\e[m at -e line 5\n\tmain::foo() called at -e line 8\n", + "rethrowing works inside functions"); |