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

add more dispatch cases

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@8050 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Marcelo Matus 2005-12-23 01:44:36 +00:00
commit 485ccd5809
2 changed files with 58 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

15
Examples/test-suite/overload_simple.i
View file

@ -123,6 +123,21 @@ char *num(double) {
return (char*) "num:double"; return (char*) "num:double";
} }
char *fid(int, int) {
return (char*) "fid:intint";
}
char *fid(int, double) {
return (char*) "fid:intdouble";
}
char *fid(double, int) {
return (char*) "fid:doubleint";
}
char *fid(double, double) {
return (char*) "fid:doubledouble";
}
%} %}
%inline %{ %inline %{

43
Examples/test-suite/perl5/overload_simple_runme.pl
View file

@ -235,6 +235,49 @@ if (!($s->{type} eq "void *")) {
die("Spam(void *)"); die("Spam(void *)");
} }
#
# Combine dispatch
#
if (!(overload_simple::fid(3, 3.0) eq "fid:intdouble")) {
die("fid(int,double)");
}
if (!(overload_simple::fid(3.0, 3) eq "fid:doubleint")) {
die("fid(double,int)");
}
if (!(overload_simple::fid(3.0, 3.0) eq "fid:doubledouble")) {
die("fid(double,double)");
}
if (!(overload_simple::fid(3, 3) eq "fid:intint")) {
die("fid(int,int)");
}
# with strings now
if (!(overload_simple::fid(3, "3.0") eq "fid:intdouble")) {
die("fid(int,double)");
}
if (!(overload_simple::fid("3", 3.0) eq "fid:intdouble")) {
die("fid(int,double)");
}
if (!(overload_simple::fid("3", "3.0") eq "fid:intdouble")) {
die("fid(int,double)");
}
if (!(overload_simple::fid(3.0, "3") eq "fid:doubleint")) {
die("fid(double,int)");
}
if (!(overload_simple::fid("3.0", "3.0") eq "fid:doubledouble")) {
die("fid(double,double)");
}
if (!(overload_simple::fid("3", 3) eq "fid:intint")) {
die("fid(int,int)");
}