added tests for new methods
Devin Austin [Wed, 17 Jun 2009 11:09:18 +0000 (11:09 +0000)]
t/render_file_contents.t [new file with mode: 0644]
t/render_share_dir_file.t [new file with mode: 0644]

diff --git a/t/render_file_contents.t b/t/render_file_contents.t
new file mode 100644 (file)
index 0000000..4617197
--- /dev/null
@@ -0,0 +1,19 @@
+use strict;
+use warnings;
+use FindBin qw/$Bin/;
+use lib "$Bin/lib";
+use Catalyst::Helper;
+use MyTestHelper;
+
+use Test::More tests => 1;
+
+my $helper = bless {}, 'MyTestHelper';
+
+package MyTestHelper;
+use Test::More;
+use File::Temp qw/tempfile/;
+
+my ($fh, $fn) = tempfile;
+close $fh;
+
+ok( $helper->render_file_contents('example1',  $fn, { test_var => 'test_val' }), "file contents rendered" ); 
diff --git a/t/render_share_dir_file.t b/t/render_share_dir_file.t
new file mode 100644 (file)
index 0000000..a53cf65
--- /dev/null
@@ -0,0 +1,20 @@
+use strict;
+use warnings;
+use FindBin qw/$Bin/;
+use lib "$Bin/lib";
+use Catalyst::Helper;
+use MyTestHelper;
+
+use Test::More tests => 1;
+
+my $helper = bless {}, 'MyTestHelper';
+
+package MyTestHelper;
+use FindBin qw/$Bin/;
+use Test::More;
+use File::Temp qw/tempfile/;
+
+my ($fh, $fn) = tempfile;
+close $fh;
+
+ok( $helper->render_sharedir_file('script/myapp_cgi.pl.tt',  { appprefix  => 'fnargh' }), "sharedir file rendered" );