1use strict; 2use warnings; 3use Test::More tests => 4; 4BEGIN { use_ok('apply_strings') } 5require_ok('apply_strings'); 6 7my $TEST_MESSAGE = "A message from target language to the C++ world and back again."; 8 9is(apply_strings::UCharFunction($TEST_MESSAGE), $TEST_MESSAGE, "UCharFunction"); 10 11is(apply_strings::SCharFunction($TEST_MESSAGE), $TEST_MESSAGE, "SCharFunction"); 12