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

Add in runtime tests for std::string variables

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

40
SWIG/Examples/test-suite/perl5/li_std_string_runme.pl
View file

@ -5,7 +5,7 @@ use li_std_string;
li_std_string::test_value("Fee");
# Checking expected result of %typemap(out) std::string {}
if (li_std_string::test_value("Fi") != "Fi") {
if (li_std_string::test_value("Fi") ne "Fi") {
die "Test 1 failed";
}
@ -20,7 +20,7 @@ if (li_std_string::test_value("Fi") != "Fi") {
li_std_string::test_const_reference("Fo");
# Checking expected result of %typemap(out) const std::string& {}
if (li_std_string::test_const_reference("Fum") != "Fum") {
if (li_std_string::test_const_reference("Fum") ne "Fum") {
die "Test 3 failed";
}
@ -61,3 +61,39 @@ if (!$@) {
die "Test 6 failed";
}
# Global variables
$s = "initial string";
if ($li_std_string::GlobalString2 ne "global string 2") {
die ("GlobalString2 test 1");
}
$li_std_string::GlobalString2 = $s;
if ($li_std_string::GlobalString2 ne $s) {
die ("GlobalString2 test 2");
}
if ($li_std_string::ConstGlobalString ne "const global string") {
die ("ConstGlobalString test");
}
# Member variables
$myStructure = new li_std_string::Structure();
if ($myStructure->{MemberString2} ne "member string 2") {
die ("MemberString2 test 1");
}
$myStructure->{MemberString2} = $s;
if ($myStructure->{MemberString2} ne $s) {
die ("MemberString2 test 2");
}
if ($myStructure->{ConstMemberString} ne "const member string") {
die ("ConstMemberString test");
}
if ($li_std_string::Structure::StaticMemberString2 ne "static member string 2") {
die ("StaticMemberString2 test 1");
}
$li_std_string::Structure::StaticMemberString2 = $s;
if ($li_std_string::Structure::StaticMemberString2 ne $s) {
die ("StaticMemberString2 test 2");
}
if ($li_std_string::Structure::ConstStaticMemberString ne "const static member string") {
die ("ConstStaticMemberString test");
}