diff options
Diffstat (limited to 't')
-rw-r--r-- | t/git.fast-import-data | 2 | ||||
-rw-r--r-- | t/git.t | 5 |
2 files changed, 6 insertions, 1 deletions
diff --git a/t/git.fast-import-data b/t/git.fast-import-data index 4a105ee7..6d5159dd 100644 --- a/t/git.fast-import-data +++ b/t/git.fast-import-data @@ -90,7 +90,7 @@ data 78 commit refs/heads/master mark :13 author AU Thor <e@example.com> 0 +0000 -committer AU Thor <e@example.com> 0 +0000 +committer AU Thor <e@example.com> 749520000 +0000 data 18 add git submodule from :11 @@ -23,6 +23,7 @@ use_ok 'PublicInbox::Git'; { my $gcf = PublicInbox::Git->new($dir); + is($gcf->modified, 749520000, 'modified time detected from commit'); my $f = 'HEAD:foo.txt'; my @x = $gcf->check($f); is(scalar @x, 3, 'returned 3 element array for existing file'); @@ -146,6 +147,10 @@ if ('alternates reloaded') { ok($gcf->cleanup(time - 30), 'cleanup did not expire'); ok(!$gcf->cleanup(time + 30), 'cleanup can expire'); ok(!$gcf->cleanup, 'cleanup idempotent'); + + my $t = $gcf->modified; + ok($t <= time, 'repo not modified in the future'); + isnt($t, 0, 'repo not modified in 1970') } use_ok 'PublicInbox::Git', qw(git_unquote git_quote); |