diff options
author | Jesse Luehrs <doy@tozt.net> | 2013-07-19 02:02:33 -0400 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2013-07-19 02:02:33 -0400 |
commit | be8cfb28cb18499cf6ddfff9eff256d08537dd18 (patch) | |
tree | 375f7525e6ee6f39d1ed952edb4be17c88c9a0f6 /t/try/given_when.t | |
parent | 56de12a2999763ca14aefdf4ac1af1d527ccbc71 (diff) | |
download | parse-keyword-be8cfb28cb18499cf6ddfff9eff256d08537dd18.tar.gz parse-keyword-be8cfb28cb18499cf6ddfff9eff256d08537dd18.zip |
add some (failing) tests
Diffstat (limited to 't/try/given_when.t')
-rw-r--r-- | t/try/given_when.t | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/t/try/given_when.t b/t/try/given_when.t new file mode 100644 index 0000000..48d006d --- /dev/null +++ b/t/try/given_when.t @@ -0,0 +1,31 @@ +#!/usr/bin/env perl +use strict; +use warnings; +use Test::More; +use lib 't/try/lib'; +use 5.014; + +use Try; + +my ( $error, $topic ); + +given ("foo") { + when (qr/./) { + try { + die "blah\n"; + } catch { + $topic = $_; + $error = $_[0]; + } + pass("syntax ok"); + }; +} + +is( $error, "blah\n", "error caught" ); + +{ + local $TODO = "perhaps a workaround can be found"; + is( $topic, $error, 'error is also in $_' ); +} + +done_testing; |