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
|
use strict;
use warnings;
use Test::More;
use Test::Requires::Git;
use Test::Git;
use File::Temp qw( tempdir );
use File::Spec::Functions;
use Cwd qw( cwd abs_path );
use Git::Repository;
# git clone supports existing directories since then
test_requires_git '1.6.2.rc0';
# clean up the environment
delete @ENV{qw( GIT_DIR GIT_WORK_TREE )};
$ENV{LC_ALL} = 'C';
$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';
$ENV{GIT_CONFIG_NOSYSTEM} = 1;
delete $ENV{XDG_CONFIG_HOME};
delete $ENV{HOME};
my $home = cwd;
my @init;
push @init, init => [ '-q' ] if Git::Repository->version_ge('1.5.2.3');
my $r = test_repository(@init);
# add a file
my $file = 'hello.txt';
{
open my $fh, '>', catfile( $r->work_tree, $file )
or die "Can't open $file for writing: $!";
print $fh "Hello, world!\n";
}
$r->run( add => $file );
$r->run( qw( commit --no-verify -m hello ) );
my $sha1 = $r->run( 'rev-parse' => 'master' );
# expect test_repository to fail
if ( Git::Repository->version_ge('1.7.0.rc1')
&& Git::Repository->version_le('1.7.0.2') )
{
for my $meth (qw( work_tree git_dir )) {
ok(
!eval { test_repository( clone => [ $r->$meth ] ) },
'`git clone <dir1> <dir2>` fails with 1.7.0.rc1 <= git <= 1.7.0.2'
);
like(
$@,
qr/^test_repository\( clone => \.\.\. \) requires /,
'.. expected error message'
);
}
}
# make a clone with test_repository
else {
my $s;
for my $meth (qw( work_tree git_dir )) {
$s = test_repository( clone => [ $r->$meth ] );
isnt( $s->git_dir, $r->git_dir, "$meth clone: different git_dir" );
isnt( $s->work_tree, $r->work_tree,
"$meth clone: different work_tree" );
is( $s->run( 'rev-parse' => 'master' ),
$sha1, "$meth clone points to the same master" );
}
}
done_testing;
|
