ensure %apply with char*, unsigned char* and signed char* works
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@9072 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
parent
468ad3c74b
commit
2d24918a97
8 changed files with 73 additions and 17 deletions
10
Examples/test-suite/perl5/apply_strings_runme.pl
Normal file
10
Examples/test-suite/perl5/apply_strings_runme.pl
Normal file
|
|
@ -0,0 +1,10 @@
|
|||
use apply_strings;
|
||||
|
||||
my $TEST_MESSAGE = "A message from target language to the C++ world and back again.";
|
||||
|
||||
if (apply_strings::UCharFunction($TEST_MESSAGE) ne $TEST_MESSAGE) {
|
||||
die "UCharFunction failed";
|
||||
}
|
||||
if (apply_strings::SCharFunction($TEST_MESSAGE) ne $TEST_MESSAGE) {
|
||||
die "SCharFunction failed";
|
||||
}
|
||||
Loading…
Add table
Add a link
Reference in a new issue