diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2014-09-20 18:38:10 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2014-09-20 20:31:40 -0400 |
| commit | b8fffdb01477dabb63e42a81b627c93f7d812bff (patch) | |
| tree | 8ec47d41359016dc4b76706841ad5e451f8f6763 /t/op/negate.t | |
| parent | 926f5fc6ecfa896e5b7e0c39b794ab190e33afc4 (diff) | |
| download | perl-b8fffdb01477dabb63e42a81b627c93f7d812bff.tar.gz | |
Negation of "-e1" no more todo.
Diffstat (limited to 't/op/negate.t')
| -rw-r--r-- | t/op/negate.t | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/t/op/negate.t b/t/op/negate.t index 71c6ab2801..8fa8c0a7fe 100644 --- a/t/op/negate.t +++ b/t/op/negate.t @@ -34,9 +34,7 @@ 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; @@ -94,9 +92,7 @@ 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; |