Try::Tiny interaction failing test case

mamod · Mar 25, 2016 · a6ce8ea · a6ce8ea
1 parent fb23c1b
commit a6ce8ea
Show file tree

Hide file tree

Showing 2 changed files with 26 additions and 0 deletions.
diff --git a/Makefile.PL b/Makefile.PL
@@ -24,5 +24,6 @@ WriteMakefile(
     },
     TEST_REQUIRES     => {
         'Test::Fatal'   => '0.014',
+        'Try::Tiny'     => '0.24',
     }
 );
diff --git a/t/nested.t b/t/nested.t
@@ -5,6 +5,31 @@ use JavaScript::Duktape;
 use Test::More;
 use Test::Fatal;
 
+use Try::Tiny;
+
+subtest 'try-tiny interaction' => sub {
+    sub eval_js {
+        my $code = shift;
+
+        my $js = JavaScript::Duktape->new;
+
+        try {
+            $js->eval( $code );
+        } catch {
+            my $err = $_;
+            warn "CAUGHT ERR: $err";
+            die "JS ERR: $err";
+        };
+    }
+
+    eval {
+        eval_js(q{
+            throw new Error('oh boy!');
+        });
+    };
+    isnt $@, '', 'error message comes through';
+};
+
 subtest 'simple nested thrown exception' => sub{
     my $js = JavaScript::Duktape->new();
     $js->set( each => sub{