1 : included from t2016 and others
5 if ! test_have_prereq PERL; then
6 say 'skipping --patch tests, perl not available'
17 noslash="$(echo "$1" | tr / _)" &&
18 cat "$1" > _worktree_"$noslash" &&
19 git show :"$1" > _index_"$noslash"
22 set_and_save_state () {
28 test "$(cat "$1")" = "$2" &&
29 test "$(git show :"$1")" = "$3"
32 verify_saved_state () {
33 noslash="$(echo "$1" | tr / _)" &&
34 verify_state "$1" "$(cat _worktree_"$noslash")" "$(cat _index_"$noslash")"
38 git rev-parse HEAD > _head
41 verify_saved_head () {
42 test "$(cat _head)" = "$(git rev-parse HEAD)"