This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
negate.t: To-do tests for -"-e1"
authorFather Chrysostomos <sprout@cpan.org>
Sat, 20 Sep 2014 19:47:37 +0000 (12:47 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Sat, 20 Sep 2014 19:47:46 +0000 (12:47 -0700)
broken between 5.21.3 and 5.21.4.

t/op/negate.t

index 3b02e35..71c6ab2 100644 (file)
@@ -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;