In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/1ccd2973f698bfdb82dfadf6ef09ec337061a97f?hp=da2f94c54905de8d600063fdd63a3a6b76d27616>
- Log -----------------------------------------------------------------
commit 1ccd2973f698bfdb82dfadf6ef09ec337061a97f
Author: Father Chrysostomos <spr...@cpan.org>
Date: Mon Oct 4 09:22:59 2010 -0700
Correct test names in negate.t
-----------------------------------------------------------------------
Summary of changes:
t/op/negate.t | 4 ++--
1 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/t/op/negate.t b/t/op/negate.t
index abe82bf..8a0ef2b 100644
--- a/t/op/negate.t
+++ b/t/op/negate.t
@@ -18,8 +18,8 @@ is(- -10, 10, "Simple numeric negation to positive");
is(-"10", -10, "Negation of a positive string to negative");
is(-"10.0", -10, "Negation of a positive decimal sting to negative");
is(-"10foo", -10, "Negation of a numeric-lead string returns negation of
numeric");
-is(-"-10", 10, 'Negation of string starting with "-" returns a string starting
with "+" - numeric');
-is(-"-10.0", 10.0, 'Negation of string starting with "-" returns a string
starting with "+" - decimal');
+is(-"-10", 10, 'Negation of string starting with "-" returns a positive number
- integer');
+is(-"-10.0", 10.0, 'Negation of string starting with "-" returns a positive
number - decimal');
is(-"-10foo", "+10foo", 'Negation of string starting with "-" returns a string
starting with "+" - non-numeric');
is(-"xyz", "-xyz", 'Negation of a negative string adds "-" to the front');
is(-"-xyz", "+xyz", "Negation of a negative string to positive");
--
Perl5 Master Repository
