Lines Matching full:10
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 positive number - integer');
22 "-10" =~ /(.*)/;
23 is(-$1, 10, 'Negation of magical string starting with "-" - integer');
27 is(-"-10foo", "+10foo", 'Negation of string starting with "-" returns a string starting with "+" - …
33 is(-" -10", 10, "Negation of a whitespace-lead numeric string");
34 is(-" -10.0", 10, "Negation of a whitespace-lead decimal string");
35 is(-" -10foo", 10,
64 is(- 10, -10, "Simple numeric negation to negative");
65 is(- -10, 10, "Simple numeric negation to positive");
66 is(-"10", -10, "Negation of a positive string to negative");
67 is(-"10.0", -10, "Negation of a positive decimal sting to negative");
68 is(-"10foo", -10,
70 is(-"-10", 10,
73 "-10" =~ /(.*)/;
74 is(-$1, 10, 'Negation of magical string starting with "-" - integer');
75 is(-"-10.0", 10,
79 is(-$1, 10, 'Negation of magical string starting with "-" - decimal');
80 is(-"-10foo", "+10foo",
91 is(-" -10", 10, "Negation of a whitespace-lead numeric string");
92 is(-" -10.0", 10, "Negation of a whitespace-lead decimal string");
93 is(-" -10foo", 10,