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

Fix dodgy comparison which would never fail

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@8625 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
William S Fulton 2006-01-29 22:06:12 +00:00
commit fbcff730c2
2 changed files with 8 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

14
SWIG/Examples/test-suite/perl5/default_args_runme.pl
View file

@ -30,15 +30,15 @@ if (default_args::casts1() != null) {
die "casts1 failed";
}
if (default_args::casts2() != "Hello") {
if (default_args::casts2() ne "Hello") {
die "casts2 failed";
}
if (default_args::casts1("Ciao") != "Ciao") {
if (default_args::casts1("Ciao") ne "Ciao") {
die "casts1 not default failed";
}
if (default_args::chartest1() != 'x') {
if (default_args::chartest1() ne 'x') {
die "chartest1 failed";
}
@ -46,11 +46,11 @@ if (default_args::chartest2() != '\0') {
die "chartest2 failed";
}
if (default_args::chartest1('y') != 'y') {
if (default_args::chartest1('y') ne 'y') {
die "chartest1 not default failed";
}
if (default_args::chartest1('y') != 'y') {
if (default_args::chartest1('y') ne 'y') {
die "chartest1 not default failed";
}
@ -62,7 +62,7 @@ if (default_args::reftest1(400) != 400) {
die "reftest1 not default failed";
}
if (default_args::reftest2() != "hello") {
if (default_args::reftest2() ne "hello") {
die "reftest2 failed";
}
@ -134,7 +134,7 @@ if ($tricky->protecteddouble() != 987.654) {
if ($tricky->functiondefault() != 500) {
die "functiondefault failed";
}
if ($tricky->contrived() != 'X') {
if ($tricky->contrived() ne 'X') {
die "contrived failed";
}

2
SWIG/Examples/test-suite/perl5/inherit_runme.pl
View file

@ -3,7 +3,7 @@ use inherit;
$der = new inherit::CDerived();
$str = $der->Foo();
if ($str != "CBase::Foo") {
if ($str ne "CBase::Foo") {
die "test failed";
}