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
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
|
use strict;
use warnings;
use Test::More;
use File::Temp qw( tempdir );
use Cwd qw( cwd abs_path );
use Git::Sub;
# clean up the environment
delete @ENV{grep /^GIT_/, keys %ENV};
$ENV{GIT_AUTHOR_NAME} = 'Test Author';
$ENV{GIT_AUTHOR_EMAIL} = 'test.author@example.com';
$ENV{GIT_COMMITTER_NAME} = 'Test Committer';
$ENV{GIT_COMMITTER_EMAIL} = 'test.committer@example.com';
my $keep_tempdir = ($ENV{SKIP_TEMPDIR_CLEANUP} ? 1 : 0);
my $home = cwd;
my $dir = tempdir( qq{git-sub-XXXXXXXX}, TMPDIR => 1, CLEANUP => ($keep_tempdir ? 0 : 1));
diag qq{\nTest directory created "$dir"\n};
if ($keep_tempdir) {
diag qq{SKIP_TEMPDIR_CLEANUP is TRUE, keeping the temporary directory\n};
} else {
diag qq{SKIP_TEMPDIR_CLEANUP not defined or FALSE, deleting the temporary directory\n};
}
# need to be there to test
chdir $dir;
# but go back home before removing the dir
END { chdir $home; }
my %tested;
# skip if we can't get a version number
my $git_version = eval {git::version};
$tested{version}++;
plan skip_all => 'Could not get a meaningful result from git::version'
if !$git_version;
diag "Testing <$git_version>";
# init a repository
ok( !-d "$dir/.git", 'Verify no repository yet' );
git::init;
ok( -d "$dir/.git", '[init] Initialize repositry ' );
$tested{init}++;
# create the emptry tree
my $tree = git::mktree( \'' );
is( $tree, '4b825dc642cb6eb9a060e54bf8d69288fbee4904', '[mktree] Creating empty tree' );
$tested{mktree}++;
# commit it
$ENV{GIT_AUTHOR_DATE} = 'Mon Jan 21 21:14:18 CET 2013';
$ENV{GIT_COMMITTER_DATE} = 'Mon Jan 21 21:14:18 CET 2013';
my $commit = git::commit_tree $tree, \'empty tree';
$tested{commit_tree}++;
is( $commit, '52870678501379ecd14277fad5e69961ce7bd39b', '[commit_tree] Committing empty tree' );
# point master to it
git::update_ref 'refs/heads/master', $commit;
$tested{update_ref}++;
# check we got it right
my $log = git::log qw( --pretty=format:%H -1 );
is( $log, $commit, '[log] Verify commit tree' );
$log = git::log qw( --pretty=format:%s -1 );
is( $log, 'empty tree', '[log] Verify empty tree' );
# create a new branch
git::checkout -b => 'branch';
$tested{checkout}++;
is_deeply( [git::branch], [ '* branch', ' master' ], '[branch] Verify branch' );
$tested{branch}++;
# add a new file
open my $fh, '>', 'hello.txt';
# In order to avoid translating \n to \r\n on MsWin text files, use binmode()
# If binmode is not used, the hash created for the commit of the text file
# will be different and cause subsequent tests to fail
binmode $fh;
print $fh "Hello, world!\n";
close $fh;
is_deeply( [ git::status '--porcelain' ],
['?? hello.txt'], '[status --porcelain] Status with missing file' );
$tested{status}++;
git::add 'hello.txt';
$tested{add}++;
is_deeply( [ git::status '--porcelain' ],
['A hello.txt'], '[status --porcelain] Status with added file' );
$tested{status}++;
# and commit it
$ENV{GIT_AUTHOR_DATE} = 'Mon Jan 21 21:14:19 CET 2013';
$ENV{GIT_COMMITTER_DATE} = 'Mon Jan 21 21:14:19 CET 2013';
git::commit -m => 'hello';
$tested{commit}++;
$commit = git::log qw( -1 --pretty=format:%H );
$tested{log}++;
is( $commit, 'b462686c994180efe7fcf5e4e682907834c93f38', '[log] Verify commit' );
# check an unsupported command
use Git::Sub 'show_branch';
is_deeply(
[ git::show_branch '--all' ],
[ split /\n/, << 'EOT' ], qq{[show-branch] Verify output of show_branch} );
* [branch] hello
! [master] empty tree
--
* [branch] hello
*+ [master] empty tree
EOT
is_deeply(
[ git::cat_file commit => $commit ],
[ split /\n/, << 'EOT' ], qq{[cat-file] Verify output of cat_file} );
tree ec947e3dd7a7752d078f1ed0cfde7457b21fef58
parent 52870678501379ecd14277fad5e69961ce7bd39b
author Test Author <test.author@example.com> 1358799259 +0100
committer Test Committer <test.committer@example.com> 1358799259 +0100
hello
EOT
$tested{cat_file}++;
is_deeply( [ git::ls_tree 'master' ], [], qq{[ls_tree] Verify ls of "master"} );
is_deeply( [ git::ls_tree 'branch' ],
["100644 blob af5626b4a114abcb82d63db7c8082c3c4756e51b\thello.txt"],
qq{[ls_tree] Verify ls of "branch"} );
# inform us about untested commands
diag "Not tested: ", join ' ', sort grep !exists $tested{$_},
grep /^[a-z_]+$/, keys %git::;
done_testing;
|
