(CommandList
  children: [
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:test_description)
          op: Equal
          rhs: {(SQ <'Test automatic use of a pager.'>)}
          spids: [4]
        )
      ]
      spids: [4]
    )
    (C {(.)} {(./test-lib.sh)})
    (C {(.)} {(DQ ($ VSub_Name '$TEST_DIRECTORY')) (/lib-pager.sh)})
    (C {(.)} {(DQ ($ VSub_Name '$TEST_DIRECTORY')) (/lib-terminal.sh)})
    (C {(test_expect_success)} {(SQ <setup>)} 
      {
        (SQ <'\n'> <'\tsane_unset GIT_PAGER GIT_PAGER_IN_USE &&\n'> <'\ttest_unconfig core.pager &&\n'> 
          <'\n'> <'\tPAGER="cat >paginated.out" &&\n'> <'\texport PAGER &&\n'> <'\n'> <'\ttest_commit initial\n'>
        )
      }
    )
    (C {(test_expect_success)} {(TTY)} {(SQ <'some commands use a pager'>)} 
      {
        (SQ <'\n'> <'\trm -f paginated.out &&\n'> <'\ttest_terminal git log &&\n'> 
          <'\ttest -e paginated.out\n'>
        )
      }
    )
    (C {(test_expect_failure)} {(TTY)} {(SQ <'pager runs from subdir'>)} 
      {
        (SQ <'\n'> <'\techo subdir/paginated.out >expected &&\n'> <'\tmkdir -p subdir &&\n'> 
          <'\trm -f paginated.out subdir/paginated.out &&\n'> <'\t(\n'> <'\t\tcd subdir &&\n'> <'\t\ttest_terminal git log\n'> <'\t) &&\n'> <'\t{\n'> 
          <'\t\tls paginated.out subdir/paginated.out ||\n'> <'\t\t:\n'> <'\t} >actual &&\n'> <'\ttest_cmp expected actual\n'>
        )
      }
    )
    (C {(test_expect_success)} {(TTY)} {(SQ <'LESS and LV envvars are set for pagination'>)} 
      {
        (SQ <'\n'> <'\t(\n'> <'\t\tsane_unset LESS LV &&\n'> <'\t\tPAGER="env >pager-env.out; wc" &&\n'> 
          <'\t\texport PAGER &&\n'> <'\n'> <'\t\ttest_terminal git log\n'> <'\t) &&\n'> <'\tgrep ^LESS= pager-env.out &&\n'> 
          <'\tgrep ^LV= pager-env.out\n'>
        )
      }
    )
    (C {(test_expect_success)} {(KW_Bang '!') (MINGW) (Lit_Comma ',') (TTY)} 
      {(SQ <'LESS and LV envvars set by git-sh-setup'>)} 
      {
        (SQ <'\n'> <'\t(\n'> <'\t\tsane_unset LESS LV &&\n'> <'\t\tPAGER="env >pager-env.out; wc" &&\n'> 
          <'\t\texport PAGER &&\n'> <'\t\tPATH="$(git --exec-path):$PATH" &&\n'> <'\t\texport PATH &&\n'> 
          <'\t\ttest_terminal sh -c ". git-sh-setup && git_pager"\n'> <'\t) &&\n'> <'\tgrep ^LESS= pager-env.out &&\n'> <'\tgrep ^LV= pager-env.out\n'>
        )
      }
    )
    (C {(test_expect_success)} {(TTY)} {(SQ <'some commands do not use a pager'>)} 
      {
        (SQ <'\n'> <'\trm -f paginated.out &&\n'> <'\ttest_terminal git rev-list HEAD &&\n'> 
          <'\t! test -e paginated.out\n'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'no pager when stdout is a pipe'>)} 
      {
        (SQ <'\n'> <'\trm -f paginated.out &&\n'> <'\tgit log | cat &&\n'> 
          <'\t! test -e paginated.out\n'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'no pager when stdout is a regular file'>)} 
      {
        (SQ <'\n'> <'\trm -f paginated.out &&\n'> <'\tgit log >file &&\n'> 
          <'\t! test -e paginated.out\n'>
        )
      }
    )
    (C {(test_expect_success)} {(TTY)} {(SQ <'git --paginate rev-list uses a pager'>)} 
      {
        (SQ <'\n'> <'\trm -f paginated.out &&\n'> <'\ttest_terminal git --paginate rev-list HEAD &&\n'> 
          <'\ttest -e paginated.out\n'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'no pager even with --paginate when stdout is a pipe'>)} 
      {
        (SQ <'\n'> <'\trm -f file paginated.out &&\n'> <'\tgit --paginate log | cat &&\n'> 
          <'\t! test -e paginated.out\n'>
        )
      }
    )
    (C {(test_expect_success)} {(TTY)} {(SQ <'no pager with --no-pager'>)} 
      {
        (SQ <'\n'> <'\trm -f paginated.out &&\n'> <'\ttest_terminal git --no-pager log &&\n'> 
          <'\t! test -e paginated.out\n'>
        )
      }
    )
    (C {(test_expect_success)} {(TTY)} {(SQ <'configuration can disable pager'>)} 
      {
        (SQ <'\n'> <'\trm -f paginated.out &&\n'> <'\ttest_unconfig pager.grep &&\n'> 
          <'\ttest_terminal git grep initial &&\n'> <'\ttest -e paginated.out &&\n'> <'\n'> <'\trm -f paginated.out &&\n'> 
          <'\ttest_config pager.grep false &&\n'> <'\ttest_terminal git grep initial &&\n'> <'\t! test -e paginated.out\n'>
        )
      }
    )
    (C {(test_expect_success)} {(TTY)} {(SQ <'git config uses a pager if configured to'>)} 
      {
        (SQ <'\n'> <'\trm -f paginated.out &&\n'> <'\ttest_config pager.config true &&\n'> 
          <'\ttest_terminal git config --list &&\n'> <'\ttest -e paginated.out\n'>
        )
      }
    )
    (C {(test_expect_success)} {(TTY)} {(SQ <'configuration can enable pager (from subdir)'>)} 
      {
        (SQ <'\n'> <'\trm -f paginated.out &&\n'> <'\tmkdir -p subdir &&\n'> 
          <'\ttest_config pager.bundle true &&\n'> <'\n'> <'\tgit bundle create test.bundle --all &&\n'> 
          <'\trm -f paginated.out subdir/paginated.out &&\n'> <'\t(\n'> <'\t\tcd subdir &&\n'> <'\t\ttest_terminal git bundle unbundle ../test.bundle\n'> <'\t) &&\n'> 
          <'\t{\n'> <'\t\ttest -e paginated.out ||\n'> <'\t\ttest -e subdir/paginated.out\n'> <'\t}\n'>
        )
      }
    )
    (FuncDef
      name: colorful
      body: 
        (BraceGroup
          children: [
            (SimpleCommand
              words: [{(read)} {(firstline)}]
              redirects: [(Redir op_id:Redir_Less fd:-1 arg_word:{($ VSub_Number '$1')} spids:[309])]
            )
            (Pipeline
              children: [
                (SimpleCommand
                  words: [{(expr)} {(DQ ($ VSub_Name '$firstline'))} {(Lit_Other ':')} {(DQ ('[a-zA-Z]'))}]
                  redirects: [(Redir op_id:Redir_Great fd:-1 arg_word:{(/dev/null)} spids:[327])]
                )
              ]
              negated: True
            )
          ]
          spids: [302]
        )
      spids: [298 301]
    )
    (C {(test_expect_success)} {(SQ <'tests can detect color'>)} 
      {
        (SQ <'\n'> <'\trm -f colorful.log colorless.log &&\n'> 
          <'\tgit log --no-color >colorless.log &&\n'> <'\tgit log --color >colorful.log &&\n'> <'\t! colorful colorless.log &&\n'> 
          <'\tcolorful colorful.log\n'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'no color when stdout is a regular file'>)} 
      {
        (SQ <'\n'> <'\trm -f colorless.log &&\n'> <'\ttest_config color.ui auto &&\n'> 
          <'\tgit log >colorless.log &&\n'> <'\t! colorful colorless.log\n'>
        )
      }
    )
    (C {(test_expect_success)} {(TTY)} {(SQ <'color when writing to a pager'>)} 
      {
        (SQ <'\n'> <'\trm -f paginated.out &&\n'> <'\ttest_config color.ui auto &&\n'> 
          <'\ttest_terminal env TERM=vt100 git log &&\n'> <'\tcolorful paginated.out\n'>
        )
      }
    )
    (C {(test_expect_success)} {(TTY)} {(SQ <'colors are suppressed by color.pager'>)} 
      {
        (SQ <'\n'> <'\trm -f paginated.out &&\n'> <'\ttest_config color.ui auto &&\n'> 
          <'\ttest_config color.pager false &&\n'> <'\ttest_terminal env TERM=vt100 git log &&\n'> <'\t! colorful paginated.out\n'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'color when writing to a file intended for a pager'>)} 
      {
        (SQ <'\n'> <'\trm -f colorful.log &&\n'> <'\ttest_config color.ui auto &&\n'> <'\t(\n'> 
          <'\t\tTERM=vt100 &&\n'> <'\t\tGIT_PAGER_IN_USE=true &&\n'> <'\t\texport TERM GIT_PAGER_IN_USE &&\n'> 
          <'\t\tgit log >colorful.log\n'> <'\t) &&\n'> <'\tcolorful colorful.log\n'>
        )
      }
    )
    (C {(test_expect_success)} {(TTY)} {(SQ <'colors are sent to pager for external commands'>)} 
      {
        (SQ <'\n'> <'\ttest_config alias.externallog "!git log" &&\n'> 
          <'\ttest_config color.ui auto &&\n'> <'\ttest_terminal env TERM=vt100 git -p externallog &&\n'> <'\tcolorful paginated.out\n'>
        )
      }
    )
    (FuncDef
      name: parse_args
      body: 
        (BraceGroup
          children: [
            (Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (LhsName name:test_expectation)
                  op: Equal
                  rhs: {(DQ (test_) ($ VSub_Number '$1'))}
                  spids: [497]
                )
              ]
              spids: [497]
            )
            (C {(shift)})
            (If
              arms: [
                (if_arm
                  cond: [(C {(test)} {(DQ ($ VSub_Number '$1'))} {(Lit_Other '=')} {(test_must_fail)})]
                  action: [
                    (Assignment
                      keyword: Assign_None
                      pairs: [
                        (assign_pair
                          lhs: (LhsName name:full_command)
                          op: Equal
                          rhs: {(DQ ('test_must_fail test_terminal '))}
                          spids: [523]
                        )
                      ]
                      spids: [523]
                    )
                    (C {(shift)})
                  ]
                  spids: [-1 520]
                )
              ]
              else_action: [
                (Assignment
                  keyword: Assign_None
                  pairs: [
                    (assign_pair
                      lhs: (LhsName name:full_command)
                      op: Equal
                      rhs: {(DQ ('test_terminal '))}
                      spids: [535]
                    )
                  ]
                  spids: [535]
                )
              ]
              spids: [532 541]
            )
            (Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (LhsName name:cmd)
                  op: Equal
                  rhs: {($ VSub_Number '$1')}
                  spids: [544]
                )
              ]
              spids: [544]
            )
            (Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (LhsName name:full_command)
                  op: Equal
                  rhs: {(DQ ($ VSub_Name '$full_command') (' ') ($ VSub_Number '$1'))}
                  spids: [548]
                )
              ]
              spids: [548]
            )
          ]
          spids: [494]
        )
      spids: [490 493]
    )
    (FuncDef
      name: test_default_pager
      body: 
        (BraceGroup
          children: [
            (C {(parse_args)} {(DQ ($ VSub_At '$@'))})
            (C {($ VSub_Name '$test_expectation')} {(SIMPLEPAGER) (Lit_Comma ',') (TTY)} 
              {(DQ ($ VSub_Name '$cmd') (' - default pager is used by default'))} 
              {
                (DQ ('\n') ('\t\tsane_unset PAGER GIT_PAGER &&\n') 
                  ('\t\ttest_unconfig core.pager &&\n') ('\t\trm -f default_pager_used &&\n') ('\t\tcat >') (EscapedLiteralPart token:<Lit_EscapedChar '\\$'>) 
                  ('less <<-') (EscapedLiteralPart token:<Lit_EscapedChar '\\E'>) ('OF &&\n') ('\t\t#!/bin/sh\n') 
                  ('\t\twc >default_pager_used\n') ('\t\tEOF\n') ('\t\tchmod +x ') (EscapedLiteralPart token:<Lit_EscapedChar '\\$'>) ('less &&\n') 
                  ('\t\t(\n') ('\t\t\tPATH=.:') (EscapedLiteralPart token:<Lit_EscapedChar '\\$'>) ('PATH &&\n') 
                  ('\t\t\texport PATH &&\n') ('\t\t\t') ($ VSub_Name '$full_command') ('\n') ('\t\t) &&\n') ('\t\ttest -e default_pager_used\n') ('\t')
                )
              }
            )
          ]
          spids: [562]
        )
      spids: [558 561]
    )
    (FuncDef
      name: test_PAGER_overrides
      body: 
        (BraceGroup
          children: [
            (C {(parse_args)} {(DQ ($ VSub_At '$@'))})
            (C {($ VSub_Name '$test_expectation')} {(TTY)} 
              {(DQ ($ VSub_Name '$cmd') (' - PAGER overrides default pager'))} 
              {
                (DQ ('\n') ('\t\tsane_unset GIT_PAGER &&\n') ('\t\ttest_unconfig core.pager &&\n') 
                  ('\t\trm -f PAGER_used &&\n') ("\t\tPAGER='wc >PAGER_used' &&\n") ('\t\texport PAGER &&\n') ('\t\t') ($ VSub_Name '$full_command') 
                  (' &&\n') ('\t\ttest -e PAGER_used\n') ('\t')
                )
              }
            )
          ]
          spids: [620]
        )
      spids: [616 619]
    )
    (FuncDef
      name: test_core_pager_overrides
      body: 
        (BraceGroup
          children: [
            (Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (LhsName name:if_local_config)
                  op: Equal
                  rhs: {(SQ )}
                  spids: [664]
                )
              ]
              spids: [664]
            )
            (Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (LhsName name:used_if_wanted)
                  op: Equal
                  rhs: {(SQ <'overrides PAGER'>)}
                  spids: [667]
                )
              ]
              spids: [667]
            )
            (C {(test_core_pager)} {(DQ ($ VSub_At '$@'))})
          ]
          spids: [661]
        )
      spids: [657 660]
    )
    (FuncDef
      name: test_local_config_ignored
      body: 
        (BraceGroup
          children: [
            (Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (LhsName name:if_local_config)
                  op: Equal
                  rhs: {(SQ <'! '>)}
                  spids: [689]
                )
              ]
              spids: [689]
            )
            (Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (LhsName name:used_if_wanted)
                  op: Equal
                  rhs: {(SQ <'is not used'>)}
                  spids: [695]
                )
              ]
              spids: [695]
            )
            (C {(test_core_pager)} {(DQ ($ VSub_At '$@'))})
          ]
          spids: [686]
        )
      spids: [682 685]
    )
    (FuncDef
      name: test_core_pager
      body: 
        (BraceGroup
          children: [
            (C {(parse_args)} {(DQ ($ VSub_At '$@'))})
            (C {($ VSub_Name '$test_expectation')} {(TTY)} 
              {
                (DQ ($ VSub_Name '$cmd') (' - repository-local core.pager setting ') 
                  ($ VSub_Name '$used_if_wanted')
                )
              } 
              {
                (DQ ('\n') ('\t\tsane_unset GIT_PAGER &&\n') ('\t\trm -f core.pager_used &&\n') 
                  ('\t\tPAGER=wc &&\n') ('\t\texport PAGER &&\n') ("\t\ttest_config core.pager 'wc >core.pager_used' &&\n") ('\t\t') 
                  ($ VSub_Name '$full_command') (' &&\n') ('\t\t') (${ VSub_Name if_local_config) ('test -e core.pager_used\n') ('\t')
                )
              }
            )
          ]
          spids: [714]
        )
      spids: [710 713]
    )
    (FuncDef
      name: test_core_pager_subdir
      body: 
        (BraceGroup
          children: [
            (Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (LhsName name:if_local_config)
                  op: Equal
                  rhs: {(SQ )}
                  spids: [763]
                )
              ]
              spids: [763]
            )
            (Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (LhsName name:used_if_wanted)
                  op: Equal
                  rhs: {(SQ <'overrides PAGER'>)}
                  spids: [766]
                )
              ]
              spids: [766]
            )
            (C {(test_pager_subdir_helper)} {(DQ ($ VSub_At '$@'))})
          ]
          spids: [760]
        )
      spids: [756 759]
    )
    (FuncDef
      name: test_no_local_config_subdir
      body: 
        (BraceGroup
          children: [
            (Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (LhsName name:if_local_config)
                  op: Equal
                  rhs: {(SQ <'! '>)}
                  spids: [788]
                )
              ]
              spids: [788]
            )
            (Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (LhsName name:used_if_wanted)
                  op: Equal
                  rhs: {(SQ <'is not used'>)}
                  spids: [794]
                )
              ]
              spids: [794]
            )
            (C {(test_pager_subdir_helper)} {(DQ ($ VSub_At '$@'))})
          ]
          spids: [785]
        )
      spids: [781 784]
    )
    (FuncDef
      name: test_pager_subdir_helper
      body: 
        (BraceGroup
          children: [
            (C {(parse_args)} {(DQ ($ VSub_At '$@'))})
            (C {($ VSub_Name '$test_expectation')} {(TTY)} 
              {
                (DQ ($ VSub_Name '$cmd') (' - core.pager ') ($ VSub_Name '$used_if_wanted') 
                  (' from subdirectory')
                )
              } 
              {
                (DQ ('\n') ('\t\tsane_unset GIT_PAGER &&\n') ('\t\trm -f core.pager_used &&\n') 
                  ('\t\trm -fr sub &&\n') ('\t\tPAGER=wc &&\n') ('\t\tstampname=') (EscapedLiteralPart token:<Lit_EscapedChar '\\$'>) 
                  ('(pwd)/core.pager_used &&\n') ('\t\texport PAGER stampname &&\n') ("\t\ttest_config core.pager 'wc >") 
                  (EscapedLiteralPart token:<Lit_EscapedChar '\\"'>) (EscapedLiteralPart token:<Lit_EscapedChar '\\$'>) (stampname) 
                  (EscapedLiteralPart token:<Lit_EscapedChar '\\"'>) ("' &&\n") ('\t\tmkdir sub &&\n') ('\t\t(\n') ('\t\t\tcd sub &&\n') ('\t\t\t') 
                  ($ VSub_Name '$full_command') ('\n') ('\t\t) &&\n') ('\t\t') (${ VSub_Name if_local_config) ('test -e core.pager_used\n') ('\t')
                )
              }
            )
          ]
          spids: [813]
        )
      spids: [809 812]
    )
    (FuncDef
      name: test_GIT_PAGER_overrides
      body: 
        (BraceGroup
          children: [
            (C {(parse_args)} {(DQ ($ VSub_At '$@'))})
            (C {($ VSub_Name '$test_expectation')} {(TTY)} 
              {(DQ ($ VSub_Name '$cmd') (' - GIT_PAGER overrides core.pager'))} 
              {
                (DQ ('\n') ('\t\trm -f GIT_PAGER_used &&\n') ('\t\ttest_config core.pager wc &&\n') 
                  ("\t\tGIT_PAGER='wc >GIT_PAGER_used' &&\n") ('\t\texport GIT_PAGER &&\n') ('\t\t') ($ VSub_Name '$full_command') (' &&\n') 
                  ('\t\ttest -e GIT_PAGER_used\n') ('\t')
                )
              }
            )
          ]
          spids: [873]
        )
      spids: [869 872]
    )
    (FuncDef
      name: test_doesnt_paginate
      body: 
        (BraceGroup
          children: [
            (C {(parse_args)} {(DQ ($ VSub_At '$@'))})
            (C {($ VSub_Name '$test_expectation')} {(TTY)} 
              {(DQ ("no pager for '") ($ VSub_Name '$cmd') ("'"))} 
              {
                (DQ ('\n') ('\t\trm -f GIT_PAGER_used &&\n') 
                  ("\t\tGIT_PAGER='wc >GIT_PAGER_used' &&\n") ('\t\texport GIT_PAGER &&\n') ('\t\t') ($ VSub_Name '$full_command') (' &&\n') 
                  ('\t\t! test -e GIT_PAGER_used\n') ('\t')
                )
              }
            )
          ]
          spids: [913]
        )
      spids: [909 912]
    )
    (FuncDef
      name: test_pager_choices
      body: 
        (BraceGroup
          children: [
            (C {(test_default_pager)} {(expect_success)} {(DQ ($ VSub_At '$@'))})
            (C {(test_PAGER_overrides)} {(expect_success)} {(DQ ($ VSub_At '$@'))})
            (C {(test_core_pager_overrides)} {(expect_success)} {(DQ ($ VSub_At '$@'))})
            (C {(test_core_pager_subdir)} {(expect_success)} {(DQ ($ VSub_At '$@'))})
            (C {(test_GIT_PAGER_overrides)} {(expect_success)} {(DQ ($ VSub_At '$@'))})
          ]
          spids: [953]
        )
      spids: [949 952]
    )
    (C {(test_expect_success)} {(SQ <'setup: some aliases'>)} 
      {(SQ <'\n'> <'\tgit config alias.aliasedlog log &&\n'> <'\tgit config alias.true "!true"\n'>)}
    )
    (C {(test_pager_choices)} {(SQ <'git log'>)})
    (C {(test_pager_choices)} {(SQ <'git -p log'>)})
    (C {(test_pager_choices)} {(SQ <'git aliasedlog'>)})
    (C {(test_default_pager)} {(expect_success)} {(SQ <'git -p aliasedlog'>)})
    (C {(test_PAGER_overrides)} {(expect_success)} {(SQ <'git -p aliasedlog'>)})
    (C {(test_core_pager_overrides)} {(expect_success)} {(SQ <'git -p aliasedlog'>)})
    (C {(test_core_pager_subdir)} {(expect_failure)} {(SQ <'git -p aliasedlog'>)})
    (C {(test_GIT_PAGER_overrides)} {(expect_success)} {(SQ <'git -p aliasedlog'>)})
    (C {(test_default_pager)} {(expect_success)} {(SQ <'git -p true'>)})
    (C {(test_PAGER_overrides)} {(expect_success)} {(SQ <'git -p true'>)})
    (C {(test_core_pager_overrides)} {(expect_success)} {(SQ <'git -p true'>)})
    (C {(test_core_pager_subdir)} {(expect_failure)} {(SQ <'git -p true'>)})
    (C {(test_GIT_PAGER_overrides)} {(expect_success)} {(SQ <'git -p true'>)})
    (C {(test_default_pager)} {(expect_success)} {(test_must_fail)} {(SQ <'git -p request-pull'>)})
    (C {(test_PAGER_overrides)} {(expect_success)} {(test_must_fail)} {(SQ <'git -p request-pull'>)})
    (C {(test_core_pager_overrides)} {(expect_success)} {(test_must_fail)} {(SQ <'git -p request-pull'>)})
    (C {(test_core_pager_subdir)} {(expect_failure)} {(test_must_fail)} {(SQ <'git -p request-pull'>)})
    (C {(test_GIT_PAGER_overrides)} {(expect_success)} {(test_must_fail)} {(SQ <'git -p request-pull'>)})
    (C {(test_default_pager)} {(expect_success)} {(test_must_fail)} {(SQ <'git -p'>)})
    (C {(test_PAGER_overrides)} {(expect_success)} {(test_must_fail)} {(SQ <'git -p'>)})
    (C {(test_local_config_ignored)} {(expect_failure)} {(test_must_fail)} {(SQ <'git -p'>)})
    (C {(test_no_local_config_subdir)} {(expect_success)} {(test_must_fail)} {(SQ <'git -p'>)})
    (C {(test_GIT_PAGER_overrides)} {(expect_success)} {(test_must_fail)} {(SQ <'git -p'>)})
    (C {(test_doesnt_paginate)} {(expect_failure)} {(test_must_fail)} {(SQ <'git -p nonsense'>)})
    (C {(test_pager_choices)} {(SQ <'git shortlog'>)})
    (C {(test_expect_success)} {(SQ <'setup: configure shortlog not to paginate'>)} 
      {(SQ <'\n'> <'\tgit config pager.shortlog false\n'>)}
    )
    (C {(test_doesnt_paginate)} {(expect_success)} {(SQ <'git shortlog'>)})
    (C {(test_no_local_config_subdir)} {(expect_success)} {(SQ <'git shortlog'>)})
    (C {(test_default_pager)} {(expect_success)} {(SQ <'git -p shortlog'>)})
    (C {(test_core_pager_subdir)} {(expect_success)} {(SQ <'git -p shortlog'>)})
    (C {(test_core_pager_subdir)} {(expect_success)} {(test_must_fail)} {(SQ <'git -p apply </dev/null'>)})
    (C {(test_expect_success)} {(TTY)} {(SQ <'command-specific pager'>)} 
      {
        (SQ <'\n'> <'\tsane_unset PAGER GIT_PAGER &&\n'> <'\techo "foo:initial" >expect &&\n'> 
          <'\t>actual &&\n'> <'\ttest_unconfig core.pager &&\n'> <'\ttest_config pager.log "sed s/^/foo:/ >actual" &&\n'> 
          <'\ttest_terminal git log --format=%s -1 &&\n'> <'\ttest_cmp expect actual\n'>
        )
      }
    )
    (C {(test_expect_success)} {(TTY)} {(SQ <'command-specific pager overrides core.pager'>)} 
      {
        (SQ <'\n'> <'\tsane_unset PAGER GIT_PAGER &&\n'> <'\techo "foo:initial" >expect &&\n'> 
          <'\t>actual &&\n'> <'\ttest_config core.pager "exit 1" &&\n'> <'\ttest_config pager.log "sed s/^/foo:/ >actual" &&\n'> 
          <'\ttest_terminal git log --format=%s -1 &&\n'> <'\ttest_cmp expect actual\n'>
        )
      }
    )
    (C {(test_expect_success)} {(TTY)} {(SQ <'command-specific pager overridden by environment'>)} 
      {
        (SQ <'\n'> <'\tGIT_PAGER="sed s/^/foo:/ >actual" && export GIT_PAGER &&\n'> <'\t>actual &&\n'> 
          <'\techo "foo:initial" >expect &&\n'> <'\ttest_config pager.log "exit 1" &&\n'> <'\ttest_terminal git log --format=%s -1 &&\n'> 
          <'\ttest_cmp expect actual\n'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'setup external command'>)} 
      {
        (SQ <'\n'> <'\tcat >git-external <<-\\EOF &&\n'> <'\t#!/bin/sh\n'> <'\tgit "$@"\n'> <'\tEOF\n'> 
          <'\tchmod +x git-external\n'>
        )
      }
    )
    (C {(test_expect_success)} {(TTY)} {(SQ <'command-specific pager works for external commands'>)} 
      {
        (SQ <'\n'> <'\tsane_unset PAGER GIT_PAGER &&\n'> <'\techo "foo:initial" >expect &&\n'> 
          <'\t>actual &&\n'> <'\ttest_config pager.external "sed s/^/foo:/ >actual" &&\n'> 
          <'\ttest_terminal git --exec-path="$(pwd)" external log --format=%s -1 &&\n'> <'\ttest_cmp expect actual\n'>
        )
      }
    )
    (C {(test_expect_success)} {(TTY)} {(SQ <'sub-commands of externals use their own pager'>)} 
      {
        (SQ <'\n'> <'\tsane_unset PAGER GIT_PAGER &&\n'> <'\techo "foo:initial" >expect &&\n'> 
          <'\t>actual &&\n'> <'\ttest_config pager.log "sed s/^/foo:/ >actual" &&\n'> 
          <'\ttest_terminal git --exec-path=. external log --format=%s -1 &&\n'> <'\ttest_cmp expect actual\n'>
        )
      }
    )
    (C {(test_expect_success)} {(TTY)} {(SQ <'external command pagers override sub-commands'>)} 
      {
        (SQ <'\n'> <'\tsane_unset PAGER GIT_PAGER &&\n'> <'\t>expect &&\n'> <'\t>actual &&\n'> 
          <'\ttest_config pager.external false &&\n'> <'\ttest_config pager.log "sed s/^/log:/ >actual" &&\n'> 
          <'\ttest_terminal git --exec-path=. external log --format=%s -1 &&\n'> <'\ttest_cmp expect actual\n'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'command with underscores does not complain'>)} 
      {
        (SQ <'\n'> <'\twrite_script git-under_score <<-\\EOF &&\n'> <'\techo ok\n'> <'\tEOF\n'> 
          <'\tgit --exec-path=. under_score >actual 2>&1 &&\n'> <'\techo ok >expect &&\n'> <'\ttest_cmp expect actual\n'>
        )
      }
    )
    (C {(test_done)})
  ]
)