view release on metacpan or  search on metacpan

t/initializr/process_zip.t  view on Meta::CPAN

## higher level function

note( "HIGH LEVEL FUNCTIONS" );


## setup index
note( "mangle index.html into wrapper.tt2" );

lives_ok {App::CatalystStarter::Bloated::Initializr::_setup_index()}
    "index process complets alive";

## check that index.html doesn't exist
## (should be renamed to wrapper.tt2 by now)
is( search_one( qr/index\.html$/, 1), undef, "index.html not in archive" );

ok( search_one( qr/wrapper\.tt2$/ ), "wrapper.tt2 *is* in archive" );

## sanity checks on wrapper

my $w = content( qr/wrapper\.tt2$/ );