#!/bin/sh

test_description=clone

. ./test-lib.sh

X=
test_have_prereq !MINGW || X=.exe

test_expect_success setup '

        rm -fr .git &&
        test_create_repo src &&
        (
                cd src &&
                >file &&
                git add file &&
                git commit -m initial &&
                echo 1 >file &&
                git add file &&
                git commit -m updated
        )

'

test_expect_success 'clone with excess parameters (1)' '

        rm -fr dst &&
        test_must_fail git clone -n src dst junk

'

test_expect_success 'clone with excess parameters (2)' '

        rm -fr dst &&
        test_must_fail git clone -n "file://$(pwd)/src" dst junk

'

test_expect_success C_LOCALE_OUTPUT 'output from clone' '
        rm -fr dst &&
        git clone -n "file://$(pwd)/src" dst >output 2>&1 &&
        test $(grep Clon output | wc -l) = 1
'

test_expect_success 'clone does not keep pack' '

        rm -fr dst &&
        git clone -n "file://$(pwd)/src" dst &&
        ! test -f dst/file &&
        ! (echo dst/.git/objects/pack/pack-* | grep "\.keep")

'

test_expect_success 'clone checks out files' '

        rm -fr dst &&
        git clone src dst &&
        test -f dst/file

'

test_expect_success 'clone respects GIT_WORK_TREE' '

        GIT_WORK_TREE=worktree git clone src bare &&
        test -f bare/config &&
        test -f worktree/file

'

test_expect_success 'clone from hooks' '

        test_create_repo r0 &&
        cd r0 &&
        test_commit initial &&
        cd .. &&
        git init r1 &&
        cd r1 &&
        cat >.git/hooks/pre-commit <<-\EOF &&
        #!/bin/sh
        git clone ../r0 ../r2
        exit 1
        EOF
        chmod u+x .git/hooks/pre-commit &&
        : >file &&
        git add file &&
        test_must_fail git commit -m invoke-hook &&
        cd .. &&
        test_cmp r0/.git/HEAD r2/.git/HEAD &&
        test_cmp r0/initial.t r2/initial.t

'

test_expect_success 'clone creates intermediate directories' '

        git clone src long/path/to/dst &&
        test -f long/path/to/dst/file

'

test_expect_success 'clone creates intermediate directories for bare repo' '

        git clone --bare src long/path/to/bare/dst &&
        test -f long/path/to/bare/dst/config

'

test_expect_success 'clone --mirror' '

        git clone --mirror src mirror &&
        test -f mirror/HEAD &&
        test ! -f mirror/file &&
        FETCH="$(cd mirror && git config remote.origin.fetch)" &&
        test "+refs/*:refs/*" = "$FETCH" &&
        MIRROR="$(cd mirror && git config --bool remote.origin.mirror)" &&
        test "$MIRROR" = true

'

test_expect_success 'clone --mirror with detached HEAD' '

        ( cd src && git checkout HEAD^ && git rev-parse HEAD >../expected ) &&
        git clone --mirror src mirror.detached &&
        ( cd src && git checkout - ) &&
        GIT_DIR=mirror.detached git rev-parse HEAD >actual &&
        test_cmp expected actual

'

test_expect_success 'clone --bare with detached HEAD' '

        ( cd src && git checkout HEAD^ && git rev-parse HEAD >../expected ) &&
        git clone --bare src bare.detached &&
        ( cd src && git checkout - ) &&
        GIT_DIR=bare.detached git rev-parse HEAD >actual &&
        test_cmp expected actual

'

test_expect_success 'clone --bare names the local repository <name>.git' '

        git clone --bare src &&
        test -d src.git

'

test_expect_success 'clone --mirror does not repeat tags' '

        (cd src &&
         git tag some-tag HEAD) &&
        git clone --mirror src mirror2 &&
        (cd mirror2 &&
         git show-ref 2> clone.err > clone.out) &&
        ! grep Duplicate mirror2/clone.err &&
        grep some-tag mirror2/clone.out

'

test_expect_success 'clone to destination with trailing /' '

        git clone src target-1/ &&
        T=$( cd target-1 && git rev-parse HEAD ) &&
        S=$( cd src && git rev-parse HEAD ) &&
        test "$T" = "$S"

