24 lines
443 B
Perl
24 lines
443 B
Perl
use 5.36.0;
|
|
|
|
use Test2::V0;
|
|
|
|
use App::Changelord;
|
|
|
|
my $change = App::Changelord->new(
|
|
changelog => {
|
|
project => { name => 'Foo' }
|
|
}
|
|
);
|
|
|
|
like $change->as_markdown, qr/# Changelog for Foo/;
|
|
|
|
subtest 'homepage' => sub {
|
|
$change->changelog->{project}{homepage} = 'the-url';
|
|
|
|
my $header = $change->render_header;
|
|
like $header, qr/\[Foo\]\[homepage\]/;
|
|
like $header, qr/\Q [homepage]: the-url/;
|
|
};
|
|
|
|
done_testing();
|