[catagits/Catalyst-Devel.git] / t / generated_app.t

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";
}
Commit	Line	Data
ad9d93fc	1	use strict;
	2	use warnings;
	3
	4	use File::Temp qw/ tempdir /;
	5
	6	my $dir = tempdir(); # CLEANUP => 1 );
	7
	8	use Test::More;
	9	{
	10	# Check exit status here
	11	system("cd $dir; catalyst.pl TestApp");
	12	}
	13	# Fix paths / nl work on win32
	14	chdir("$dir/TestApp/");
	15	warn($dir);
	16
	17	# Ok, this is lame.. Also, check +x permissions?
	18	my @files = qw\|
	19	Makefile.PL
	20	lib/TestApp.pm
	21	\|;
	22
	23	plan 'tests' => scalar @files;
	24
	25	foreach my $fn (@files) {
	26	ok -r $fn, "Have $fn in generated app";
	27	}
	28