'

test_expect_success 'clone to destination with extra trailing /' '

        git clone src target-2/// &&
        T=$( cd target-2 && git rev-parse HEAD ) &&
        S=$( cd src && git rev-parse HEAD ) &&
        test "$T" = "$S"

'

test_expect_success 'clone to an existing empty directory' '
        mkdir target-3 &&
        git clone src target-3 &&
        T=$( cd target-3 && git rev-parse HEAD ) &&
        S=$( cd src && git rev-parse HEAD ) &&
        test "$T" = "$S"
'

test_expect_success 'clone to an existing non-empty directory' '
        mkdir target-4 &&
        >target-4/Fakefile &&
        test_must_fail git clone src target-4
'

test_expect_success 'clone to an existing path' '
        >target-5 &&
        test_must_fail git clone src target-5
'

test_expect_success 'clone a void' '
        mkdir src-0 &&
        (
                cd src-0 && git init
        ) &&
        git clone "file://$(pwd)/src-0" target-6 2>err-6 &&
        ! grep "fatal:" err-6 &&
        (
                cd src-0 && test_commit A
        ) &&
        git clone "file://$(pwd)/src-0" target-7 2>err-7 &&
        ! grep "fatal:" err-7 &&
        # There is no reason to insist they are bit-for-bit
        # identical, but this test should suffice for now.
        test_cmp target-6/.git/config target-7/.git/config
'

test_expect_success 'clone respects global branch.autosetuprebase' '
        (
                test_config="$HOME/.gitconfig" &&
                git config -f "$test_config" branch.autosetuprebase remote &&
                rm -fr dst &&
                git clone src dst &&
                cd dst &&
                actual="z$(git config branch.master.rebase)" &&
                test ztrue = $actual
        )
'

test_expect_success 'respect url-encoding of file://' '
        git init x+y &&
        git clone "file://$PWD/x+y" xy-url-1 &&
        git clone "file://$PWD/x%2By" xy-url-2
'

test_expect_success 'do not query-string-decode + in URLs' '
        rm -rf x+y &&
        git init "x y" &&
        test_must_fail git clone "file://$PWD/x+y" xy-no-plus
'

test_expect_success 'do not respect url-encoding of non-url path' '
        git init x+y &&
        test_must_fail git clone x%2By xy-regular &&
        git clone x+y xy-regular
'

test_expect_success 'clone separate gitdir' '
        rm -rf dst &&
        git clone --separate-git-dir realgitdir src dst &&
        test -d realgitdir/refs
'

test_expect_success 'clone separate gitdir: output' '
        echo "gitdir: $(pwd)/realgitdir" >expected &&
        test_cmp expected dst/.git
'

test_expect_success 'clone from .git file' '
        git clone dst/.git dst2
'

test_expect_success 'fetch from .git gitfile' '
        (
                cd dst2 &&
                git fetch ../dst/.git
        )
'

test_expect_success 'fetch from gitfile parent' '
        (
                cd dst2 &&
                git fetch ../dst
        )
'

test_expect_success 'clone separate gitdir where target already exists' '
        rm -rf dst &&
        test_must_fail git clone --separate-git-dir realgitdir src dst
'

test_expect_success 'clone --reference from original' '
        git clone --shared --bare src src-1 &&
        git clone --bare src src-2 &&
        git clone --reference=src-2 --bare src-1 target-8 &&
        grep /src-2/ target-8/objects/info/alternates
'

test_expect_success 'clone with more than one --reference' '
        git clone --bare src src-3 &&
        git clone --bare src src-4 &&
        git clone --reference=src-3 --reference=src-4 src target-9 &&
        grep /src-3/ target-9/.git/objects/info/alternates &&
        grep /src-4/ target-9/.git/objects/info/alternates
'

test_expect_success 'clone from original with relative alternate' '
        mkdir nest &&
        git clone --bare src nest/src-5 &&
        echo ../../../src/.git/objects >nest/src-5/objects/info/alternates &&
        git clone --bare nest/src-5 target-10 &&
        grep /src/\\.git/objects target-10/objects/info/alternates
'

