| 1 | #!./perl -w
|
|---|
| 2 |
|
|---|
| 3 | BEGIN {
|
|---|
| 4 | chdir 't' if -d 't';
|
|---|
| 5 | @INC = '../lib';
|
|---|
| 6 | require './test.pl';
|
|---|
| 7 | }
|
|---|
| 8 |
|
|---|
| 9 | plan tests => 16;
|
|---|
| 10 |
|
|---|
| 11 | # Some of these will cause warnings if left on. Here we're checking the
|
|---|
| 12 | # functionality, not the warnings.
|
|---|
| 13 | no warnings "numeric";
|
|---|
| 14 |
|
|---|
| 15 | # test cases based on [perl #36675] -'-10' eq '+10'
|
|---|
| 16 | is(- 10, -10, "Simple numeric negation to negative");
|
|---|
| 17 | is(- -10, 10, "Simple numeric negation to positive");
|
|---|
| 18 | is(-"10", -10, "Negation of a positive string to negative");
|
|---|
| 19 | is(-"10.0", -10, "Negation of a positive decimal sting to negative");
|
|---|
| 20 | is(-"10foo", -10, "Negation of a numeric-lead string returns negation of numeric");
|
|---|
| 21 | is(-"-10", "+10", 'Negation of string starting with "-" returns a string starting with "+" - numeric');
|
|---|
| 22 | is(-"-10.0", "+10.0", 'Negation of string starting with "-" returns a string starting with "+" - decimal');
|
|---|
| 23 | is(-"-10foo", "+10foo", 'Negation of string starting with "-" returns a string starting with "+" - non-numeric');
|
|---|
| 24 | is(-"xyz", "-xyz", 'Negation of a negative string adds "-" to the front');
|
|---|
| 25 | is(-"-xyz", "+xyz", "Negation of a negative string to positive");
|
|---|
| 26 | is(-"+xyz", "-xyz", "Negation of a positive string to negative");
|
|---|
| 27 | is(-bareword, "-bareword", "Negation of bareword treated like a string");
|
|---|
| 28 | is(- -bareword, "+bareword", "Negation of -bareword returns string +bareword");
|
|---|
| 29 | is(-" -10", 10, "Negation of a whitespace-lead numeric string");
|
|---|
| 30 | is(-" -10.0", 10, "Negation of a whitespace-lead decimal string");
|
|---|
| 31 | is(-" -10foo", 10, "Negation of a whitespace-lead sting starting with a numeric")
|
|---|
