1use strict;
2use Test::More (tests => 5);
3use Test::MockObject::Extends;
4
5BEGIN
6{
7    use_ok("Gungho::Component::RobotRules::Storage");
8}
9
10{
11    # Test base class (everything should be virtual)
12    my $mock = Test::MockObject::Extends->new( 'Gungho::Component::RobotRules::Storage' );
13
14    # These should be virtual methods.
15    foreach my $method qw(get_rule put_rule get_pending_robots_txt push_pending_robots_txt) {
16        eval { $mock->$method };
17        like($@, qr/is not overridden/);
18    }
19}