From: Steve Peters <steve@fisharerojo.org>
Date: Mon, 8 May 2006 19:01:56 +0000 (+0000)
Subject: Rename lib/Text/Balanced/t/00.load.t to
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a646417951941146b1ea568de33ca3508b9859a2;p=p5sagit%2Fp5-mst-13.2.git

Rename lib/Text/Balanced/t/00.load.t to
lib/Text/Balanced/t/00-load.t and restore a test to
lib/Text/Balanced/t/extmul.t.

p4raw-id: //depot/perl@28127
---

diff --git a/MANIFEST b/MANIFEST
index 56ec439..c577752 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -2474,7 +2474,7 @@ lib/Text/Abbrev.t		Test Text::Abbrev
 lib/Text/Balanced/Changes	Text::Balanced
 lib/Text/Balanced.pm		Text::Balanced
 lib/Text/Balanced/README	Text::Balanced
-lib/Text/Balanced/t/00.load.t	See if Text::Balanced works
+lib/Text/Balanced/t/00-load.t	See if Text::Balanced works
 lib/Text/Balanced/t/extbrk.t	See if Text::Balanced works
 lib/Text/Balanced/t/extcbk.t	See if Text::Balanced works
 lib/Text/Balanced/t/extdel.t	See if Text::Balanced works
diff --git a/lib/Text/Balanced/t/00.load.t b/lib/Text/Balanced/t/00-load.t
similarity index 100%
rename from lib/Text/Balanced/t/00.load.t
rename to lib/Text/Balanced/t/00-load.t
diff --git a/lib/Text/Balanced/t/extmul.t b/lib/Text/Balanced/t/extmul.t
index 34207df..98b6272 100644
--- a/lib/Text/Balanced/t/extmul.t
+++ b/lib/Text/Balanced/t/extmul.t
@@ -13,7 +13,7 @@ BEGIN {
 # Change 1..1 below to 1..last_test_to_print .
 # (It may become useful if the test is moved to ./t subdirectory.)
 
-BEGIN { $| = 1; print "1..85\n"; }
+BEGIN { $| = 1; print "1..86\n"; }
 END {print "not ok 1\n" unless $loaded;}
 use Text::Balanced qw ( :ALL );
 $loaded = 1;
@@ -316,3 +316,11 @@ expect	[ scalar extract_multiple(undef, [ q/([a-z]),?/ ]) ],
 
 expect [ pos ], [ 0 ];
 expect [ $_ ], [ substr($stdtext3,2) ];
+
+
+# TEST 86
+
+# Fails in Text-Balanced-1.95 with result ['1 ', '""', '1234']
+$_ = q{ ""1234};
+expect	[ extract_multiple(undef, [\&extract_quotelike]) ],
+	[ ' ', '""', '1234' ];