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

# · Perl · 11 lines · 8 code · 3 blank · 0 comment · 0 complexity · a57c67993f334032779f2a9fe5f283ad MD5 · raw file 

    

  1. use strict;
    2. 

  2. use warnings;
    3. 

  3. use Test::More tests => 4;
    4. 

  4. BEGIN { use_ok('apply_strings') }
    5. 

  5. require_ok('apply_strings');
    6. 

  6. 

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

  8. 

  9. is(apply_strings::UCharFunction($TEST_MESSAGE), $TEST_MESSAGE, "UCharFunction"); 
    10. 

  10. 

  11. is(apply_strings::SCharFunction($TEST_MESSAGE), $TEST_MESSAGE, "SCharFunction");
    12.