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

Perl module now fully supports operator overloading

Browse source 
added script for testing overloading support which uses Perl test harness: Test::More

updated HTML docs for operators


git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@8246 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Jason Stewart 2006-01-06 10:59:27 +00:00
commit 18771f8267
4 changed files with 282 additions and 52 deletions
Download patch file Download diff file Expand all files Collapse all files

137
Examples/test-suite/perl5/operator_overload_runme.pl Normal file
View file

@ -0,0 +1,137 @@
#!/usr/bin/perl -w
use strict;
use Test::More tests => 24;
use operator_overload;
pass("loaded");
my $op = operator_overload::Op->new();
isa_ok($op, "operator_overload::Op");
my $op2 = operator_overload::Op->new();
isa_ok($op2, "operator_overload::Op");
# operator equal
$op->{i} = 5;
$op2->{i} = 3;
ok(not ($op == $op2), "operator equal: not equal");
$op->{i} = 3;
ok(($op == $op2), "operator equal: equal");
# operator equal
$op->{i} = 5;
$op2->{i} = 3;
ok(($op != $op2), "operator not equal: not equal");
$op->{i} = 3;
ok(not ($op != $op2), "operator not equal: equal");
# stringify operator
$op->{i} = 3;
is("Op(3)", "$op", "operator stringify");
# addition operator
$op->{i} = 3;
$op2->{i} = 3;
my $op3 = $op + $op2;
is($op3->{i}, 6, "operator addition");
# addition assignment operator
$op->{i} = 3;
$op2->{i} = 3;
$op += $op2;
is($op->{i}, 6, "operator additive assignment");
# subtraction operator
$op3->{i} = 6;
$op2->{i} = 3;
$op = $op3 - $op2;
is($op->{i}, 3, "operator subtration");
# subtractive assignment operator
$op->{i} = 6;
$op2->{i} = 3;
$op -= $op2;
is($op->{i}, 3, "operator subtrative assignment");
# multiplication operator
$op->{i} = 3;
$op2->{i} = 3;
$op3 = $op * $op2;
is($op3->{i}, 9, "operator multiplication");
# division operator
$op->{i} = 9;
$op2->{i} = 3;
$op3 = $op / $op2;
is($op3->{i}, 3, "operator division");
# modulus operator
$op->{i} = 8;
$op2->{i} = 3;
$op3 = $op % $op2;
is($op3->{i}, 2, "operator modulus");
# greater than operator
$op->{i} = 8;
$op2->{i} = 3;
ok($op > $op2, "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");
# lesser than operator
$op2->{i} = 8;
$op->{i} = 3;
ok($op < $op2, "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");
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");
};
# increment operator
$op->{i} = 7;
$op++;
is($op->{i}, 8, "operator increment");
# decrement operator
$op->{i} = 7;
$op--;
is($op->{i}, 6, "operator decrement");
# inverse operator
$op->{i} = 3;
$op2 = -$op;
is($op2->{i}, -3, "operator inverse");