1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
use strict;
use warnings;
use Test::More 'no_plan';
use Test::Exception;
{ package Foo;
use Carp qw( confess );
sub an_abstract_method { shift->subclass_responsibility; }
sub subclass_responsibility {
my $class = shift;
my $method = (caller(1))[3];
$method =~ s/.*:://;
confess( "abstract method '$method' not implemented for $class" );
}
}
throws_ok { Foo->an_abstract_method }
qr/abstract method 'an_abstract_method'/, 'RT 11846: throws_ok breaks tests that depend on caller stack: working';
|
