trunk/Examples/test-suite/perl5/apply_strings_runme.pl

use strict;
use warnings;
use Test::More tests => 4;
BEGIN { use_ok('apply_strings') }
require_ok('apply_strings');

my $TEST_MESSAGE = "A message from target language to the C++ world and back again.";

is(apply_strings::UCharFunction($TEST_MESSAGE), $TEST_MESSAGE, "UCharFunction"); 

is(apply_strings::SCharFunction($TEST_MESSAGE), $TEST_MESSAGE, "SCharFunction");