#!/usr/bin/env perl
# Copyright (c) 2007 Jonathan Rockway <jrockway@cpan.org>
use strict;
use warnings;
use Test::More tests => 5;
use CatalystX::Starter;
use Directory::Scratch;
use Test::Exception;
my $src = CatalystX::Starter::_boilerplate();
ok -e $src, "source of files, $src, exists";
my $tmp = Directory::Scratch->new;
my $dest = $tmp->mkdir('My-Module');
CatalystX::Starter::_copy_files($dest);
ok scalar $tmp->ls('My-Module') > 10, 'copied some files';
lives_ok {
CatalystX::Starter::_mk_module('My::Module', $tmp->exists('My-Module'));
} 'files fixed without dying';
my $module = $tmp->read('My-Module/lib/My/Module.pm');
like $module, qr/package \s+ My::Module/x, 'module is a module';
lives_ok {
require $tmp->exists('My-Module/lib/My/Module.pm');
} 'module even compiles!';