t/get_sharedir_file.t

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