t/t9602-cvsimport-branches-tags.sh: Add a PERL prerequisite

diff --git a/t/t5400-send-pack.sh b/t/t5400-send-pack.sh
index d6151f885476e9c4f0f90c3c102f9fa41576e74c..c718253673ec8b3baf635c4dc0b05fe127c6f4cd 100755 (executable)
--- a/t/t5400-send-pack.sh
+++ b/t/t5400-send-pack.sh
@@ -32,7 +32,7 @@ test_expect_success setup '
        done &&
        git update-ref HEAD "$commit" &&
        git clone ./. victim &&
-       ( cd victim && git log ) &&
+       ( cd victim && git config receive.denyCurrentBranch warn && git log ) &&
        git update-ref HEAD "$zero" &&
        parent=$zero &&
        i=0 &&
@@ -129,6 +129,7 @@ rewound_push_setup() {
            cd parent &&
            git init &&
            echo one >file && git add file && git commit -m one &&
+           git config receive.denyCurrentBranch warn &&
            echo two >file && git commit -a -m two
        ) &&
        git clone parent child &&
@@ -190,4 +191,12 @@ test_expect_success 'pushing wildcard refspecs respects forcing' '
        test "$parent_head" = "$child_head"
 '
 
+test_expect_success 'deny pushing to delete current branch' '
+       rewound_push_setup &&
+       (
+           cd child &&
+           test_must_fail git send-pack ../parent :refs/heads/master 2>errs
+       )
+'
+
 test_done