[Catalyst-commits] r10522 - Catalyst-Devel/1.00/branches/helper_refactor/t

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2009-06-13 00:08:07 +0000 (Sat, 13 Jun 2009)
New Revision: 10522

Added:
   Catalyst-Devel/1.00/branches/helper_refactor/t/genrrated_app.t
Log:
Misspelled, useless test. dhoss - please rename and run with this crap?


Added: Catalyst-Devel/1.00/branches/helper_refactor/t/genrrated_app.t
===================================================================
--- Catalyst-Devel/1.00/branches/helper_refactor/t/genrrated_app.t	                        (rev 0)
+++ Catalyst-Devel/1.00/branches/helper_refactor/t/genrrated_app.t	2009-06-13 00:08:07 UTC (rev 10522)
@@ -0,0 +1,28 @@
+use strict;
+use warnings;
+
+use File::Temp qw/ tempdir /;
+
+my $dir = tempdir(); # CLEANUP => 1 );
+
+use Test::More;
+{
+    # Check exit status here
+    system("cd $dir; catalyst.pl TestApp");
+}
+# Fix paths / nl work on win32
+chdir("$dir/TestApp/");
+warn($dir);
+
+# Ok, this is lame.. Also, check +x permissions?
+my @files = qw|
+    Makefile.PL
+    lib/TestApp.pm
+|;
+
+plan 'tests' => scalar @files;
+
+foreach my $fn (@files) {
+    ok -r $fn, "Have $fn in generated app";
+}
+