/trunk/Examples/test-suite/perl5/apply_strings_runme.pl
Perl | 11 lines | 8 code | 3 blank | 0 comment | 0 complexity | a57c67993f334032779f2a9fe5f283ad MD5 | raw file
Possible License(s): LGPL-2.1, Cube, GPL-3.0, 0BSD, GPL-2.0
- 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");