jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

removed && and || tests

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@8536 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Jason Stewart 2006-01-24 09:01:17 +00:00
commit 5ed2efad68
1 changed files with 2 additions and 26 deletions
Download patch file Download diff file Expand all files Collapse all files

28
SWIG/Examples/test-suite/perl5/operator_overload_runme.pl
View file

@ -1,6 +1,7 @@
#!/usr/bin/perl -w #!/usr/bin/perl -w
use strict; use strict;
use Test::More tests => 28; use Test::More tests => 28;
use operator_overload; use operator_overload;
pass("loaded"); pass("loaded");
@ -120,29 +121,4 @@ is(!$op, !0, "operator not");
$op->{i} = 1; $op->{i} = 1;
is(!$op, !1, "operator not"); is(!$op, !1, "operator not");
# fail("testing failed condition");
# TODO : {
# local $TODO = "I can't get Perl to trigger overloaded 'and' and 'or'";
# # operator and
# $op->{i} = 0;
# $op2->{i} = 1;
# ok(not ($op && $op2), "operator and");
# $op->{i} = 0;
# $op2->{i} = 0;
# ok(not ($op && $op2), "operator and");
# $op->{i} = 1;
# $op2->{i} = 1;
# ok(($op && $op2), "operator and");
# # operator or
# $op->{i} = 0;
# $op2->{i} = 1;
# ok(($op || $op2), "operator or");
# $op->{i} = 1;
# ok(($op || $op2), "operator or");
# $op->{i} = 0;
# $op2->{i} = 0;
# ok(not ($op || $op2), "operator or");
# };