t/get_sharedir_file.t

   1 use strict;
   2 use warnings;
   3
   4 use Test::More 0.88;
   5 use Test::Fatal;
   6
   7 use Catalyst::Helper;
   8
   9 my $i = bless {}, 'Catalyst::Helper';
  10
  11 like exception {
  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 is exception {
  17     ok($i->get_sharedir_file('Makefile.PL.tt'), 'has contents');
  18 }, undef, 'Can get_sharedir_file';
  19
  20 done_testing;