#!/bin/sh

# No local source

hg clone a b

echo $?

# No remote source

hg clone http://127.0.0.1:3121/a b

echo $?

rm -rf b # work around bug with http clone

# Inaccessible source

mkdir a

chmod 000 a

hg clone a b

echo $?

# Inaccessible destination

mkdir b

cd b

hg init

hg clone . ../a

echo $?

cd ..

chmod 700 a

rm -r a b

# Source of wrong type

if "$TESTDIR/hghave" -q fifo; then

    mkfifo a

    hg clone a b

    echo $?

    rm a

else

    echo "abort: repository a not found!"

    echo 255

fi

# Default destination, same directory

mkdir q

cd q

hg init

cd ..

hg clone q

# destination directory not empty

mkdir a 

echo stuff > a/a

hg clone q a

echo $?

# leave existing directory in place after clone failure

hg init c

cd c

echo c > c

hg commit -A -m test

chmod -rx .hg/store/data

cd ..

mkdir d

hg clone c d 2> err

echo $?

test -d d && echo "dir is still here" || echo "dir is gone"

test -d d/.hg && echo "repo is still here" || echo "repo is gone"

# reenable perm to allow deletion

chmod +rx c/.hg/store/data

true