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