From a646417951941146b1ea568de33ca3508b9859a2 Mon Sep 17 00:00:00 2001
From: Steve Peters <steve@fisharerojo.org>
Date: Mon, 8 May 2006 19:01:56 +0000
Subject: [PATCH] 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
---
 MANIFEST                                     |  2 +-
 lib/Text/Balanced/t/{00.load.t => 00-load.t} |  0
 lib/Text/Balanced/t/extmul.t                 | 10 +++++++++-
 3 files changed, 10 insertions(+), 2 deletions(-)
 rename lib/Text/Balanced/t/{00.load.t => 00-load.t} (100%)

diff --git a/MANIFEST b/MANIFEST
index 56ec43953d..c577752f3c 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 34207df2f3..98b6272476 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' ];
-- 
2.34.1