diff options
| -rw-r--r-- | t/op/negate.t | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/t/op/negate.t b/t/op/negate.t index 3b02e35f20..71c6ab2801 100644 --- a/t/op/negate.t +++ b/t/op/negate.t @@ -6,7 +6,7 @@ BEGIN { require './test.pl'; } -plan tests => 46; +plan tests => 48; # Some of these will cause warnings if left on. Here we're checking the # functionality, not the warnings. @@ -34,6 +34,9 @@ is(-" -10", 10, "Negation of a whitespace-lead numeric string"); 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; @@ -91,6 +94,9 @@ is -$t, -97656250000000000, 'magic str+int dualvar'; 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; |