* Shlomi Fish via RT (bug-XML-LibXML@rt.cpan.org) [120303 12:20]:
Show quoted text> I recall something about testing "!=", but maybe I was wrong. In any
> case, can you provide a patch to t/71overloads.t (right at the bottom)
> to test for it (and fail in part)? That would really be helpful.
Very simplistic extension.
--- t/71overloads.t 2012-03-03 20:29:04.628721426 +0100
+++ t/71overloads.t.orig 2012-02-27 10:11:11.000000000 +0100
@@ -1,6 +1,6 @@
use strict;
use warnings;
-use Test::More tests => 24;
+use Test::More tests => 22;
use XML::LibXML;
my $root = XML::LibXML->load_xml( IO => \*DATA )->documentElement;
@@ -158,30 +158,12 @@
'== negative comparison',
);
-is_deeply(
- [($root == 'not-root')],
- [''],
- '== negative comparison',
-);
-
-is_deeply(
- [!($root != 'not-root')],
- [''],
- '!== negative comparison',
-);
-
# TEST
is_deeply(
[($root eq 'not-root')],
[''],
'eq negative comparison',
);
-
-is_deeply(
- [!($root ne 'not-root')],
- [''],
- 'eq negative comparison',
-);
--
Regards,
MarkOv
------------------------------------------------------------------------
Mark Overmeer MSc MARKOV Solutions
drs Mark A.C.J. Overmeer MARKOV Solutions
Mark@Overmeer.net solutions@overmeer.net
http://Mark.Overmeer.net http://solutions.overmeer.net