test_expect_success 'clone checking out a tag' '
        git clone --branch=some-tag src dst.tag &&
        GIT_DIR=src/.git git rev-parse some-tag >expected &&
        test_cmp expected dst.tag/.git/HEAD &&
        GIT_DIR=dst.tag/.git git config remote.origin.fetch >fetch.actual &&
        echo "+refs/heads/*:refs/remotes/origin/*" >fetch.expected &&
        test_cmp fetch.expected fetch.actual
'

test_expect_success 'set up ssh wrapper' '
        cp "$GIT_BUILD_DIR/t/helper/test-fake-ssh$X" \
                "$TRASH_DIRECTORY/ssh$X" &&
        GIT_SSH="$TRASH_DIRECTORY/ssh$X" &&
        export GIT_SSH &&
        export TRASH_DIRECTORY &&
        >"$TRASH_DIRECTORY"/ssh-output
'

copy_ssh_wrapper_as () {
        rm -f "${1%$X}$X" &&
        cp "$TRASH_DIRECTORY/ssh$X" "${1%$X}$X" &&
        test_when_finished "rm $(git rev-parse --sq-quote "${1%$X}$X")" &&
        GIT_SSH="${1%$X}$X" &&
        test_when_finished "GIT_SSH=\"\$TRASH_DIRECTORY/ssh\$X\""
}

expect_ssh () {
        test_when_finished '
                (cd "$TRASH_DIRECTORY" && rm -f ssh-expect && >ssh-output)
        ' &&
        {
                case "$#" in
                1)
                        ;;
                2)
                        echo "ssh: $1 git-upload-pack '$2'"
                        ;;
                3)
                        echo "ssh: $1 $2 git-upload-pack '$3'"
                        ;;
                *)
                        echo "ssh: $1 $2 git-upload-pack '$3' $4"
                esac
        } >"$TRASH_DIRECTORY/ssh-expect" &&
        (cd "$TRASH_DIRECTORY" && test_cmp ssh-expect ssh-output)
}

test_expect_success 'clone myhost:src uses ssh' '
        git clone myhost:src ssh-clone &&
        expect_ssh myhost src
'

test_expect_success !MINGW,!CYGWIN 'clone local path foo:bar' '
        cp -R src "foo:bar" &&
        git clone "foo:bar" foobar &&
        expect_ssh none
'

test_expect_success 'bracketed hostnames are still ssh' '
        git clone "[myhost:123]:src" ssh-bracket-clone &&
        expect_ssh "-p 123" myhost src
'

test_expect_success 'OpenSSH variant passes -4' '
        git clone -4 "[myhost:123]:src" ssh-ipv4-clone &&
        expect_ssh "-4 -p 123" myhost src
'

test_expect_success 'variant can be overridden' '
        copy_ssh_wrapper_as "$TRASH_DIRECTORY/putty" &&
        git -c ssh.variant=putty clone -4 "[myhost:123]:src" ssh-putty-clone &&
        expect_ssh "-4 -P 123" myhost src
'

test_expect_success 'variant=auto picks based on basename' '
        copy_ssh_wrapper_as "$TRASH_DIRECTORY/plink" &&
        git -c ssh.variant=auto clone -4 "[myhost:123]:src" ssh-auto-clone &&
        expect_ssh "-4 -P 123" myhost src
'

test_expect_success 'simple does not support -4/-6' '
        copy_ssh_wrapper_as "$TRASH_DIRECTORY/simple" &&
        test_must_fail git clone -4 "myhost:src" ssh-4-clone-simple
'

test_expect_success 'simple does not support port' '
        copy_ssh_wrapper_as "$TRASH_DIRECTORY/simple" &&
        test_must_fail git clone "[myhost:123]:src" ssh-bracket-clone-simple
'

test_expect_success 'uplink is treated as simple' '
        copy_ssh_wrapper_as "$TRASH_DIRECTORY/uplink" &&
        test_must_fail git clone "[myhost:123]:src" ssh-bracket-clone-uplink &&
        git clone "myhost:src" ssh-clone-uplink &&
        expect_ssh myhost src
'

