1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
|
use strict;
use warnings;
use Test::More;
use File::Spec;
use Cwd qw( cwd );
use Test::Git;
use Test::Requires::Git;
use Git::Repository 'Log';
test_requires_git '1.5.1';
my $num_tests;
# test data
{
our %commit;
do File::Spec->catfile( 't', 'bundle.pl' );
sub check_commit {
my ($log) = @_;
my $id = $log->commit;
return if !exists $commit{$id};
my $commit = $commit{$id};
is( $log->tree, $commit->{tree}, "commit $id tree" );
is_deeply( [ $log->parent ], $commit->{parent}, "commit $id parent" );
is( $log->author, $commit->{author}, "commit $id author" );
is( $log->committer, $commit->{committer}, "commit $id committer" );
is( $log->subject, $commit->{subject}, "commit $id subject" );
is( $log->body, $commit->{body}, "commit $id body" );
is( $log->extra, $commit->{extra}, "commit $id extra" );
is( $log->gpgsig, $commit->{gpgsig}, "commit $id gpgsig" );
is_deeply(
[ $log->mergetag ],
$commit->{mergetag} || [],
"commit $id mergetag"
);
}
$num_tests = 9 * scalar keys %commit;
}
# setup the environment
my %env = (
# ensure local configs won't interfere
GIT_CONFIG_NOSYSTEM => 1,
XDG_CONFIG_HOME => undef,
HOME => undef,
# git log will output utf-8
LC_ALL => 'C',
);
# first create a new empty repository
my $r = test_repository(
git => { env => \%env },
clone => [ File::Spec->catfile( cwd(), qw( t test.bundle ) ) ],
);
# test!
my @merges;
my $iter = $r->log('--all');
while ( my $log = $iter->next ) {
check_commit($log);
# record merge commits for the diff_from test
if ( $log->parent > 1 ) {
push @merges, [ $log->commit, $log->parent ];
}
}
# test diff_from
for my $merge ( @merges ) {
# weed out empty diffs
my $commit = shift @$merge;
$merge = [ grep $r->run( diff => $commit, $_ ) ne '', @$merge ];
# update test total
$num_tests += @$merge;
# only test the commits with a defined diff_from
$iter = $r->log( qw( -m --name-status -1 ), $commit );
while ( my $log = $iter->next ) {
is( $log->diff_from, shift @$merge, "$commit diff_from" );
}
}
done_testing($num_tests);
|
