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

# · Perl · 24 lines · 13 code · 7 blank · 4 comment · 0 complexity · d18eac5129c2e53d1c82498a77c92282 MD5 · raw file 

    

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

  2. use strict;
    3. 

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

  4. 

  5. BEGIN { use_ok('packageoption_a'); }
    6. 

  6. BEGIN { use_ok('packageoption_b'); }
    7. 

  7. 

  8. # Workaround for 
    9. 

  9. #   ok( not (expression) , "test description" );
    10. 

  10. # does not working in older versions of Perl, eg 5.004_04
    11. 

  11. sub ok_not ($;$) {
    12. 

  12.     my($test, $name) = @_;
    13. 

  13.     $test = not $test;
    14. 

  14.     ok($test, $name);
    15. 

  15. }
    16. 

  16. 

  17. my $a = CommonPackage::A->new();
    18. 

  18. 

  19. isa_ok($a, 'CommonPackage::A');
    20. 

  20. 

  21. my $b = CommonPackage::B->new();
    22. 

  22. 

  23. isa_ok($b, 'CommonPackage::B');
    24.