view release on metacpan or  search on metacpan

t/01-Dir.t  view on Meta::CPAN

use lib 't/lib';
my $work_dir = 't/images/';
my $data_dir = 't/images/.StaticImageGallery/';
my @images = sort ('JPEG.jpg','PNG.png');
my @default_ARGV = (
    # '--no-recursive',
    '--style' => 'Test',
    # '-vvvvv',
);
{
    local @ARGV;
    push @ARGV, @default_ARGV;
    push @ARGV, 'build';
    push @ARGV, $work_dir;
    my $app = App::StaticImageGallery->new_with_options();
    $app->run();

    isa_ok($app, 'App::StaticImageGallery');

    ok( -f $work_dir . '/index.html', 'Check index.html');
    ok( -f $work_dir . '/sub_folder/index.html', 'Check sub_folder/index.html');