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

# · Perl · 72 lines · 49 code · 20 blank · 3 comment · 0 complexity · 7141f18e9e6eaf603d4d5494500a845e MD5 · raw file 

    

  1. #!/usr/bin/perl
    2. 

  2. use strict;
    3. 

  3. use warnings;
    4. 

  4. use Test::More tests => 38;
    5. 

  5. BEGIN { use_ok('minherit') }
    6. 

  6. require_ok('minherit');
    7. 

  7. 

  8. # adapted from ../python/minherit_runme.py
    9. 

  9. 

  10. my $a = minherit::Foo->new();
    11. 

  11. my $b = minherit::Bar->new();
    12. 

  12. my $c = minherit::FooBar->new();
    13. 

  13. my $d = minherit::Spam->new();
    14. 

  14. 

  15. is($a->xget(), 1);
    16. 

  16. 

  17. is($b->yget(), 2);
    18. 

  18. 

  19. is($c->xget(), 1);
    20. 

  20. is($c->yget(), 2);
    21. 

  21. is($c->zget(), 3);
    22. 

  22. 

  23. is($d->xget(), 1);
    24. 

  24. is($d->yget(), 2);
    25. 

  25. is($d->zget(), 3);
    26. 

  26. is($d->wget(), 4);
    27. 

  27. 

  28. is(minherit::xget($a), 1);
    29. 

  29. 

  30. is(minherit::yget($b), 2);
    31. 

  31. 

  32. is(minherit::xget($c), 1);
    33. 

  33. is(minherit::yget($c), 2);
    34. 

  34. is(minherit::zget($c), 3);
    35. 

  35. 

  36. is(minherit::xget($d), 1);
    37. 

  37. is(minherit::yget($d), 2);
    38. 

  38. is(minherit::zget($d), 3);
    39. 

  39. is(minherit::wget($d), 4);
    40. 

  40. 

  41. # Cleanse all of the pointers and see what happens
    42. 

  42. 

  43. my $aa = minherit::toFooPtr($a);
    44. 

  44. my $bb = minherit::toBarPtr($b);
    45. 

  45. my $cc = minherit::toFooBarPtr($c);
    46. 

  46. my $dd = minherit::toSpamPtr($d);
    47. 

  47. 

  48. is($aa->xget, 1);
    49. 

  49. 

  50. is($bb->yget(), 2);
    51. 

  51. 

  52. is($cc->xget(), 1);
    53. 

  53. is($cc->yget(), 2);
    54. 

  54. is($cc->zget(), 3);
    55. 

  55. 

  56. is($dd->xget(), 1);
    57. 

  57. is($dd->yget(), 2);
    58. 

  58. is($dd->zget(), 3);
    59. 

  59. is($dd->wget(), 4);
    60. 

  60. 

  61. is(minherit::xget($aa), 1);
    62. 

  62. 

  63. is(minherit::yget($bb), 2);
    64. 

  64. 

  65. is(minherit::xget($cc), 1);
    66. 

  66. is(minherit::yget($cc), 2);
    67. 

  67. is(minherit::zget($cc), 3);
    68. 

  68. 

  69. is(minherit::xget($dd), 1);
    70. 

  70. is(minherit::yget($dd), 2);
    71. 

  71. is(minherit::zget($dd), 3);
    72. 

  72. is(minherit::wget($dd), 4);
    73.