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

use strict;
use warnings;

use Test::More;
use Test::Exception;

use Catalyst::Helper;

my $i = bless {}, 'Catalyst::Helper';

throws_ok {
    $i->get_sharedir_file(qw/does not exist and hopefully never will or we are
        totally screwed.txt/);
} qr/Cannot find/, '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';

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