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

# · MATLAB · 44 lines · 33 code · 11 blank · 0 comment · 6 complexity · de2229bbaa8492d2091fbbe6bd96e146 MD5 · raw file 

    

  1. virtual_poly
    2. 

  2. 

  3. d = virtual_poly.NDouble(3.5);
    4. 

  4. i = virtual_poly.NInt(2);
    5. 

  5. 

  6. #
    7. 

  7. # the copy methods return the right polymorphic types
    8. 

  8. # 
    9. 

  9. dc = d.copy();
    10. 

  10. ic = i.copy();
    11. 

  11. 

  12. if (d.get() != dc.get())
    13. 

  13.   error
    14. 

  14. endif
    15. 

  15. 

  16. if (i.get() != ic.get())
    17. 

  17.   error
    18. 

  18. endif
    19. 

  19. 

  20. virtual_poly.incr(ic);
    21. 

  21. 

  22. if ((i.get() + 1) != ic.get())
    23. 

  23.   error
    24. 

  24. endif
    25. 

  25. 

  26. 

  27. dr = d.ref_this();
    28. 

  28. if (d.get() != dr.get())
    29. 

  29.   error
    30. 

  30. endif
    31. 

  31. 

  32. 

  33. #
    34. 

  34. # 'narrowing' also works
    35. 

  35. #
    36. 

  36. ddc = virtual_poly.NDouble_narrow(d.nnumber());
    37. 

  37. if (d.get() != ddc.get())
    38. 

  38.   error
    39. 

  39. endif
    40. 

  40. 

  41. dic = virtual_poly.NInt_narrow(i.nnumber());
    42. 

  42. if (i.get() != dic.get())
    43. 

  43.   error
    44. 

  44. endif
    45.