projects
/
catagits/Catalyst-Devel.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
path fixes
[catagits/Catalyst-Devel.git]
/
t
/
render_share_dir_file.t
1
use strict;
2
use warnings;
3
use lib "t/lib";
4
use Catalyst::Helper;
5
use Test::More;
6
7
my $helper = bless {}, 'Catalyst::Helper';
8
9
use File::Temp qw/tempfile/;
10
11
my ($fh, $fn) = tempfile;
12
close $fh;
13
14
ok( $helper->render_sharedir_file('script/myapp_cgi.pl.tt', $fn, { appprefix => 'fnargh' }), "sharedir file rendered" );
15
ok -r $fn;
16
ok -s $fn;
17
unlink $fn;
18
19
done_testing;