2d24918a97
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@9072 626c5289-ae23-0410-ae9c-e8d60b6d4f22
10 lines
307 B
Raku
10 lines
307 B
Raku
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";
|
|
}
|