/trunk/Examples/test-suite/octave/primitive_ref_runme.m

# · Objective C · 53 lines · 40 code · 13 blank · 0 comment · 25 complexity · c6166d489e9679293da1c5d7c8fc4284 MD5 · raw file 

    

  1. primitive_ref
    2. 

  2. 

  3. if (ref_int(3) != 3)
    4. 

  4.     error
    5. 

  5. endif
    6. 

  6. 

  7. if (ref_uint(3) != 3)
    8. 

  8.     error
    9. 

  9. endif
    10. 

  10. 

  11. if (ref_short(3) != 3)
    12. 

  12.     error
    13. 

  13. endif
    14. 

  14. 

  15. if (ref_ushort(3) != 3)
    16. 

  16.     error
    17. 

  17. endif
    18. 

  18. 

  19. if (ref_long(3) != 3)
    20. 

  20.     error
    21. 

  21. endif
    22. 

  22. 

  23. if (ref_ulong(3) != 3)
    24. 

  24.     error
    25. 

  25. endif
    26. 

  26. 

  27. if (ref_schar(3) != 3)
    28. 

  28.     error
    29. 

  29. endif
    30. 

  30. 

  31. if (ref_uchar(3) != 3)
    32. 

  32.     error
    33. 

  33. endif
    34. 

  34. 

  35. if (ref_float(3.5) != 3.5)
    36. 

  36.     error
    37. 

  37. endif
    38. 

  38. 

  39. if (ref_double(3.5) != 3.5)
    40. 

  40.     error
    41. 

  41. endif
    42. 

  42. 

  43. if (ref_bool(true) != true)
    44. 

  44.     error
    45. 

  45. endif
    46. 

  46. 

  47. if (!strcmp(ref_char('x'),'x'))
    48. 

  48.     error
    49. 

  49. endif
    50. 

  50. 

  51. if (ref_over(0) != 0)
    52. 

  52.     error
    53. 

  53. endif
    54.