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
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
|
#!/usr/bin/perl
use 5.028;
use strict;
use warnings;
use lib 't/lib';
use App::annex_to_annex;
use Test::More;
use t::Setup;
use t::Util;
use File::Path qw(make_path);
use File::Slurp;
use Capture::Tiny qw(capture_merged);
use File::Spec::Functions qw(catfile rel2abs);
use File::chdir;
plan skip_all => "device ID issues" if device_id_issues;
plan skip_all => "git-annex not available" unless git_annex_available;
my ($output, $error, $exit, @output);
with_temp_annexes {
make_path "dest/foo/foo2";
write_file "dest/foo/bar", "";
write_file "dest/foo/foo2/baz", "";
(undef, $error, $exit)
= run_bin qw(annex-to-annex source1/foo source2/other dest);
ok $exit, "it exits nonzero instead of clobbering an existing file";
ok grep(/\/dest\/foo\/bar already exists!$/, @$error),
"it won't clobber an existing file";
};
with_temp_annexes {
write_file catfile("source1", "quux"), "quux\n";
(undef, $error, $exit)
= run_bin qw(annex-to-annex --commit source1/foo/bar dest);
ok $exit,
"with --commit, it exits nonzero when uncommitted source changes";
ok grep(/^git repo containing [^ ]+\/bar is not clean; please commit$/,
@$error),
"with --commit, it exits when uncommitted changes";
};
with_temp_annexes {
write_file catfile("dest", "quux"), "quux\n";
(undef, $error, $exit)
= run_bin qw(annex-to-annex --commit source1/foo/bar dest);
ok $exit, "with --commit, it exits nonzero when uncommitted dest changes";
ok grep(/^git repo containing [^ ]+\/dest is not clean; please commit$/,
@$error),
"with --commit, it exits when uncommitted changes";
};
# following test is sensitive to changes in git-log output, but that's
# okay
with_temp_annexes {
my (undef, $source1, $source2, $dest) = @_;
# also implicitly test, here, that we can invoke the program by
# passing a subroutine reference when invoking main as a class
# method
App::annex_to_annex->main([qw(--commit source1/foo source2/other dest)]);
@output = $source1->RUN(qw(log -1 --oneline --name-status));
like $output[0], qr/migrated by annex-to-annex/,
"--commit makes a source1 commit";
ok grep(m{^D\s+foo/bar$}, @output[1 .. $#output]),
"--commit commit deletes bar";
ok grep(m{^D\s+foo/foo2/baz$}, @output[1 .. $#output]),
"--commit commit deletes baz";
@output = $source2->RUN(qw(log -1 --oneline --name-status));
like $output[0], qr/migrated by annex-to-annex/,
"--commit makes a source2 commit";
ok grep(m{^D\s+other$}, @output[1 .. $#output]),
"--commit commit deletes other";
@output = $dest->RUN(qw(log -1 --oneline --name-status));
like $output[0], qr/add/, "--commit makes a dest commit";
ok grep(m{^A\s+other$}, @output[1 .. $#output]),
"--commit commit adds other";
};
with_temp_annexes {
my (undef, $source1) = @_;
corrupt_annexed_file $source1, "foo/foo2/baz";
(undef, $error, $exit)
= run_bin qw(annex-to-annex --commit source1/foo source2/other dest);
ok $exit, "it exits nonzero when dest annex calculates a diff checksum";
ok grep(/git-annex calculated a different checksum for/, @$error),
"it warns when dest annex calculates a diff checksum";
};
with_temp_annexes {
my (undef, $source1) = @_;
$source1->annex(qw(drop --force foo/foo2/baz));
($output, undef, $exit)
= run_bin qw(annex-to-annex --commit source1/foo source2/other dest);
ok $exit, "it exits nonzero when an annexed file is not present";
ok
grep(/^Following annexed files are not present in this repo:$/, @$output),
"it exits when annexed files are not present";
};
# this is the main integration test for the script doing its job
with_temp_annexes {
my (undef, $source1, $source2, $dest) = @_;
run_bin qw(annex-to-annex source1/foo source2/other dest);
{
local $CWD = "source1";
ok !-e "foo/bar", "bar should not exist in source1";
ok !-e "foo/foo2/baz", "baz should not exist in source1";
}
ok !-e "source2/other", "other should not exist in source2";
{
local $CWD = "dest";
ok -f "foo/bar", "bar is regular file in dest";
ok -f "foo/foo2/baz", "baz is regular file in dest";
ok -l "other", "other is symlink in dest";
my @bar_find = $dest->annex(qw(find foo/bar));
ok @bar_find == 0, "bar is not annexed in dest";
my ($baz_key) = $dest->annex(qw(lookupkey foo/foo2/baz));
my ($baz_content) = $dest->annex("contentlocation", $baz_key);
my @baz_content_stat = stat $baz_content;
ok $baz_content_stat[3] == 2, "baz was hardlinked into annex";
ok((stat("foo/foo2/baz"))[3] == 1,
"baz in dest working tree is a copy");
my ($other_key) = $dest->annex(qw(lookupkey other));
my ($other_content) = $dest->annex("contentlocation", $other_key);
my @other_content_stat = stat $other_content;
ok $other_content_stat[3] == 2, "other was hardlinked into annex";
is read_file("foo/bar"), "bar\n", "bar has expected file content";
is read_file("foo/foo2/baz"), "baz\n", "baz has expected file content";
is read_file("other"), "other\n", "other has expected file content";
}
my @source1_git_status = $source1->RUN(qw(status --porcelain));
ok grep(/D\s+foo\/bar/, @source1_git_status), "bar was removed from git";
ok grep(/D\s+foo\/foo2\/baz/, @source1_git_status),
"baz was removed from git";
my @source2_git_status = $source2->RUN(qw(status --porcelain));
ok grep(/D\s+other/, @source2_git_status), "other was removed from git";
my @dest_git_status = $dest->RUN(qw(status --porcelain));
ok grep(/A\s+foo\/bar/, @dest_git_status), "bar was added to git";
ok grep(/A\s+foo\/foo2\/baz/, @dest_git_status), "baz was added to git";
ok grep(/A\s+other/, @dest_git_status), "other was added to git";
};
done_testing;
|
