File Coverage

blib/lib/Class/Scaffold/Storable_TEST.pm

Criterion	Covered	Total	%
statement	31	31	100.0
branch			n/a
condition			n/a
subroutine	12	12	100.0
pod	1	1	100.0
total	44	44	100.0

use 5.008;
use warnings;
use strict;

package Class::Scaffold::Storable_TEST;
BEGIN {
  $Class::Scaffold::Storable_TEST::VERSION = '1.102280';
}
# ABSTRACT: Companion test class for the storable base class
use Error::Hierarchy::Test 'throws2_ok';
use Test::More;
use parent 'Class::Scaffold::Test';
use constant PLAN => 1;

sub run {
    my $self = shift;
    $self->SUPER::run(@_);
    $self->make_real_object;
    throws2_ok {
        Class::Scaffold::Storable_TEST::x001->new->storage->prepare('foo');
    }
    'Error::Hierarchy::Internal::CustomMessage',
      qr/can't find method to get storage object from delegate/,
      'using non-existing storage';
}

package Class::Scaffold::Storable_TEST::x001;
BEGIN {
  $Class::Scaffold::Storable_TEST::x001::VERSION = '1.102280';
}
use parent 'Class::Scaffold::Storable';
1;

__END__