my
$test
= dztest();
$test
->add_file(
'Changes'
,
<<'EOF');
Example changes file
{{$NEXT}}
First release
EOF
$test
->add_file(
'dist.ini'
, simple_ini( {
version
=>
'0.01'
},
'GatherDir'
, [
'Git::NextRelease'
, {
time_zone
=>
'UTC'
} ] ) );
$test
->add_file(
'lib/E.pm'
,
q[]
);
my
$t
= Git::Wrapper::Plus::Tester->new(
repo_dir
=>
$test
->tempdir );
my
$s
= Git::Wrapper::Plus::Support->new(
git
=>
$t
->git );
$t
->run_env(
sub
{
my
$git
=
$t
->git;
if
( not
$s
->supports_command(
'init-db'
) ) {
plan
skip_all
=>
'This version of Git cannot init-db'
;
return
;
}
my
$excp
= exception {
$git
->init_db();
$git
->add(
'Changes'
);
$git
->add(
'dist.ini'
);
$git
->add(
'lib/E.pm'
);
local
$ENV
{
'GIT_COMMITTER_DATE'
} =
'1388534400 +1300'
;
$git
->commit(
'-m First Commit'
);
};
is(
$excp
,
undef
,
'Git::Wrapper test preparation did not fail'
)
or diag
$excp
;
$test
->build_ok;
for
my
$file
( @{
$test
->builder->files } ) {
next
if
$file
->name ne
'Changes'
;
like(
$file
->encoded_content,
qr/0.01\s+2014-01-01\s+00:00:00/
,
"Specified commit timestamp in changelog"
);
}
note explain
$test
->builder->log_messages;
}
);
done_testing;