From: Michael G. Schwern <schwern@pobox.com>
Date: Sun, 12 Jul 2009 09:33:47 +0000 (-0700)
Subject: This is a test for rt.cpan.org 60508 which I can't figure out where else to put it... 
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=76856ab86113673b1659606f0ae6c0525f6374b1;p=p5sagit%2Fp5-mst-13.2.git

This is a test for rt.cpan.org 60508 which I can't figure out where else to put it or what the underlying problem is, but it has to go somewhere.
---

diff --git a/t/op/reg_60508.t b/t/op/reg_60508.t
new file mode 100644
index 0000000..96a4fef
--- /dev/null
+++ b/t/op/reg_60508.t
@@ -0,0 +1,40 @@
+#!./perl
+
+# This is a test for rt.cpan.org 60508 which I can't figure out where else
+# to put it or what the underlying problem is, but it has to go somewhere.
+# --Schwern
+
+BEGIN {
+    chdir 't' if -d 't';
+    @INC = '../lib';
+    require './test.pl';
+}
+
+use utf8;
+plan tests => 1;
+
+{
+    my $expect = <<"EXPECT";
+k1 = ....
+k2.1 = >\x{2022}
+k2.2 = \x{2022}
+EXPECT
+    utf8::encode($expect);
+
+    local $TODO = "rt.cpan.org 60508";
+
+    fresh_perl_is(<<'CODE', $expect, {});
+binmode STDOUT, ":utf8";
+sub f { $_[0] =~ s/([>X])//g; }
+
+$k1 = "." x 4 . ">>";
+f($k1);
+print "k1 = $k1\n";
+
+$k2 = "\x{f1}\x{2022}";
+$k2 =~ s/([\360-\362])/>/g;
+print "k2.1 = $k2\n";
+f($k2);
+print "k2.2 = $k2\n";
+CODE
+}