Commit | Line | Data |
---|---|---|
163f1f1f | 1 | use strict; |
2 | use warnings; | |
3 | ||
bc750d3b | 4 | use Test::More 0.88; |
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 |
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; |