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

2 files changed, 9 insertions, 1 deletions

diff --git a/lib/Text/Balanced/t/00.load.t b/lib/Text/Balanced/t/00-load.t
index 79bc6f06a6..79bc6f06a6 100755
--- a/lib/Text/Balanced/t/00.load.t
+++ b/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' ];