[perl.git] branch blead, updated. v5.21.4-26-g031c3a3

[Father Chrysostomos]

In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/031c3a38999d6e1e63aef26d19b11392d8fee4f4?hp=fdb7e3a630fea8155647331d5f9e2a4a0384adba>

- Log -----------------------------------------------------------------
commit 031c3a38999d6e1e63aef26d19b11392d8fee4f4
Author: Father Chrysostomos <spr...@cpan.org>
Date:   Sat Sep 20 12:47:37 2014 -0700

    negate.t: To-do tests for -"-e1"
    
    broken between 5.21.3 and 5.21.4.
-----------------------------------------------------------------------

Summary of changes:
 t/op/negate.t | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/t/op/negate.t b/t/op/negate.t
index 3b02e35..71c6ab2 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;

--
Perl5 Master Repository