This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Rename lib/Text/Balanced/t/00.load.t to
authorSteve Peters <steve@fisharerojo.org>
Mon, 8 May 2006 19:01:56 +0000 (19:01 +0000)
committerSteve Peters <steve@fisharerojo.org>
Mon, 8 May 2006 19:01:56 +0000 (19:01 +0000)
lib/Text/Balanced/t/00-load.t and restore a test to
lib/Text/Balanced/t/extmul.t.

p4raw-id: //depot/perl@28127

MANIFEST
lib/Text/Balanced/t/00-load.t [moved from lib/Text/Balanced/t/00.load.t with 100% similarity]
lib/Text/Balanced/t/extmul.t

index 56ec439..c577752 100644 (file)
--- 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
index 34207df..98b6272 100644 (file)
@@ -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' ];