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

Workaround for Test::More 's ok function not working on Perl 5.004_04

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@8796 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
William S Fulton 2006-02-11 21:50:33 +00:00
commit 9a95994070
1 changed files with 18 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

26
Examples/test-suite/perl5/operator_overload_runme.pl
View file

@ -4,6 +4,15 @@ use Test::More tests => 28;
use operator_overload;
# Workaround for
# ok( not (expression) );
# does not working in older versions of Perl, eg 5.004_04
sub ok_not ($;$) {
my($test, $name) = @_;
$test = not $test;
ok($test, $name);
}
pass("loaded");
# first check all the operators are implemented correctly from pure C++ code
@ -21,7 +30,7 @@ isa_ok($op2, "operator_overload::Op");
$op->{i} = 5;
$op2->{i} = 3;
ok(not ($op == $op2), "operator equal: not equal");
ok_not(($op == $op2), "operator equal: not equal");
$op->{i} = 3;
ok(($op == $op2), "operator equal: equal");
@ -33,7 +42,7 @@ $op2->{i} = 3;
ok(($op != $op2), "operator not equal: not equal");
$op->{i} = 3;
ok(not ($op != $op2), "operator not equal: equal");
ok_not(($op != $op2), "operator not equal: equal");
# stringify operator
$op->{i} = 3;
@ -85,19 +94,19 @@ is($op3->{i}, 2, "operator modulus");
$op->{i} = 8;
$op2->{i} = 3;
ok($op > $op2, "operator greater than");
ok(not ($op2 > $op), "operator greater than");
ok_not(($op2 > $op), "operator greater than");
$op->{i} = 3;
ok(not ($op2 > $op), "operator greater than");
ok(not ($op > $op2), "operator greater than");
ok_not(($op2 > $op), "operator greater than");
ok_not(($op > $op2), "operator greater than");
# lesser than operator
$op2->{i} = 8;
$op->{i} = 3;
ok($op < $op2, "operator lesser than");
ok(not ($op2 < $op), "operator lesser than");
ok_not(($op2 < $op), "operator lesser than");
$op2->{i} = 3;
ok(not ($op2 < $op), "operator lesser than");
ok(not ($op < $op2), "operator lesser than");
ok_not(($op2 < $op), "operator lesser than");
ok_not(($op < $op2), "operator lesser than");
# increment operator
$op->{i} = 7;
@ -122,3 +131,4 @@ $op->{i} = 1;
is(!$op, !1, "operator not");
# fail("testing failed condition");