[catagits/Catalyst-Devel.git] / t / get_sharedir_file.t

use strict;
use warnings;

use Test::MockObject::Extends;
use Test::More tests => 3;
use Test::Exception;

use Catalyst::Helper;

my $i = Test::MockObject::Extends->new('Catalyst::Helper');

throws_ok {
    $i->get_sharedir_file(qw/does not exist and hopefully never will or we are
        totally screwed.txt/);
} qr/No such/, 'Exception for file not found from ->get_sharedir_file';

lives_ok {
    ok($i->get_sharedir_file('Makefile.PL.tt'), 'has contents');
} 'Can get_sharedir_file';
Commit	Line	Data
163f1f1f	1	use strict;
	2	use warnings;
	3
	4	use Test::MockObject::Extends;
	5	use Test::More tests => 3;
	6	use Test::Exception;
	7
	8	use Catalyst::Helper;
	9
	10	my $i = Test::MockObject::Extends->new('Catalyst::Helper');
	11
	12	throws_ok {
	13	$i->get_sharedir_file(qw/does not exist and hopefully never will or we are
	14	totally screwed.txt/);
	15	} qr/No such/, 'Exception for file not found from ->get_sharedir_file';
	16
	17	lives_ok {
625dcb30	18	ok($i->get_sharedir_file('Makefile.PL.tt'), 'has contents');
163f1f1f	19	} 'Can get_sharedir_file';
163f1f1f	20