diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2010-10-04 09:22:59 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2010-10-04 09:22:59 -0700 |
| commit | 1ccd2973f698bfdb82dfadf6ef09ec337061a97f (patch) | |
| tree | 29eefe947ebe37a7e128212dca6fff78c914271f | |
| parent | da2f94c54905de8d600063fdd63a3a6b76d27616 (diff) | |
| download | perl-1ccd2973f698bfdb82dfadf6ef09ec337061a97f.tar.gz | |
Correct test names in negate.t
| -rw-r--r-- | 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 abe82bf6d3..8a0ef2b59c 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"); |