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
|
use strict;
use warnings;
use Test::More;
use Test::Requires::Git;
use Test::Git;
use File::Temp qw( tempfile tempdir );
use Git::Repository;
use constant MSWin32 => $^O eq 'MSWin32';
# setup fake git
my $W = my $V = my $version = Git::Repository->version;
$V =~ s/\.(\d+)\./.@{[$1+1]}./;
$W =~ s/\.(\d+)\./.@{[$1+2]}./;
my $o = { git => fake_git('1.2.3') }; # small one
my $O = { git => fake_git($W) }; # big one
# setup tests (that will fail if the real git is called)
my @true = (
[ version_eq => '1.2.3', $o ], # small
[ version_ne => '1.2.2', $o ],
[ version_lt => '1.2.3.5', $o ],
[ version_le => '1.2.3', $o ],
[ version_le => '1.2.3.5', $o ],
[ version_gt => '1.1.1', $o ],
[ version_ge => '1.2.3', $o ],
[ version_ge => '1.2.2', $o ],
[ version_eq => $W, $O ], # big
[ version_ne => $version, $O ],
[ version_gt => $version, $O ],
[ version_ge => $V, $O ],
[ version_ge => $W, $O ],
);
plan tests => 2 + 3 * @true;
# use options in version()
is( Git::Repository->version($o), '1.2.3', "version() options (small git)" );
is( Git::Repository->version($O), $W, "version() options (big git)" );
# use options in version_eq()
for my $t (@true) {
my ( $method, @args ) = @$t;
ok( Git::Repository->$method(@args), "$method($args[0]) options" );
ok( Git::Repository->$method( reverse @args ),
"$method($args[0]) options (any order)" );
ok( Git::Repository->$method( @args, 'bonk' ),
"$method($args[0]) options (with bogus extra args)"
);
}
# helper routine to build a fake fit binary
sub fake_git {
my ($version) = @_;
my ( $fh, $filename ) = tempfile(
DIR => tempdir( CLEANUP => 1 ),
UNLINK => 1,
( SUFFIX => '.bat' )x!! MSWin32,
);
print {$fh} MSWin32 ? << "WIN32" : << "UNIX";
\@echo git version $version
WIN32
#!$^X
print "git version $version\\n"
UNIX
close $fh;
chmod 0755, $filename;
return $filename;
}
|
