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

 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");