test_expect_success 'OpenSSH-like uplink is treated as ssh' '
        write_script "$TRASH_DIRECTORY/uplink" <<-EOF &&
        if test "\$1" = "-G"
        then
                exit 0
        fi &&
        exec "\$TRASH_DIRECTORY/ssh$X" "\$@"
        EOF
        test_when_finished "rm -f \"\$TRASH_DIRECTORY/uplink\"" &&
        GIT_SSH="$TRASH_DIRECTORY/uplink" &&
        test_when_finished "GIT_SSH=\"\$TRASH_DIRECTORY/ssh\$X\"" &&
        git clone "[myhost:123]:src" ssh-bracket-clone-sshlike-uplink &&
        expect_ssh "-p 123" myhost src
'

test_expect_success 'plink is treated specially (as putty)' '
        copy_ssh_wrapper_as "$TRASH_DIRECTORY/plink" &&
        git clone "[myhost:123]:src" ssh-bracket-clone-plink-0 &&
        expect_ssh "-P 123" myhost src
'

test_expect_success 'plink.exe is treated specially (as putty)' '
        copy_ssh_wrapper_as "$TRASH_DIRECTORY/plink.exe" &&
        git clone "[myhost:123]:src" ssh-bracket-clone-plink-1 &&
        expect_ssh "-P 123" myhost src
'

test_expect_success 'tortoiseplink is like putty, with extra arguments' '
        copy_ssh_wrapper_as "$TRASH_DIRECTORY/tortoiseplink" &&
        git clone "[myhost:123]:src" ssh-bracket-clone-plink-2 &&
        expect_ssh "-batch -P 123" myhost src
'

test_expect_success 'double quoted plink.exe in GIT_SSH_COMMAND' '
        copy_ssh_wrapper_as "$TRASH_DIRECTORY/plink.exe" &&
        GIT_SSH_COMMAND="\"$TRASH_DIRECTORY/plink.exe\" -v" \
                git clone "[myhost:123]:src" ssh-bracket-clone-plink-3 &&
        expect_ssh "-v -P 123" myhost src
'

SQ="'"
test_expect_success 'single quoted plink.exe in GIT_SSH_COMMAND' '
        copy_ssh_wrapper_as "$TRASH_DIRECTORY/plink.exe" &&
        GIT_SSH_COMMAND="$SQ$TRASH_DIRECTORY/plink.exe$SQ -v" \
                git clone "[myhost:123]:src" ssh-bracket-clone-plink-4 &&
        expect_ssh "-v -P 123" myhost src
'

test_expect_success 'GIT_SSH_VARIANT overrides plink detection' '
        copy_ssh_wrapper_as "$TRASH_DIRECTORY/plink" &&
        GIT_SSH_VARIANT=ssh \
        git clone "[myhost:123]:src" ssh-bracket-clone-variant-1 &&
        expect_ssh "-p 123" myhost src
'

test_expect_success 'ssh.variant overrides plink detection' '
        copy_ssh_wrapper_as "$TRASH_DIRECTORY/plink" &&
        git -c ssh.variant=ssh \
                clone "[myhost:123]:src" ssh-bracket-clone-variant-2 &&
        expect_ssh "-p 123" myhost src
'

test_expect_success 'GIT_SSH_VARIANT overrides plink detection to plink' '
        copy_ssh_wrapper_as "$TRASH_DIRECTORY/plink" &&
        GIT_SSH_VARIANT=plink \
        git clone "[myhost:123]:src" ssh-bracket-clone-variant-3 &&
        expect_ssh "-P 123" myhost src
'

test_expect_success 'GIT_SSH_VARIANT overrides plink to tortoiseplink' '
        copy_ssh_wrapper_as "$TRASH_DIRECTORY/plink" &&
        GIT_SSH_VARIANT=tortoiseplink \
        git clone "[myhost:123]:src" ssh-bracket-clone-variant-4 &&
        expect_ssh "-batch -P 123" myhost src
'

test_expect_success 'clean failure on broken quoting' '
        test_must_fail \
                env GIT_SSH_COMMAND="${SQ}plink.exe -v" \
                git clone "[myhost:123]:src" sq-failure
'

counter=0
# $1 url
# $2 none|host
# $3 path
test_clone_url () {
        counter=$(($counter + 1))
        test_might_fail git clone "$1" tmp$counter &&
        shift &&
        expect_ssh "$@"
}

