PageRenderTime 11ms CodeModel.GetById 2ms app.highlight 6ms RepoModel.GetById 1ms app.codeStats 0ms

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

#
Perl | 11 lines | 8 code | 3 blank | 0 comment | 0 complexity | a57c67993f334032779f2a9fe5f283ad MD5 | raw file
 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");