negate.t: To-do tests for -"-e1"

broken between 5.21.3 and 5.21.4.

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;