1use strict;
2use warnings;
3use Test::More tests => 13;
4BEGIN { use_ok('director_abstract') }
5require_ok('director_abstract');
6
7{
8  package MyFoo;
9  use base 'director_abstract::Foo';
10  sub ping {
11    return 'MyFoo::ping()';
12  }
13}
14
15my $f = MyFoo->new();
16
17is($f->ping, "MyFoo::ping()");
18
19is($f->pong(),"Foo::pong();MyFoo::ping()");
20
21{
22  package MyExample1;
23  use base 'director_abstract::Example1';
24  sub Color { my($self, $r, $g, $b) = @_;
25    return $r;
26  }
27}
28{
29  package MyExample2;
30  use base 'director_abstract::Example2';
31  sub Color { my($self, $r, $g, $b) = @_;
32    return $g;
33  }
34}
35{
36  package MyExample3;
37  use base 'director_abstract::Example3_i';
38  sub Color { my($self, $r, $g, $b) = @_;
39    return $b;
40  }
41}
42
43my $me1 = MyExample1->new();
44isa_ok($me1, 'MyExample1');
45is(director_abstract::Example1::get_color($me1, 1, 2, 3), 1, 'me1');
46
47my $me2 = MyExample2->new(1,2);
48isa_ok($me2, 'MyExample2');
49is(director_abstract::Example2::get_color($me2, 1, 2, 3), 2, 'me2');
50
51my $me3 = MyExample3->new();
52isa_ok($me3, 'MyExample3');
53is(director_abstract::Example3_i::get_color($me3, 1, 2, 3), 3, 'me3');
54
55eval { $me1 = director_abstract::Example1->new() };
56like($@, qr/\babstract\b/i, 'E1.new()');
57
58eval { $me2 = director_abstract::Example2->new() };
59like($@, qr/Example2/, 'E2.new()');
60
61eval { $me3 = director_abstract::Example3_i->new() };
62like($@, qr/\babstract\b/i, 'E3.new()');
63