blob: 844a7ebe1e3ed58c9edd79e26779203502f092e5 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
#!/usr/bin/env perl
use strict;
use warnings;
use lib 't/base2';
use Test::More;
no circular::require;
use_ok('Foo');
is(Foo->bar, "bar", "Polymorphism");
my $ok = eval "use base 'BadWolf'";
my $err = $@;
ok(!$ok, "use base 'Some Bad File' should throw an exception");
like($err, qr/Base class package "BadWolf" is empty/, "correct exception");
done_testing;
|
