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

# · Perl · 20 lines · 18 code · 1 blank · 1 comment · 0 complexity · cacaf22e5502715277909fce5f291e3a MD5 · raw file 

    

  1. use strict;
    2. 

  2. use warnings;
    3. 

  3. use Test::More tests => 7;
    4. 

  4. BEGIN { use_ok('voidtest') }
    5. 

  5. require_ok('voidtest');
    6. 

  6. 

  7. # adapted from ../python/voidtest_runme.py
    8. 

  8. voidtest::globalfunc();
    9. 

  9. my $f = voidtest::Foo->new();
    10. 

  10. is($f->memberfunc(), undef);
    11. 

  11. { local $TODO = "opaque pointers hidden behind layer of indirection";
    12. 

  12. my $v1 = voidtest::vfunc1($f);
    13. 

  13. my $v2 = voidtest::vfunc2($f);
    14. 

  14. is($v1, $v2);
    15. 

  15. my $v3 = voidtest::vfunc3($v1);
    16. 

  16. is($v3->this, $f->this);
    17. 

  17. my $v4 = voidtest::vfunc4($f);
    18. 

  18. is($v1, $v4);
    19. 

  19. }
    20. 

  20. ok(1, "done");
    21.