t/get_sharedir_file.t

   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/Cannot find/, 'Exception for file not found from ->get_sharedir_file';
  16
  17 lives_ok {
  18     ok($i->get_sharedir_file('Makefile.PL.tt'), 'has contents');
  19 } 'Can get_sharedir_file';
  20