test annex-to-annex-reinject

Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>

1 files changed, 42 insertions, 0 deletions

diff --git a/t/23_annex-to-annex-reinject.t b/t/23_annex-to-annex-reinject.t
new file mode 100755
index 0000000..2e672ea
--- /dev/null
+++ b/t/23_annex-to-annex-reinject.t
@@ -0,0 +1,42 @@
+#!/usr/bin/perl
+
+use 5.028;
+use strict;
+use warnings;
+use lib 't/lib';
+
+use Test::More;
+use File::Spec::Functions qw(rel2abs);
+use t::Setup;
+use File::chdir;
+
+# make sure that `make test` will always use the right version of the
+# script we seek to test
+my $a2a    = "annex-to-annex";
+my $a2a_ri = "annex-to-annex-reinject";
+$a2a = rel2abs "blib/script/annex-to-annex" if -x "blib/script/annex-to-annex";
+$a2a_ri = rel2abs "blib/script/annex-to-annex-reinject"
+  if -x "blib/script/annex-to-annex-reinject";
+
+with_temp_annexes {
+    my (undef, undef, $source2) = @_;
+
+    system $a2a, qw(--commit source1/foo source2/other dest);
+    {
+        local $CWD = "source2";
+        $source2->checkout("master~1");
+        ok $source2->annex(qw(find --in=here other)) == 1,
+          "other is initially present";
+        $source2->checkout("master");
+    }
+    system $a2a_ri, qw(source2 dest);
+    {
+        local $CWD = "source2";
+        $source2->checkout("master~1");
+        ok $source2->annex(qw(find --in=here other)) == 0,
+          "other is reinjected";
+        $source2->checkout("master");
+    }
+};
+
+done_testing;