summaryrefslogtreecommitdiffstats
path: root/t/04-eval.t
diff options
context:
space:
mode:
authorJesse Luehrs <doy@tozt.net>2010-06-14 03:21:42 -0500
committerJesse Luehrs <doy@tozt.net>2010-06-14 03:21:42 -0500
commitb6f9cf0cd8b90c31a024581d524cf513a5446c93 (patch)
treea8dcdf7fefa4eb50973263dda9d46a3b46c872e2 /t/04-eval.t
parent90bf809d0662a2f87d63a4453e0cd74c101418a7 (diff)
downloadcarp-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.t40
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");