1 files changed, 40 insertions, 0 deletions
diff --git a/t/004-eval.t b/t/004-eval.t
new file mode 100644
index 0000000..3500dc0
--- /dev/null
+++ b/t/004-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");