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 | |
16 | lives_ok { |
625dcb30 |
17 | ok($i->get_sharedir_file('Makefile.PL.tt'), 'has contents'); |
163f1f1f |
18 | } 'Can get_sharedir_file'; |
19 | |
0d4859fc |
20 | done_testing; |