is(-" -10.0", 10, "Negation of a whitespace-lead decimal string");
is(-" -10foo", 10,
"Negation of a whitespace-lead sting starting with a numeric");
-{ local $::TODO = 'broken';
is(-"-e1", "+e1", "Negation of e1");
-}
$x = "dogs";
()=0+$x;
is(-" -10.0", 10, "Negation of a whitespace-lead decimal string");
is(-" -10foo", 10,
"Negation of a whitespace-lead sting starting with a numeric");
- { local $::TODO = 'broken';
is(-"-e1", "+e1", "Negation of e1 (use integer)");
- }
$x = "dogs";
()=0+$x;