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

use strict;
use warnings;

use Test::More 0.88;
use Test::Fatal;

use Catalyst::Helper;

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

like exception {
    $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';

is exception {
    ok($i->get_sharedir_file('Makefile.PL.tt'), 'has contents');
}, undef, 'Can get_sharedir_file';

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