test_expect_success !MINGW 'clone c:temp is ssl' '
        test_clone_url c:temp c temp
'

test_expect_success MINGW 'clone c:temp is dos drive' '
        test_clone_url c:temp none
'

#ip v4
for repo in rep rep/home/project 123
do
        test_expect_success "clone host:$repo" '
                test_clone_url host:$repo host $repo
        '
done

#ipv6
for repo in rep rep/home/project 123
do
        test_expect_success "clone [::1]:$repo" '
                test_clone_url [::1]:$repo ::1 "$repo"
        '
done
#home directory
test_expect_success "clone host:/~repo" '
        test_clone_url host:/~repo host "~repo"
'

test_expect_success "clone [::1]:/~repo" '
        test_clone_url [::1]:/~repo ::1 "~repo"
'

# Corner cases
for url in foo/bar:baz [foo]bar/baz:qux [foo/bar]:baz
do
        test_expect_success "clone $url is not ssh" '
                test_clone_url $url none
        '
done

#with ssh:// scheme
#ignore trailing colon
for tcol in "" :
do
        test_expect_success "clone ssh://host.xz$tcol/home/user/repo" '
                test_clone_url "ssh://host.xz$tcol/home/user/repo" host.xz /home/user/repo
        '
        # from home directory
        test_expect_success "clone ssh://host.xz$tcol/~repo" '
        test_clone_url "ssh://host.xz$tcol/~repo" host.xz "~repo"
'
done

# with port number
test_expect_success 'clone ssh://host.xz:22/home/user/repo' '
        test_clone_url "ssh://host.xz:22/home/user/repo" "-p 22 host.xz" "/home/user/repo"
'

# from home directory with port number
test_expect_success 'clone ssh://host.xz:22/~repo' '
        test_clone_url "ssh://host.xz:22/~repo" "-p 22 host.xz" "~repo"
'

#IPv6
for tuah in ::1 [::1] [::1]: user@::1 user@[::1] user@[::1]: [user@::1] [user@::1]:
do
        ehost=$(echo $tuah | sed -e "s/1]:/1]/" | tr -d "[]")
        test_expect_success "clone ssh://$tuah/home/user/repo" "
          test_clone_url ssh://$tuah/home/user/repo $ehost /home/user/repo
        "
done

#IPv6 from home directory
for tuah in ::1 [::1] user@::1 user@[::1] [user@::1]
do
        euah=$(echo $tuah | tr -d "[]")
        test_expect_success "clone ssh://$tuah/~repo" "
          test_clone_url ssh://$tuah/~repo $euah '~repo'
        "
done

#IPv6 with port number
for tuah in [::1] user@[::1] [user@::1]
do
        euah=$(echo $tuah | tr -d "[]")
        test_expect_success "clone ssh://$tuah:22/home/user/repo" "
          test_clone_url ssh://$tuah:22/home/user/repo '-p 22' $euah /home/user/repo
        "
done

#IPv6 from home directory with port number
for tuah in [::1] user@[::1] [user@::1]
do
        euah=$(echo $tuah | tr -d "[]")
        test_expect_success "clone ssh://$tuah:22/~repo" "
          test_clone_url ssh://$tuah:22/~repo '-p 22' $euah '~repo'
        "
done

test_expect_success 'clone from a repository with two identical branches' '

        (
                cd src &&
                git checkout -b another master
        ) &&
        git clone src target-11 &&
        test "z$( cd target-11 && git symbolic-ref HEAD )" = zrefs/heads/another

'

test_expect_success 'shallow clone locally' '
        git clone --depth=1 --no-local src ssrrcc &&
        git clone ssrrcc ddsstt &&
        test_cmp ssrrcc/.git/shallow ddsstt/.git/shallow &&
        ( cd ddsstt && git fsck )
'

test_expect_success 'GIT_TRACE_PACKFILE produces a usable pack' '
        rm -rf dst.git &&
        GIT_TRACE_PACKFILE=$PWD/tmp.pack git clone --no-local --bare src dst.git &&
        git init --bare replay.git &&
        git -C replay.git index-pack -v --stdin <tmp.pack
'

