This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix failing tests.
authorHugo van der Sanden <hv@crypt.org>
Sun, 6 Feb 2011 11:34:25 +0000 (11:34 +0000)
committerFather Chrysostomos <sprout@cpan.org>
Tue, 8 Feb 2011 05:29:20 +0000 (21:29 -0800)
Commit 211dfcf14199529e353c08dea10d7050e6a4a22a modified the parameter
order in t/op/sprintf.t tests 157-164 to match the code, rather than the
docs. Restored the correct order, now that the code matches the docs.
('perldoc -f sprintf', subsection "order of arguments".)

t/op/sprintf.t

index 57eac07..88c53a8 100644 (file)
@@ -326,14 +326,14 @@ __END__
 >%v4.3d<    >"\01\02\03"< > 001. 002. 003<
 >%0v4.3d<   >"\01\02\03"< > 001. 002. 003<
 >%0*v2d<    >['-', "\0\7\14"]< >00-07-12<
->%v.*d<     >["\01\02\03", 3]< >001.002.003<
->%0v*d<     >["\01\02\03", 3]< >001.002.003<
->%-v*d<     >["\01\02\03", 3]< >1  .2  .3  <
->%+-v*d<    >["\01\02\03", 3]< >+1 .2  .3  <
->%v*.*d<    >["\01\02\03", 4, 3]< > 001. 002. 003<
->%0v*.*d<   >["\01\02\03", 4, 3]< > 001. 002. 003<
->%0*v*d<    >['-', "\0\7\13", 2]< >00-07-11<
->%0*v*d<    >['-', version::qv("0.7.11"), 2]< >00-07-11<
+>%v.*d<     >[3, "\01\02\03"]< >001.002.003< >cf perl #83194<
+>%0v*d<     >[3, "\01\02\03"]< >001.002.003< >cf perl #83194<
+>%-v*d<     >[3, "\01\02\03"]< >1  .2  .3  < >cf perl #83194<
+>%+-v*d<    >[3, "\01\02\03"]< >+1 .2  .3  < >cf perl #83194<
+>%v*.*d<    >[4, 3, "\01\02\03"]< > 001. 002. 003< >cf perl #83194<
+>%0v*.*d<   >[4, 3, "\01\02\03"]< > 001. 002. 003< >cf perl #83194<
+>%0*v*d<    >['-', 2, "\0\7\13"]< >00-07-11< >cf perl #83194<
+>%0*v*d<    >['-', 2, version::qv("0.7.11")]< >00-07-11< >cf perl #83194<
 >%e<        >1234.875<    >1.234875e+03<
 >%e<        >0.000012345< >1.234500e-05<
 >%e<        >1234567E96<  >1.234567e+102<