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