hex2oct () {
        perl -ne 'printf "\\%03o", hex for /../g'
}

test_expect_success 'clone on case-insensitive fs' '
        git init icasefs &&
        (
                cd icasefs
                o=$(git hash-object -w --stdin </dev/null | hex2oct) &&
                t=$(printf "100644 X\0${o}100644 x\0${o}" |
                        git hash-object -w -t tree --stdin) &&
                c=$(git commit-tree -m bogus $t) &&
                git update-ref refs/heads/bogus $c &&
                git clone -b bogus . bogus 2>warning
        )
'

test_expect_success !MINGW,!CYGWIN,CASE_INSENSITIVE_FS 'colliding file detection' '
        grep X icasefs/warning &&
        grep x icasefs/warning &&
        test_i18ngrep "the following paths have collided" icasefs/warning
'

partial_clone () {
               SERVER="$1" &&
               URL="$2" &&

        rm -rf "$SERVER" client &&
        test_create_repo "$SERVER" &&
        test_commit -C "$SERVER" one &&
        HASH1=$(git hash-object "$SERVER/one.t") &&
        git -C "$SERVER" revert HEAD &&
        test_commit -C "$SERVER" two &&
        HASH2=$(git hash-object "$SERVER/two.t") &&
        test_config -C "$SERVER" uploadpack.allowfilter 1 &&
        test_config -C "$SERVER" uploadpack.allowanysha1inwant 1 &&

        git clone --filter=blob:limit=0 "$URL" client &&

        git -C client fsck &&

        # Ensure that unneeded blobs are not inadvertently fetched.
        test_config -C client extensions.partialclone "not a remote" &&
        test_must_fail git -C client cat-file -e "$HASH1" &&

        # But this blob was fetched, because clone performs an initial checkout
        git -C client cat-file -e "$HASH2"
}

test_expect_success 'partial clone' '
        partial_clone server "file://$(pwd)/server"
'

test_expect_success 'partial clone: warn if server does not support object filtering' '
        rm -rf server client &&
        test_create_repo server &&
        test_commit -C server one &&

        git clone --filter=blob:limit=0 "file://$(pwd)/server" client 2> err &&

        test_i18ngrep "filtering not recognized by server" err
'

test_expect_success 'batch missing blob request during checkout' '
        rm -rf server client &&

        test_create_repo server &&
        echo a >server/a &&
        echo b >server/b &&
        git -C server add a b &&

        git -C server commit -m x &&
        echo aa >server/a &&
        echo bb >server/b &&
        git -C server add a b &&
        git -C server commit -m x &&

        test_config -C server uploadpack.allowfilter 1 &&
        test_config -C server uploadpack.allowanysha1inwant 1 &&

        git clone --filter=blob:limit=0 "file://$(pwd)/server" client &&

        # Ensure that there is only one negotiation by checking that there is
        # only "done" line sent. ("done" marks the end of negotiation.)
        GIT_TRACE_PACKET="$(pwd)/trace" git -C client checkout HEAD^ &&
        grep "git> done" trace >done_lines &&
        test_line_count = 1 done_lines
'

test_expect_success 'batch missing blob request does not inadvertently try to fetch gitlinks' '
        rm -rf server client &&

        test_create_repo repo_for_submodule &&
        test_commit -C repo_for_submodule x &&

        test_create_repo server &&
        echo a >server/a &&
        echo b >server/b &&
        git -C server add a b &&
        git -C server commit -m x &&

        echo aa >server/a &&
        echo bb >server/b &&
        # Also add a gitlink pointing to an arbitrary repository
        git -C server submodule add "$(pwd)/repo_for_submodule" c &&
        git -C server add a b c &&
        git -C server commit -m x &&

        test_config -C server uploadpack.allowfilter 1 &&
        test_config -C server uploadpack.allowanysha1inwant 1 &&

        # Make sure that it succeeds
        git clone --filter=blob:limit=0 "file://$(pwd)/server" client
'

. "$TEST_DIRECTORY"/lib-httpd.sh
start_httpd

test_expect_success 'partial clone using HTTP' '
        partial_clone "$HTTPD_DOCUMENT_ROOT_PATH/server" "$HTTPD_URL/smart/server"
'

stop_httpd

test_done