add TODO test for lexical $_ gotcha

diff --git a/t/given_when.t b/t/given_when.t
new file mode 100644 (file)
index 0000000..faee8c4
--- /dev/null
+++ b/t/given_when.t
@@ -0,0 +1,37 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Test::More;
+
+BEGIN {
+    plan skip_all => "Perl 5.10 is required" unless eval { require 5.010 };
+}
+
+use ok "Try::Tiny";
+
+my ( $error, $topic );
+
+given ("foo") {
+    when (qr/./) {
+        try {
+            die "blah\n";
+        } catch {
+            $topic = $_;
+            $error = $_[0];
+        }
+    };
+}
+
+is( $error, "blah\n", "error caught" );
+
+{
+    local $TODO = "perhaps a workaround can be found";
+    is( $topic, $error, 'error is also in $_' );
+}
+
+done_testing;
+
+# ex: set sw=4 et:
+