git-commit-vandalism/t/lib-patch-mode.sh
Jeff King 933766c1a9 tests: disable interactive hunk selection tests if perl is not available
These are all backed by git-add--interactive.perl under the hood.

Signed-off-by: Jeff King <peff@peff.net>
Acked-By: Thomas Rast <trast@student.ethz.ch>
Signed-off-by: Junio C Hamano <gitster@pobox.com>
2009-08-18 12:28:42 -07:00

42 lines
720 B
Bash
Executable File

. ./test-lib.sh
if ! test_have_prereq PERL; then
say 'skipping --patch tests, perl not available'
test_done
fi
set_state () {
echo "$3" > "$1" &&
git add "$1" &&
echo "$2" > "$1"
}
save_state () {
noslash="$(echo "$1" | tr / _)" &&
cat "$1" > _worktree_"$noslash" &&
git show :"$1" > _index_"$noslash"
}
set_and_save_state () {
set_state "$@" &&
save_state "$1"
}
verify_state () {
test "$(cat "$1")" = "$2" &&
test "$(git show :"$1")" = "$3"
}
verify_saved_state () {
noslash="$(echo "$1" | tr / _)" &&
verify_state "$1" "$(cat _worktree_"$noslash")" "$(cat _index_"$noslash")"
}
save_head () {
git rev-parse HEAD > _head
}
verify_saved_head () {
test "$(cat _head)" = "$(git rev-parse HEAD)"
}