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

new default args runtime test

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@6315 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
William S Fulton 2004-10-04 20:53:58 +00:00
commit 9f3ab6c671
1 changed files with 149 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

149
Examples/test-suite/perl5/default_args_runme.pl Normal file
View file

@ -0,0 +1,149 @@
use default_args;
$true = 1;
$false = 0;
if (default_args::anonymous() != 7771) {
die "anonymous (1) failed";
}
if (default_args::anonymous(1234) != 1234) {
die "anonymous (2) failed";
}
if (default_args::booltest() != $true) {
die "booltest (1) failed";
}
if (default_args::booltest($true) != $true) {
die "booltest (2) failed";
}
if (default_args::booltest($false) != $false) {
die "booltest (3) failed";
}
$ec = new default_args::EnumClass();
if ($ec->blah() != $true) {
die "EnumClass failed";
}
if (default_args::casts1() != null) {
die "casts1 failed";
}
if (default_args::casts2() != "Hello") {
die "casts2 failed";
}
if (default_args::casts1("Ciao") != "Ciao") {
die "casts1 not default failed";
}
if (default_args::chartest1() != 'x') {
die "chartest1 failed";
}
if (default_args::chartest2() != '\0') {
die "chartest2 failed";
}
if (default_args::chartest1('y') != 'y') {
die "chartest1 not default failed";
}
if (default_args::chartest1('y') != 'y') {
die "chartest1 not default failed";
}
if (default_args::reftest1() != 42) {
die "reftest1 failed";
}
if (default_args::reftest1(400) != 400) {
die "reftest1 not default failed";
}
if (default_args::reftest2() != "hello") {
die "reftest2 failed";
}
# rename
$foo = new default_args::Foo();
$foo->newname();
$foo->newname(10);
# exception specifications
eval { default_args::exceptionspec() };
if (!$@) {
die "exceptionspec 1 failed";
}
eval { default_args::exceptionspec(-1) };
if (!$@) {
die "exceptionspec 2 failed";
}
eval { default_args::exceptionspec(100) };
if (!$@) {
die "exceptionspec 3 failed";
}
$ex = new default_args::Except($false);
eval { $ex.exspec() };
if (!$@) {
die "exspec 1 failed";
}
eval { $ex.exspec(-1) };
if (!$@) {
die "exspec 2 failed";
}
eval { $ex.exspec(100) };
if (!$@) {
die "exspec 3 failed";
}
eval { $ex = new default_args::Except($true) };
if (!$@) {
die "Except constructor 1 failed";
}
eval { $ex = new default_args::Except($true, -2) };
if (!$@) {
die "Except constructor 2 failed";
}
#Default parameters in static class methods
if (default_args::Statics::staticmethod() != 10+20+30) {
die "staticmethod 1 failed";
}
if (default_args::Statics::staticmethod(100) != 100+20+30) {
die "staticmethod 2 failed";
}
if (default_args::Statics::staticmethod(100,200,300) != 100+200+300) {
die "staticmethod 3 failed";
}
$tricky = new default_args::Tricky();
if ($tricky->privatedefault() != 200) {
die "privatedefault failed";
}
if ($tricky->protectedint() != 2000) {
die "protectedint failed";
}
if ($tricky->protecteddouble() != 987.654) {
die "protecteddouble failed";
}
if ($tricky->functiondefault() != 500) {
die "functiondefault failed";
}
if ($tricky->contrived() != 'X') {
die "contrived failed";
}
if (default_args::constructorcall()->{val} != -1) {
die "constructorcall test 1 failed";
}
if (default_args::constructorcall(new default_args::Klass(2222))->{val} != 2222) {
die "constructorcall test 2 failed";
}
if (default_args::constructorcall(new default_args::Klass())->{val} != -1) {
die "constructorcall test 3 failed";
}