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'; |
20 | |