/tags/rel-1-3-26/SWIG/Examples/test-suite/perl5/primitive_ref_runme.pl

# · Perl · 38 lines · 37 code · 1 blank · 0 comment · 24 complexity · 11138125c10bf0f0962ee58acb085a3d MD5 · raw file 

    

  1. use primitive_ref;
    2. 

  2. 

  3. if (primitive_ref::ref_int(3) != 3) {
    4. 

  4.     die "ref_int failed!\n";
    5. 

  5. }
    6. 

  6. if (primitive_ref::ref_uint(3) != 3) {
    7. 

  7.     die "ref_uint failed!\n";
    8. 

  8. }
    9. 

  9. if (primitive_ref::ref_short(3) != 3) {
    10. 

  10.     die "ref_short failed!\n";
    11. 

  11. }
    12. 

  12. if (primitive_ref::ref_ushort(3) != 3) {
    13. 

  13.     die "ref_ushort failed!\n";
    14. 

  14. }
    15. 

  15. if (primitive_ref::ref_long(3) != 3) {
    16. 

  16.     die "ref_long failed!\n";
    17. 

  17. }
    18. 

  18. if (primitive_ref::ref_ulong(3) != 3) {
    19. 

  19.     die "ref_ulong failed!\n";
    20. 

  20. }
    21. 

  21. if (primitive_ref::ref_schar(3) != 3) {
    22. 

  22.     die "ref_schar failed!\n";
    23. 

  23. }
    24. 

  24. if (primitive_ref::ref_uchar(3) != 3) {
    25. 

  25.     die "ref_uchar failed!\n";
    26. 

  26. }
    27. 

  27. if (primitive_ref::ref_bool(1) != 1) {
    28. 

  28.     die "ref_bool failed!\n";
    29. 

  29. }
    30. 

  30. if (primitive_ref::ref_float(3.5) != 3.5) {
    31. 

  31.     die "ref_float failed!\n";
    32. 

  32. }
    33. 

  33. if (primitive_ref::ref_double(3.5) != 3.5) {
    34. 

  34.     die "ref_double failed!\n";
    35. 

  35. }
    36. 

  36. if (primitive_ref::ref_char('x') != 'x') {
    37. 

  37.     die "ref_char failed!\n";
    38. 

  38. }
    39.