(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "Test automatic use of a pager.">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./test-lib.sh]}  )
  (Com {[LIT_CHARS .]} {[DQ [VarSub TEST_DIRECTORY]] [LIT_CHARS /lib-pager.sh]}  )
  (Com {[LIT_CHARS .]} {[DQ [VarSub TEST_DIRECTORY]] [LIT_CHARS /lib-terminal.sh]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS setup>]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tsane_unset GIT_PAGER GIT_PAGER_IN_USE &&\n"> <LIT_CHARS "\ttest_unconfig core.pager &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tPAGER=\"cat >paginated.out\" &&\n"> <LIT_CHARS "\texport PAGER &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\ttest_commit initial\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS TTY]} {[SQ <LIT_CHARS "some commands use a pager">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\trm -f paginated.out &&\n"> <LIT_CHARS "\ttest_terminal git log &&\n"> <LIT_CHARS "\ttest -e paginated.out\n">]}  )
  (Com {[LIT_CHARS test_expect_failure]} {[LIT_CHARS TTY]} {[SQ <LIT_CHARS "pager runs from subdir">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo subdir/paginated.out >expected &&\n"> <LIT_CHARS "\tmkdir -p subdir &&\n"> <LIT_CHARS "\trm -f paginated.out subdir/paginated.out &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd subdir &&\n"> <LIT_CHARS "\t\ttest_terminal git log\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\t{\n"> <LIT_CHARS "\t\tls paginated.out subdir/paginated.out ||\n"> <LIT_CHARS "\t\t:\n"> <LIT_CHARS "\t} >actual &&\n"> <LIT_CHARS "\ttest_cmp expected actual\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS TTY]} {[SQ <LIT_CHARS "some commands do not use a pager">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\trm -f paginated.out &&\n"> <LIT_CHARS "\ttest_terminal git rev-list HEAD &&\n"> <LIT_CHARS "\t! test -e paginated.out\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "no pager when stdout is a pipe">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\trm -f paginated.out &&\n"> <LIT_CHARS "\tgit log | cat &&\n"> <LIT_CHARS "\t! test -e paginated.out\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "no pager when stdout is a regular file">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\trm -f paginated.out &&\n"> <LIT_CHARS "\tgit log >file &&\n"> <LIT_CHARS "\t! test -e paginated.out\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS TTY]} {[SQ <LIT_CHARS "git --paginate rev-list uses a pager">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\trm -f paginated.out &&\n"> <LIT_CHARS "\ttest_terminal git --paginate rev-list HEAD &&\n"> <LIT_CHARS "\ttest -e paginated.out\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "no pager even with --paginate when stdout is a pipe">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\trm -f file paginated.out &&\n"> <LIT_CHARS "\tgit --paginate log | cat &&\n"> <LIT_CHARS "\t! test -e paginated.out\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS TTY]} {[SQ <LIT_CHARS "no pager with --no-pager">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\trm -f paginated.out &&\n"> <LIT_CHARS "\ttest_terminal git --no-pager log &&\n"> <LIT_CHARS "\t! test -e paginated.out\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS TTY]} {[SQ <LIT_CHARS "configuration can disable pager">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\trm -f paginated.out &&\n"> <LIT_CHARS "\ttest_unconfig pager.grep &&\n"> <LIT_CHARS "\ttest_terminal git grep initial &&\n"> <LIT_CHARS "\ttest -e paginated.out &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\trm -f paginated.out &&\n"> <LIT_CHARS "\ttest_config pager.grep false &&\n"> <LIT_CHARS "\ttest_terminal git grep initial &&\n"> <LIT_CHARS "\t! test -e paginated.out\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS TTY]} {[SQ <LIT_CHARS "git config uses a pager if configured to">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\trm -f paginated.out &&\n"> <LIT_CHARS "\ttest_config pager.config true &&\n"> <LIT_CHARS "\ttest_terminal git config --list &&\n"> <LIT_CHARS "\ttest -e paginated.out\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS TTY]} {[SQ <LIT_CHARS "configuration can enable pager (from subdir)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\trm -f paginated.out &&\n"> <LIT_CHARS "\tmkdir -p subdir &&\n"> <LIT_CHARS "\ttest_config pager.bundle true &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit bundle create test.bundle --all &&\n"> <LIT_CHARS "\trm -f paginated.out subdir/paginated.out &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd subdir &&\n"> <LIT_CHARS "\t\ttest_terminal git bundle unbundle ../test.bundle\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\t{\n"> <LIT_CHARS "\t\ttest -e paginated.out ||\n"> <LIT_CHARS "\t\ttest -e subdir/paginated.out\n"> <LIT_CHARS "\t}\n">]}  )
  (FunctionDef colorful []
    (List
      (Com {[LIT_CHARS read]} {[LIT_CHARS firstline]}
        <
        (FilenameRedirectNode filename={[VarSub 1]} <REDIR_LESS "<"> 0),
        >
      )
      (Pipeline!
        (Com {[LIT_CHARS expr]} {[DQ [VarSub firstline]]} {[LIT_OTHER ":"]} {[DQ [LIT_CHARS "[a-zA-Z]"]]}
          <
          (FilenameRedirectNode filename={[LIT_CHARS /dev/null]} <REDIR_GREAT ">"> 1),
          >
        )
      )
    )
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "tests can detect color">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\trm -f colorful.log colorless.log &&\n"> <LIT_CHARS "\tgit log --no-color >colorless.log &&\n"> <LIT_CHARS "\tgit log --color >colorful.log &&\n"> <LIT_CHARS "\t! colorful colorless.log &&\n"> <LIT_CHARS "\tcolorful colorful.log\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "no color when stdout is a regular file">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\trm -f colorless.log &&\n"> <LIT_CHARS "\ttest_config color.ui auto &&\n"> <LIT_CHARS "\tgit log >colorless.log &&\n"> <LIT_CHARS "\t! colorful colorless.log\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS TTY]} {[SQ <LIT_CHARS "color when writing to a pager">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\trm -f paginated.out &&\n"> <LIT_CHARS "\ttest_config color.ui auto &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tTERM=vt100 &&\n"> <LIT_CHARS "\t\texport TERM &&\n"> <LIT_CHARS "\t\ttest_terminal git log\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tcolorful paginated.out\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS TTY]} {[SQ <LIT_CHARS "colors are suppressed by color.pager">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\trm -f paginated.out &&\n"> <LIT_CHARS "\ttest_config color.ui auto &&\n"> <LIT_CHARS "\ttest_config color.pager false &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tTERM=vt100 &&\n"> <LIT_CHARS "\t\texport TERM &&\n"> <LIT_CHARS "\t\ttest_terminal git log\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\t! colorful paginated.out\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "color when writing to a file intended for a pager">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\trm -f colorful.log &&\n"> <LIT_CHARS "\ttest_config color.ui auto &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tTERM=vt100 &&\n"> <LIT_CHARS "\t\tGIT_PAGER_IN_USE=true &&\n"> <LIT_CHARS "\t\texport TERM GIT_PAGER_IN_USE &&\n"> <LIT_CHARS "\t\tgit log >colorful.log\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tcolorful colorful.log\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS TTY]} {[SQ <LIT_CHARS "colors are sent to pager for external commands">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_config alias.externallog \"!git log\" &&\n"> <LIT_CHARS "\ttest_config color.ui auto &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tTERM=vt100 &&\n"> <LIT_CHARS "\t\texport TERM &&\n"> <LIT_CHARS "\t\ttest_terminal git -p externallog\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tcolorful paginated.out\n">]}  )
  (FunctionDef parse_args []
    (List
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_expectation', {[DQ [LIT_CHARS test_][VarSub 1]]})])
      (Com {[LIT_CHARS shift]}      )
      (If
        (Com {[LIT_CHARS test]} {[DQ [VarSub 1]]} {[LIT_DBRACKET_LIKE "="]} {[LIT_CHARS test_must_fail]}        )
        (List
          (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('full_command', {[DQ [LIT_CHARS "test_must_fail test_terminal "]]})])
          (Com {[LIT_CHARS shift]}          )
        )
        (ElseTrue)
        (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('full_command', {[DQ [LIT_CHARS "test_terminal "]]})])
      )
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('cmd', {[VarSub 1]})])
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('full_command', {[DQ [VarSub full_command][LIT_CHARS " "][VarSub 1]]})])
    )
  )
  (FunctionDef test_default_pager []
    (List
      (Com {[LIT_CHARS parse_args]} {[DQ [VarSub @]]}      )
      (Com {[VarSub test_expectation]} {[LIT_CHARS SIMPLEPAGER] [LIT_COMMA ","] [LIT_CHARS TTY]} {[DQ [VarSub cmd][LIT_CHARS " - default pager is used by default"]]} {[DQ [LIT_CHARS "\n"][LIT_CHARS "\t\tsane_unset PAGER GIT_PAGER &&\n"][LIT_CHARS "\t\ttest_unconfig core.pager &&\n"][LIT_CHARS "\t\trm -f default_pager_used &&\n"][LIT_CHARS "\t\tcat >"][\ LIT_ESCAPED_CHAR "\\$"][LIT_CHARS "less <<-"][\ LIT_ESCAPED_CHAR "\\E"][LIT_CHARS "OF &&\n"][LIT_CHARS "\t\t#!/bin/sh\n"][LIT_CHARS "\t\twc >default_pager_used\n"][LIT_CHARS "\t\tEOF\n"][LIT_CHARS "\t\tchmod +x "][\ LIT_ESCAPED_CHAR "\\$"][LIT_CHARS "less &&\n"][LIT_CHARS "\t\t(\n"][LIT_CHARS "\t\t\tPATH=.:"][\ LIT_ESCAPED_CHAR "\\$"][LIT_CHARS "PATH &&\n"][LIT_CHARS "\t\t\texport PATH &&\n"][LIT_CHARS "\t\t\t"][VarSub full_command][LIT_CHARS "\n"][LIT_CHARS "\t\t) &&\n"][LIT_CHARS "\t\ttest -e default_pager_used\n"][LIT_CHARS "\t"]]}      )
    )
  )
  (FunctionDef test_PAGER_overrides []
    (List
      (Com {[LIT_CHARS parse_args]} {[DQ [VarSub @]]}      )
      (Com {[VarSub test_expectation]} {[LIT_CHARS TTY]} {[DQ [VarSub cmd][LIT_CHARS " - PAGER overrides default pager"]]} {[DQ [LIT_CHARS "\n"][LIT_CHARS "\t\tsane_unset GIT_PAGER &&\n"][LIT_CHARS "\t\ttest_unconfig core.pager &&\n"][LIT_CHARS "\t\trm -f PAGER_used &&\n"][LIT_CHARS "\t\tPAGER='wc >PAGER_used' &&\n"][LIT_CHARS "\t\texport PAGER &&\n"][LIT_CHARS "\t\t"][VarSub full_command][LIT_CHARS " &&\n"][LIT_CHARS "\t\ttest -e PAGER_used\n"][LIT_CHARS "\t"]]}      )
    )
  )
  (FunctionDef test_core_pager_overrides []
    (List
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('if_local_config', {[SQ ]})])
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('used_if_wanted', {[SQ <LIT_CHARS "overrides PAGER">]})])
      (Com {[LIT_CHARS test_core_pager]} {[DQ [VarSub @]]}      )
    )
  )
  (FunctionDef test_local_config_ignored []
    (List
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('if_local_config', {[SQ <LIT_CHARS "! ">]})])
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('used_if_wanted', {[SQ <LIT_CHARS "is not used">]})])
      (Com {[LIT_CHARS test_core_pager]} {[DQ [VarSub @]]}      )
    )
  )
  (FunctionDef test_core_pager []
    (List
      (Com {[LIT_CHARS parse_args]} {[DQ [VarSub @]]}      )
      (Com {[VarSub test_expectation]} {[LIT_CHARS TTY]} {[DQ [VarSub cmd][LIT_CHARS " - repository-local core.pager setting "][VarSub used_if_wanted]]} {[DQ [LIT_CHARS "\n"][LIT_CHARS "\t\tsane_unset GIT_PAGER &&\n"][LIT_CHARS "\t\trm -f core.pager_used &&\n"][LIT_CHARS "\t\tPAGER=wc &&\n"][LIT_CHARS "\t\texport PAGER &&\n"][LIT_CHARS "\t\ttest_config core.pager 'wc >core.pager_used' &&\n"][LIT_CHARS "\t\t"][VarSub full_command][LIT_CHARS " &&\n"][LIT_CHARS "\t\t"][VarSub if_local_config][LIT_CHARS "test -e core.pager_used\n"][LIT_CHARS "\t"]]}      )
    )
  )
  (FunctionDef test_core_pager_subdir []
    (List
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('if_local_config', {[SQ ]})])
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('used_if_wanted', {[SQ <LIT_CHARS "overrides PAGER">]})])
      (Com {[LIT_CHARS test_pager_subdir_helper]} {[DQ [VarSub @]]}      )
    )
  )
  (FunctionDef test_no_local_config_subdir []
    (List
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('if_local_config', {[SQ <LIT_CHARS "! ">]})])
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('used_if_wanted', {[SQ <LIT_CHARS "is not used">]})])
      (Com {[LIT_CHARS test_pager_subdir_helper]} {[DQ [VarSub @]]}      )
    )
  )
  (FunctionDef test_pager_subdir_helper []
    (List
      (Com {[LIT_CHARS parse_args]} {[DQ [VarSub @]]}      )
      (Com {[VarSub test_expectation]} {[LIT_CHARS TTY]} {[DQ [VarSub cmd][LIT_CHARS " - core.pager "][VarSub used_if_wanted][LIT_CHARS " from subdirectory"]]} {[DQ [LIT_CHARS "\n"][LIT_CHARS "\t\tsane_unset GIT_PAGER &&\n"][LIT_CHARS "\t\trm -f core.pager_used &&\n"][LIT_CHARS "\t\trm -fr sub &&\n"][LIT_CHARS "\t\tPAGER=wc &&\n"][LIT_CHARS "\t\tstampname="][\ LIT_ESCAPED_CHAR "\\$"][LIT_CHARS "(pwd)/core.pager_used &&\n"][LIT_CHARS "\t\texport PAGER stampname &&\n"][LIT_CHARS "\t\ttest_config core.pager 'wc >"][\ LIT_ESCAPED_CHAR "\\\""][\ LIT_ESCAPED_CHAR "\\$"][LIT_CHARS stampname][\ LIT_ESCAPED_CHAR "\\\""][LIT_CHARS "' &&\n"][LIT_CHARS "\t\tmkdir sub &&\n"][LIT_CHARS "\t\t(\n"][LIT_CHARS "\t\t\tcd sub &&\n"][LIT_CHARS "\t\t\t"][VarSub full_command][LIT_CHARS "\n"][LIT_CHARS "\t\t) &&\n"][LIT_CHARS "\t\t"][VarSub if_local_config][LIT_CHARS "test -e core.pager_used\n"][LIT_CHARS "\t"]]}      )
    )
  )
  (FunctionDef test_GIT_PAGER_overrides []
    (List
      (Com {[LIT_CHARS parse_args]} {[DQ [VarSub @]]}      )
      (Com {[VarSub test_expectation]} {[LIT_CHARS TTY]} {[DQ [VarSub cmd][LIT_CHARS " - GIT_PAGER overrides core.pager"]]} {[DQ [LIT_CHARS "\n"][LIT_CHARS "\t\trm -f GIT_PAGER_used &&\n"][LIT_CHARS "\t\ttest_config core.pager wc &&\n"][LIT_CHARS "\t\tGIT_PAGER='wc >GIT_PAGER_used' &&\n"][LIT_CHARS "\t\texport GIT_PAGER &&\n"][LIT_CHARS "\t\t"][VarSub full_command][LIT_CHARS " &&\n"][LIT_CHARS "\t\ttest -e GIT_PAGER_used\n"][LIT_CHARS "\t"]]}      )
    )
  )
  (FunctionDef test_doesnt_paginate []
    (List
      (Com {[LIT_CHARS parse_args]} {[DQ [VarSub @]]}      )
      (Com {[VarSub test_expectation]} {[LIT_CHARS TTY]} {[DQ [LIT_CHARS "no pager for '"][VarSub cmd][LIT_CHARS "'"]]} {[DQ [LIT_CHARS "\n"][LIT_CHARS "\t\trm -f GIT_PAGER_used &&\n"][LIT_CHARS "\t\tGIT_PAGER='wc >GIT_PAGER_used' &&\n"][LIT_CHARS "\t\texport GIT_PAGER &&\n"][LIT_CHARS "\t\t"][VarSub full_command][LIT_CHARS " &&\n"][LIT_CHARS "\t\t! test -e GIT_PAGER_used\n"][LIT_CHARS "\t"]]}      )
    )
  )
  (FunctionDef test_pager_choices []
    (List
      (Com {[LIT_CHARS test_default_pager]} {[LIT_CHARS expect_success]} {[DQ [VarSub @]]}      )
      (Com {[LIT_CHARS test_PAGER_overrides]} {[LIT_CHARS expect_success]} {[DQ [VarSub @]]}      )
      (Com {[LIT_CHARS test_core_pager_overrides]} {[LIT_CHARS expect_success]} {[DQ [VarSub @]]}      )
      (Com {[LIT_CHARS test_core_pager_subdir]} {[LIT_CHARS expect_success]} {[DQ [VarSub @]]}      )
      (Com {[LIT_CHARS test_GIT_PAGER_overrides]} {[LIT_CHARS expect_success]} {[DQ [VarSub @]]}      )
    )
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "setup: some aliases">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit config alias.aliasedlog log &&\n"> <LIT_CHARS "\tgit config alias.true \"!true\"\n">]}  )
  (Com {[LIT_CHARS test_pager_choices]} {[SQ <LIT_CHARS "git log">]}  )
  (Com {[LIT_CHARS test_pager_choices]} {[SQ <LIT_CHARS "git -p log">]}  )
  (Com {[LIT_CHARS test_pager_choices]} {[SQ <LIT_CHARS "git aliasedlog">]}  )
  (Com {[LIT_CHARS test_default_pager]} {[LIT_CHARS expect_success]} {[SQ <LIT_CHARS "git -p aliasedlog">]}  )
  (Com {[LIT_CHARS test_PAGER_overrides]} {[LIT_CHARS expect_success]} {[SQ <LIT_CHARS "git -p aliasedlog">]}  )
  (Com {[LIT_CHARS test_core_pager_overrides]} {[LIT_CHARS expect_success]} {[SQ <LIT_CHARS "git -p aliasedlog">]}  )
  (Com {[LIT_CHARS test_core_pager_subdir]} {[LIT_CHARS expect_failure]} {[SQ <LIT_CHARS "git -p aliasedlog">]}  )
  (Com {[LIT_CHARS test_GIT_PAGER_overrides]} {[LIT_CHARS expect_success]} {[SQ <LIT_CHARS "git -p aliasedlog">]}  )
  (Com {[LIT_CHARS test_default_pager]} {[LIT_CHARS expect_success]} {[SQ <LIT_CHARS "git -p true">]}  )
  (Com {[LIT_CHARS test_PAGER_overrides]} {[LIT_CHARS expect_success]} {[SQ <LIT_CHARS "git -p true">]}  )
  (Com {[LIT_CHARS test_core_pager_overrides]} {[LIT_CHARS expect_success]} {[SQ <LIT_CHARS "git -p true">]}  )
  (Com {[LIT_CHARS test_core_pager_subdir]} {[LIT_CHARS expect_failure]} {[SQ <LIT_CHARS "git -p true">]}  )
  (Com {[LIT_CHARS test_GIT_PAGER_overrides]} {[LIT_CHARS expect_success]} {[SQ <LIT_CHARS "git -p true">]}  )
  (Com {[LIT_CHARS test_default_pager]} {[LIT_CHARS expect_success]} {[LIT_CHARS test_must_fail]} {[SQ <LIT_CHARS "git -p request-pull">]}  )
  (Com {[LIT_CHARS test_PAGER_overrides]} {[LIT_CHARS expect_success]} {[LIT_CHARS test_must_fail]} {[SQ <LIT_CHARS "git -p request-pull">]}  )
  (Com {[LIT_CHARS test_core_pager_overrides]} {[LIT_CHARS expect_success]} {[LIT_CHARS test_must_fail]} {[SQ <LIT_CHARS "git -p request-pull">]}  )
  (Com {[LIT_CHARS test_core_pager_subdir]} {[LIT_CHARS expect_failure]} {[LIT_CHARS test_must_fail]} {[SQ <LIT_CHARS "git -p request-pull">]}  )
  (Com {[LIT_CHARS test_GIT_PAGER_overrides]} {[LIT_CHARS expect_success]} {[LIT_CHARS test_must_fail]} {[SQ <LIT_CHARS "git -p request-pull">]}  )
  (Com {[LIT_CHARS test_default_pager]} {[LIT_CHARS expect_success]} {[LIT_CHARS test_must_fail]} {[SQ <LIT_CHARS "git -p">]}  )
  (Com {[LIT_CHARS test_PAGER_overrides]} {[LIT_CHARS expect_success]} {[LIT_CHARS test_must_fail]} {[SQ <LIT_CHARS "git -p">]}  )
  (Com {[LIT_CHARS test_local_config_ignored]} {[LIT_CHARS expect_failure]} {[LIT_CHARS test_must_fail]} {[SQ <LIT_CHARS "git -p">]}  )
  (Com {[LIT_CHARS test_no_local_config_subdir]} {[LIT_CHARS expect_success]} {[LIT_CHARS test_must_fail]} {[SQ <LIT_CHARS "git -p">]}  )
  (Com {[LIT_CHARS test_GIT_PAGER_overrides]} {[LIT_CHARS expect_success]} {[LIT_CHARS test_must_fail]} {[SQ <LIT_CHARS "git -p">]}  )
  (Com {[LIT_CHARS test_doesnt_paginate]} {[LIT_CHARS expect_failure]} {[LIT_CHARS test_must_fail]} {[SQ <LIT_CHARS "git -p nonsense">]}  )
  (Com {[LIT_CHARS test_pager_choices]} {[SQ <LIT_CHARS "git shortlog">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "setup: configure shortlog not to paginate">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit config pager.shortlog false\n">]}  )
  (Com {[LIT_CHARS test_doesnt_paginate]} {[LIT_CHARS expect_success]} {[SQ <LIT_CHARS "git shortlog">]}  )
  (Com {[LIT_CHARS test_no_local_config_subdir]} {[LIT_CHARS expect_success]} {[SQ <LIT_CHARS "git shortlog">]}  )
  (Com {[LIT_CHARS test_default_pager]} {[LIT_CHARS expect_success]} {[SQ <LIT_CHARS "git -p shortlog">]}  )
  (Com {[LIT_CHARS test_core_pager_subdir]} {[LIT_CHARS expect_success]} {[SQ <LIT_CHARS "git -p shortlog">]}  )
  (Com {[LIT_CHARS test_core_pager_subdir]} {[LIT_CHARS expect_success]} {[LIT_CHARS test_must_fail]} {[SQ <LIT_CHARS "git -p apply </dev/null">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS TTY]} {[SQ <LIT_CHARS "command-specific pager">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tsane_unset PAGER GIT_PAGER &&\n"> <LIT_CHARS "\techo \"foo:initial\" >expect &&\n"> <LIT_CHARS "\t>actual &&\n"> <LIT_CHARS "\ttest_unconfig core.pager &&\n"> <LIT_CHARS "\ttest_config pager.log \"sed s/^/foo:/ >actual\" &&\n"> <LIT_CHARS "\ttest_terminal git log --format=%s -1 &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS TTY]} {[SQ <LIT_CHARS "command-specific pager overrides core.pager">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tsane_unset PAGER GIT_PAGER &&\n"> <LIT_CHARS "\techo \"foo:initial\" >expect &&\n"> <LIT_CHARS "\t>actual &&\n"> <LIT_CHARS "\ttest_config core.pager \"exit 1\"\n"> <LIT_CHARS "\ttest_config pager.log \"sed s/^/foo:/ >actual\" &&\n"> <LIT_CHARS "\ttest_terminal git log --format=%s -1 &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS TTY]} {[SQ <LIT_CHARS "command-specific pager overridden by environment">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tGIT_PAGER=\"sed s/^/foo:/ >actual\" && export GIT_PAGER &&\n"> <LIT_CHARS "\t>actual &&\n"> <LIT_CHARS "\techo \"foo:initial\" >expect &&\n"> <LIT_CHARS "\ttest_config pager.log \"exit 1\" &&\n"> <LIT_CHARS "\ttest_terminal git log --format=%s -1 &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "setup external command">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcat >git-external <<-\\EOF &&\n"> <LIT_CHARS "\t#!/bin/sh\n"> <LIT_CHARS "\tgit \"$@\"\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\tchmod +x git-external\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS TTY]} {[SQ <LIT_CHARS "command-specific pager works for external commands">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tsane_unset PAGER GIT_PAGER &&\n"> <LIT_CHARS "\techo \"foo:initial\" >expect &&\n"> <LIT_CHARS "\t>actual &&\n"> <LIT_CHARS "\ttest_config pager.external \"sed s/^/foo:/ >actual\" &&\n"> <LIT_CHARS "\ttest_terminal git --exec-path=\"`pwd`\" external log --format=%s -1 &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS TTY]} {[SQ <LIT_CHARS "sub-commands of externals use their own pager">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tsane_unset PAGER GIT_PAGER &&\n"> <LIT_CHARS "\techo \"foo:initial\" >expect &&\n"> <LIT_CHARS "\t>actual &&\n"> <LIT_CHARS "\ttest_config pager.log \"sed s/^/foo:/ >actual\" &&\n"> <LIT_CHARS "\ttest_terminal git --exec-path=. external log --format=%s -1 &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS TTY]} {[SQ <LIT_CHARS "external command pagers override sub-commands">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tsane_unset PAGER GIT_PAGER &&\n"> <LIT_CHARS "\t>expect &&\n"> <LIT_CHARS "\t>actual &&\n"> <LIT_CHARS "\ttest_config pager.external false &&\n"> <LIT_CHARS "\ttest_config pager.log \"sed s/^/log:/ >actual\" &&\n"> <LIT_CHARS "\ttest_terminal git --exec-path=. external log --format=%s -1 &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]}  )
  (Com {[LIT_CHARS test_done]}  )
)