#!/bin/bash
# desktop-assistant tool check: clone.sh against a scratch tree and a stub git.
# Copyright (C) 2026 Danilo M. <danix@danix.xyz>
#
# This program is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License version 2 as published
# by the Free Software Foundation.
#
# This program is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General
# Public License for more details.
#
# You should have received a copy of the GNU General Public License along
# with this program; if not, write to the Free Software Foundation, Inc.,
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
#
# test-clone.sh: CLONE_ROOT and CLONE_MAP point at a throwaway dir, and git is
# a stub that records its argv and creates the clone target, so nothing hits
# the network or the real tree. Prints "ok" or one FAIL line per broken case.

set -u
here=$(dirname "$0")
tmp=$(mktemp -d)
trap 'rm -rf "$tmp"' EXIT
export CLONE_ROOT=$tmp/git
export CLONE_MAP=$tmp/clone-hosts
export GIT_LOG=$tmp/git.log
: > "$GIT_LOG"
mkdir -p "$tmp/bin"

cat > "$tmp/bin/git" <<'EOF'
#!/bin/bash
printf '%s\n' "$*" >> "$GIT_LOG"
printf 'prompt=%s askpass=%s\n' "${GIT_TERMINAL_PROMPT-}" "${SSH_ASKPASS-unset}" >> "$GIT_LOG"
[ "$1" = clone ] && mkdir -p "${@: -1}"
exit 0
EOF
chmod +x "$tmp/bin/git"
PATH=$tmp/bin:$PATH
export PATH

fail=0
check() { [ "$2" = "$3" ] || { echo "FAIL $1: got '$2', want '$3'"; fail=1; }; }
contains() { case "$2" in *"$3"*) ;; *) echo "FAIL $1: '$2' lacks '$3'"; fail=1 ;; esac; }
count() { grep -cF -- "$1" "$GIT_LOG" || true; }
mapcount() { grep -cF -- "$1" "$CLONE_MAP" || true; }

# Known host, clean copy: seeded map, straight clone, no question. Owner and
# repo both go in the target folder name.
out=$("$here/clone.sh" https://github.com/a/b.git)
check "github clone" "$out" "cloned https://github.com/a/b.git into $CLONE_ROOT/GITHUB/a-b"
check "seed" "$(cat "$CLONE_MAP")" \
    "$(printf '%s\t%s\n' github.com GITHUB gitlab.com GITLAB forge.slackware.nl FORGE)"
check "no prompts" "$(count 'prompt=0 askpass=unset')" "1"
check "clone argv" "$(count "clone -- https://github.com/a/b.git $CLONE_ROOT/GITHUB/a-b")" "1"

# Host case does not matter.
out=$("$here/clone.sh" https://GitHub.com/a/up)
check "host case" "$out" "cloned https://GitHub.com/a/up into $CLONE_ROOT/GITHUB/a-up"

# Trailing slash and .git are not part of the repo name.
out=$("$here/clone.sh" https://gitlab.com/a/c.git/)
check "gitlab repo" "$out" "cloned https://gitlab.com/a/c.git into $CLONE_ROOT/GITLAB/a-c"

# A self-named repo is not doubled (firefly-iii/firefly-iii -> firefly-iii).
out=$("$here/clone.sh" https://github.com/firefly-iii/firefly-iii.git)
check "self-named" "$out" \
    "cloned https://github.com/firefly-iii/firefly-iii.git into $CLONE_ROOT/GITHUB/firefly-iii"

# No owner in the URL: the plain repo name.
out=$("$here/clone.sh" git@github.com:solo.git)
check "no owner" "$out" "cloned git@github.com:solo.git into $CLONE_ROOT/GITHUB/solo"

# A nested group keeps only its last segment as the owner.
out=$("$here/clone.sh" https://gitlab.com/group/sub/thing.git)
check "subgroup" "$out" \
    "cloned https://gitlab.com/group/sub/thing.git into $CLONE_ROOT/GITLAB/sub-thing"

# Unknown host: ask, do nothing, name the folder to offer.
out=$("$here/clone.sh" https://codeberg.org/a/d)
contains "unknown asks" "$out" "no folder for host codeberg.org"
contains "unknown label" "$out" "to=CODEBERG"
check "unknown no clone" "$(count "$CLONE_ROOT/CODEBERG/a-d")" "0"

# Approved folder: clone there and remember it.
out=$("$here/clone.sh" https://codeberg.org/a/d CODEBERG)
check "approved clone" "$out" "cloned https://codeberg.org/a/d into $CLONE_ROOT/CODEBERG/a-d"
check "remembered" "$(mapcount 'codeberg.org')" "1"
check "remembered pair" "$(grep -F 'codeberg.org' "$CLONE_MAP")" \
    "$(printf 'codeberg.org\tCODEBERG')"

# Next clone of that host asks nothing.
out=$("$here/clone.sh" https://codeberg.org/a/e)
check "remembered clone" "$out" "cloned https://codeberg.org/a/e into $CLONE_ROOT/CODEBERG/a-e"

# Re-approving the same folder does not duplicate the map line.
"$here/clone.sh" https://codeberg.org/a/f CODEBERG >/dev/null
check "no duplicate map line" "$(mapcount 'codeberg.org')" "1"

# Already cloned: ask, do not clone again; update pulls.
out=$("$here/clone.sh" https://github.com/a/b.git)
contains "already asks" "$out" "already cloned at $CLONE_ROOT/GITHUB/a-b"
check "already no reclone" "$(count "clone -- https://github.com/a/b.git")" "1"
out=$("$here/clone.sh" https://github.com/a/b.git "" 0)
contains "update=0 asks" "$out" "already cloned"
out=$("$here/clone.sh" https://github.com/a/b.git "" 1)
contains "update says" "$out" "updated $CLONE_ROOT/GITHUB/a-b"
check "update argv" "$(count "-C $CLONE_ROOT/GITHUB/a-b pull --ff-only")" "1"

# Bad input is refused before anything is created.
"$here/clone.sh" "" >/dev/null 2>&1; check "empty url" "$?" "1"
"$here/clone.sh" not-a-url >/dev/null 2>&1; check "not a url" "$?" "1"
"$here/clone.sh" https://github.com/a/.. >/dev/null 2>&1; check "bad repo" "$?" "1"
"$here/clone.sh" https://codeberg.org/a/z ../escape >/dev/null 2>&1; check "bad to" "$?" "1"

[ $fail = 0 ] && echo "ok"
exit $fail