4 use File::Temp qw/ tempdir /;
6 my $dir = tempdir(); # CLEANUP => 1 );
10 # Check exit status here
11 system("cd $dir; catalyst.pl TestApp");
13 # Fix paths / nl work on win32
14 chdir("$dir/TestApp/");
16 # Ok, this is lame.. Also, check +x permissions?
22 plan 'tests' => scalar @files;
24 foreach my $fn (@files) {
25 ok -r $fn, "Have $fn in generated app";