Adding upstream version 3.6.12.upstream/3.6.12upstream

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>

1 files changed, 48 insertions, 0 deletions

diff --git a/t/reference.t b/t/reference.t
new file mode 100755
index 0000000..fefb5bc
--- /dev/null
+++ b/t/reference.t
@@ -0,0 +1,48 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+
+# this is hardcoded; change it if needed
+use lib "src/lib";
+use Gitolite::Test;
+my $h = $ENV{HOME};
+
+# fork command
+# ----------------------------------------------------------------------
+
+try "plan 16";
+
+my $rb = `gitolite query-rc -n GL_REPO_BASE`;
+
+try "sed -ie 's%.Mirroring.,%\"Mirroring\",\\n\"create-with-reference\",%' ~/.gitolite.rc";
+
+confreset;confadd '
+
+    repo source
+        RW+ = u1 u2
+
+    repo fork
+        RW+ = u1 u2
+    option reference.repo = source
+
+    repo multifork
+        RW+ = u1 u2
+    option reference.repo-1 = source
+    option reference.repo-2 = fork
+';
+
+try "ADMIN_PUSH set1; !/FATAL/" or die text();
+
+try " # Verify files
+    # source doesn't have alternates
+    ls $rb/source.git/objects/info/alternates;  !ok
+
+    # fork has source as an alternate
+    ls $rb/fork.git/objects/info/alternates;   ok
+    cat $rb/fork.git/objects/info/alternates;  ok;  /$rb/source.git/objects/
+
+    # multifork has multiple alternates
+    ls $rb/multifork.git/objects/info/alternates;   ok
+    cat $rb/multifork.git/objects/info/alternates;  ok;  /$rb/source.git/objects/
+                                                         /$rb/fork.git/objects/
+";