#!/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