PageRenderTime 43ms CodeModel.GetById 17ms RepoModel.GetById 0ms app.codeStats 0ms

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

#
MATLAB | 44 lines | 32 code | 12 blank | 0 comment | 5 complexity | 010e2a8f3e12a660ec6f6b89f629f5fd MD5 | raw file
Possible License(s): LGPL-2.1, Cube, GPL-3.0, 0BSD, GPL-2.0 
    

  1. director_abstract
    2. 

  2. 

  3. MyFoo=@() subclass(director_abstract.Foo(),@ping);
    4. 

  4. function out=ping(self)
    5. 

  5.   out="MyFoo::ping()";
    6. 

  6. end
    7. 

  7. 

  8. 

  9. a = MyFoo();
    10. 

  10. 

  11. if (!strcmp(a.ping(),"MyFoo::ping()"))
    12. 

  12.   error(a.ping())
    13. 

  13. endif
    14. 

  14. 

  15. if (!strcmp(a.pong(),"Foo::pong();MyFoo::ping()"))
    16. 

  16.   error(a.pong())
    17. 

  17. endif
    18. 

  18. 

  19. 

  20. MyExample1=@() subclass(director_abstract.Example1(),'Color',@(self,r,g,b) r);
    21. 

  21. MyExample2=@(a,b) subclass(director_abstract.Example2(a,b),'Color',@(self,r,g,b) g);
    22. 

  22. MyExample3=@() subclass(director_abstract.Example3_i(),'Color',@(self,r,g,b) b);
    23. 

  23. 

  24. me1 = MyExample1();
    25. 

  25. if (director_abstract.Example1.get_color(me1, 1,2,3) != 1)
    26. 

  26.   error
    27. 

  27. endif
    28. 

  28. 

  29. me2 = MyExample2(1,2);
    30. 

  30. if (me2.get_color(me2, 1,2,3) != 2)
    31. 

  31.   error
    32. 

  32. endif
    33. 

  33. 

  34. me3 = MyExample3();
    35. 

  35. if (me3.get_color(me3, 1,2,3) != 3)
    36. 

  36.   error
    37. 

  37. endif
    38. 

  38. 

  39. 

  40. # don't check that we cannot construct abstract bases, since we have no
    41. 

  41. # way of disambiguating that with the normal construction case using
    42. 

  42. # subclass. furthermore, calling a pure virtual method will still generate
    43. 

  43. # an error.
    44. 

  44. 

  45.