[Bast-commits] r4947 - Devel-Declare/1.000/trunk/t

rafl at dev.catalyst.perl.org rafl at dev.catalyst.perl.org
Mon Oct 20 12:34:53 BST 2008


Author: rafl
Date: 2008-10-20 12:34:51 +0100 (Mon, 20 Oct 2008)
New Revision: 4947

Removed:
   Devel-Declare/1.000/trunk/t/segv_utf8_lc_prevented.t
Log:
Remove test intended to be used for debugging.

Deleted: Devel-Declare/1.000/trunk/t/segv_utf8_lc_prevented.t
===================================================================
--- Devel-Declare/1.000/trunk/t/segv_utf8_lc_prevented.t	2008-10-20 11:29:34 UTC (rev 4946)
+++ Devel-Declare/1.000/trunk/t/segv_utf8_lc_prevented.t	2008-10-20 11:34:51 UTC (rev 4947)
@@ -1,21 +0,0 @@
-
-use strict;
-use warnings;
-
-use Test::More tests => 2;                      # last test to print
-
-use Devel::Declare 'method' => sub{};
-
-sub lowercase {
-        lc $_[0];
-}
-
-is uc("bar\x{263a}"), "BAR\x{263a}";
-is lowercase("FOO\x{263a}"), "foo\x{263a}";
-
-=pod
-
-This test does *not* segfault for me like t/segv_utf8_lc.t
-
-=cut
-




More information about the Bast-commits mailing list