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}