Examples/test-suite/perl5/inherit_missing_runme.pl

   1 #!/usr/bin/perl
   2 use strict;
   3 use warnings;
   4 use Test::More tests => 5;
   5 BEGIN { use_ok('inherit_missing') }
   6 require_ok('inherit_missing');
   7
   8 # adapted from ../python/inherit_missing_runme.py
   9
  10 my $a = inherit_missing::new_Foo();
  11 my $b = inherit_missing::Bar->new();
  12 my $c = inherit_missing::Spam->new();
  13
  14 is(inherit_missing::do_blah($a), "Foo::blah");
  15
  16 is(inherit_missing::do_blah($b), "Bar::blah");
  17
  18 is(inherit_missing::do_blah($c), "Spam::blah");
  19
  20 inherit_missing::delete_Foo($a);