view release on metacpan or  search on metacpan

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

note( "zipped content handling" );

*content = *App::CatalystStarter::Bloated::Initializr::_zip_content;

like( my $c0 = content( qr(/main.css$) ), qr/Author's custom styles/, "content check" );

is( $c0, content( qr(/main.css$)), "content not changed with no 2nd argument" );

lives_ok {content( qr(/main.css$), "/* new css file content /*\n" )}
    "zip member content can beupdated";

is( content( qr(/main.css$)), "/* new css file content /*\n",
    "new content reflected in zip" );

lives_ok {content( qr(/main.css$), $c0 )} "original content can inserted";

is( content( qr(/main.css$)), $c0, "original reflected in zip" );

## accessor related functions