PageRenderTime 36ms CodeModel.GetById 14ms RepoModel.GetById 0ms app.codeStats 0ms

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

#
Perl | 32 lines | 20 code | 9 blank | 3 comment | 0 complexity | e5684bfa02e2e55be9a1458705792bad MD5 | raw file
Possible License(s): LGPL-2.1, Cube, GPL-3.0, 0BSD, GPL-2.0 
    

  1. use strict;
    2. 

  2. use warnings;
    3. 

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

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

  5. require_ok('char_binary');
    6. 

  6. 

  7. my $t = char_binary::Test->new();
    8. 

  8. 

  9. is($t->strlen('hile'), 4, "string typemap");
    10. 

  10. 

  11. is($t->strlen("hil\0"), 4, "string typemap");
    12. 

  12. 

  13. #
    14. 

  14. # creating a raw char*
    15. 

  15. #
    16. 

  16. my $pc = char_binary::new_pchar(5);
    17. 

  17. char_binary::pchar_setitem($pc, 0, 'h');
    18. 

  18. char_binary::pchar_setitem($pc, 1, 'o');
    19. 

  19. char_binary::pchar_setitem($pc, 2, 'l');
    20. 

  20. char_binary::pchar_setitem($pc, 3, 'a');
    21. 

  21. char_binary::pchar_setitem($pc, 4, 0);
    22. 

  22. 

  23. 

  24. is($t->strlen($pc), 4, "string typemap");
    25. 

  25. 

  26. $char_binary::var_pchar = $pc;
    27. 

  27. is($char_binary::var_pchar, "hola", "pointer case");
    28. 

  28. 

  29. $char_binary::var_namet = $pc;
    30. 

  30. is($char_binary::var_namet, "hola", "pointer case");
    31. 

  31. 

  32. char_binary::delete_pchar($pc);
    33. 

  33.