(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "test custom script in place of pack-objects">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./test-lib.sh]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "create some history to fetch">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_commit one &&\n"> <LIT_CHARS "\ttest_commit two\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "create debugging hook script">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\twrite_script .git/hook <<-\\EOF\n"> <LIT_CHARS "\t\techo >&2 \"hook running\"\n"> <LIT_CHARS "\t\techo \"$*\" >hook.args\n"> <LIT_CHARS "\t\tcat >hook.stdin\n"> <LIT_CHARS "\t\t\"$@\" <hook.stdin >hook.stdout\n"> <LIT_CHARS "\t\tcat hook.stdout\n"> <LIT_CHARS "\tEOF\n">]})
  (FunctionDef clear_hook_results []
    (Com {[LIT_CHARS rm]} {[LIT_CHARS -rf]} {[LIT_CHARS .git/hook.] [LIT_OTHER "*"]} {[LIT_CHARS dst.git]})
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "hook runs via global config">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tclear_hook_results &&\n"> <LIT_CHARS "\ttest_config_global uploadpack.packObjectsHook ./hook &&\n"> <LIT_CHARS "\tgit clone --no-local . dst.git 2>stderr &&\n"> <LIT_CHARS "\tgrep \"hook running\" stderr\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "hook outputs are sane">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t# check that we recorded a usable pack\n"> <LIT_CHARS "\tgit index-pack --stdin <.git/hook.stdout &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t# check that we recorded args and stdin. We do not check\n"> <LIT_CHARS "\t# the full argument list or the exact pack contents, as it would make\n"> <LIT_CHARS "\t# the test brittle. So just sanity check that we could replay\n"> <LIT_CHARS "\t# the packing procedure.\n"> <LIT_CHARS "\tgrep \"^git\" .git/hook.args &&\n"> <LIT_CHARS "\t$(cat .git/hook.args) <.git/hook.stdin >replay\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "hook runs from -c config">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tclear_hook_results &&\n"> <LIT_CHARS "\tgit clone --no-local \\\n"> <LIT_CHARS "\t  -u \"git -c uploadpack.packObjectsHook=./hook upload-pack\" \\\n"> <LIT_CHARS "\t  . dst.git 2>stderr &&\n"> <LIT_CHARS "\tgrep \"hook running\" stderr\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "hook does not run from repo config">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tclear_hook_results &&\n"> <LIT_CHARS "\ttest_config uploadpack.packObjectsHook \"./hook\" &&\n"> <LIT_CHARS "\tgit clone --no-local . dst.git 2>stderr &&\n"> <LIT_CHARS "\t! grep \"hook running\" stderr &&\n"> <LIT_CHARS "\ttest_path_is_missing .git/hook.args &&\n"> <LIT_CHARS "\ttest_path_is_missing .git/hook.stdin &&\n"> <LIT_CHARS "\ttest_path_is_missing .git/hook.stdout\n">]})
  (Com {[LIT_CHARS test_done]})
)