From: Yuval Kogman <nothingmuch@woobling.org>
Date: Tue, 23 Feb 2010 11:11:31 +0000 (+0100)
Subject: add TODO test for lexical $_ gotcha
X-Git-Tag: Try-Tiny-0.05~3
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1a2992bbb4cefec6b77599c509ae956a63e7c719;p=p5sagit%2FTry-Tiny.git

add TODO test for lexical $_ gotcha
---

diff --git a/t/given_when.t b/t/given_when.t
new file mode 100644
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:
+