view release on metacpan or  search on metacpan

t/coverage-deep.t  view on Meta::CPAN

	eval {
		App::prepare4release->new(
			config   => {},
			opts     => {},
			identity => {},
		)->module_repo;
	};
	like( $@, qr/module_name is required/, 'module_repo croaks' );
}

# --- _insert_readme_badges_after_regen (BOM, empty) --------------------------

{
	my $bom = "\x{FEFF}Plain first line\n";
	my $out =
		App::prepare4release->_insert_readme_badges_after_regen( $bom, "BAD\n\n" );
	unlike( $out, qr/\A\x{FEFF}/, 'BOM stripped before insert' );
	like( $out, qr/BAD/, 'badge block inserted' );

	my $empty =
		App::prepare4release->_insert_readme_badges_after_regen( "\n\n", "X\n" );
	like( $empty, qr/\AX\n/, 'whitespace-only readme: block prepended' );
}

# --- _strip_readme_badge_markdown_block (HTML comment) ----------------------

{