(command.CommandList
  children: [
    (command.ShAssignment
      pairs: [
        (assign_pair
          lhs: (sh_lhs_expr.Name name:test_description)
          op: assign_op.Equal
          rhs: {(SQ <'log --grep/--author/--regexp-ignore-case/-S/-G'>)}
          spids: [4]
        )
      ]
    )
    (C {<.>} {<'./test-lib.sh'>})
    (command.ShFunction
      name: test_log
      body: 
        (BraceGroup
          children: [
            (command.ShAssignment
              pairs: [
                (assign_pair
                  lhs: (sh_lhs_expr.Name name:expect)
                  op: assign_op.Equal
                  rhs: {($ Id.VSub_Number '$1')}
                  spids: [22]
                )
              ]
            )
            (command.ShAssignment
              pairs: [
                (assign_pair
                  lhs: (sh_lhs_expr.Name name:kind)
                  op: assign_op.Equal
                  rhs: {($ Id.VSub_Number '$2')}
                  spids: [26]
                )
              ]
            )
            (command.ShAssignment
              pairs: [
                (assign_pair
                  lhs: (sh_lhs_expr.Name name:needle)
                  op: assign_op.Equal
                  rhs: {($ Id.VSub_Number '$3')}
                  spids: [30]
                )
              ]
            )
            (C {<shift>} {<3>})
            (command.ShAssignment
              pairs: [
                (assign_pair
                  lhs: (sh_lhs_expr.Name name:rest)
                  op: assign_op.Equal
                  rhs: {($ Id.VSub_At '$@')}
                  spids: [39]
                )
              ]
            )
            (command.Case
              to_match: {($ Id.VSub_DollarName '$kind')}
              arms: [
                (case_arm
                  pat_list: [{<--> <Id.Lit_Star '*'>}]
                  action: [
                    (command.ShAssignment
                      pairs: [
                        (assign_pair
                          lhs: (sh_lhs_expr.Name name:opt)
                          op: assign_op.Equal
                          rhs: 
                            {($ Id.VSub_DollarName '$kind') <Id.Lit_Equals '='> 
                              ($ Id.VSub_DollarName '$needle')
                            }
                          spids: [56]
                        )
                      ]
                    )
                  ]
                  spids: [51 53 62 -1]
                )
                (case_arm
                  pat_list: [{<Id.Lit_Star '*'>}]
                  action: [
                    (command.ShAssignment
                      pairs: [
                        (assign_pair
                          lhs: (sh_lhs_expr.Name name:opt)
                          op: assign_op.Equal
                          rhs: {($ Id.VSub_DollarName '$kind') ($ Id.VSub_DollarName '$needle')}
                          spids: [69]
                        )
                      ]
                    )
                  ]
                  spids: [65 66 74 -1]
                )
              ]
            )
            (command.Case
              to_match: {($ Id.VSub_DollarName '$expect')}
              arms: [
                (case_arm
                  pat_list: [{<expect_nomatch>}]
                  action: [
                    (command.ShAssignment
                      pairs: [
                        (assign_pair
                          lhs: (sh_lhs_expr.Name name:match)
                          op: assign_op.Equal
                          rhs: {<nomatch>}
                          spids: [91]
                        )
                      ]
                    )
                  ]
                  spids: [87 88 95 -1]
                )
                (case_arm
                  pat_list: [{<Id.Lit_Star '*'>}]
                  action: [
                    (command.ShAssignment
                      pairs: [
                        (assign_pair
                          lhs: (sh_lhs_expr.Name name:match)
                          op: assign_op.Equal
                          rhs: {<match>}
                          spids: [102]
                        )
                      ]
                    )
                  ]
                  spids: [98 99 106 -1]
                )
              ]
            )
            (C {<test_expect_success>} 
              {
                (DQ <'log '> ($ Id.VSub_DollarName '$kind') 
                  (braced_var_sub
                    token: <Id.VSub_Name rest>
                    suffix_op: 
                      (suffix_op.Unary
                        tok: <Id.VTest_ColonPlus ':+'>
                        arg_word: {<' '> ($ Id.VSub_DollarName '$rest')}
                      )
                  ) <' ('> ($ Id.VSub_DollarName '$match') <')'>
                )
              } 
              {
                (DQ <'\n'> <'\t\tgit log '> ($ Id.VSub_DollarName '$rest') <' '> 
                  ($ Id.VSub_DollarName '$opt') <' --format=%H >actual &&\n'> <'\t\ttest_cmp '> ($ Id.VSub_DollarName '$expect') <' actual\n'> <'\t'>
                )
              }
            )
          ]
        )
    )
    (command.ShFunction
      name: test_log_icase
      body: 
        (BraceGroup
          children: [
            (C {<test_log>} {($ Id.VSub_At '$@')} {<--regexp-ignore-case>})
            (C {<test_log>} {($ Id.VSub_At '$@')} {<-i>})
          ]
        )
    )
    (C {<test_expect_success>} {<setup>} 
      {
        (SQ <'\n'> <'\t>expect_nomatch &&\n'> <'\n'> <'\t>file &&\n'> <'\tgit add file &&\n'> 
          <'\ttest_tick &&\n'> <'\tgit commit -m initial &&\n'> <'\tgit rev-parse --verify HEAD >expect_initial &&\n'> <'\n'> 
          <'\techo Picked >file &&\n'> <'\tgit add file &&\n'> <'\ttest_tick &&\n'> 
          <'\tgit commit --author="Another Person <another@example.com>" -m second &&\n'> <'\tgit rev-parse --verify HEAD >expect_second\n'>
        )
      }
    )
    (C {<test_log>} {<expect_initial>} {<--grep>} {<initial>})
    (C {<test_log>} {<expect_nomatch>} {<--grep>} {<InItial>})
    (C {<test_log_icase>} {<expect_initial>} {<--grep>} {<InItial>})
    (C {<test_log_icase>} {<expect_nomatch>} {<--grep>} {<initail>})
    (C {<test_log>} {<expect_second>} {<--author>} {<Person>})
    (C {<test_log>} {<expect_nomatch>} {<--author>} {<person>})
    (C {<test_log_icase>} {<expect_second>} {<--author>} {<person>})
    (C {<test_log_icase>} {<expect_nomatch>} {<--author>} {<spreon>})
    (C {<test_log>} {<expect_nomatch>} {<-G>} {<picked>})
    (C {<test_log>} {<expect_second>} {<-G>} {<Picked>})
    (C {<test_log_icase>} {<expect_nomatch>} {<-G>} {<pickle>})
    (C {<test_log_icase>} {<expect_second>} {<-G>} {<picked>})
    (C {<test_expect_success>} {(SQ <'log -G --textconv (missing textconv tool)'>)} 
      {
        (SQ <'\n'> <'\techo "* diff=test" >.gitattributes &&\n'> 
          <'\ttest_must_fail git -c diff.test.textconv=missing log -Gfoo &&\n'> <'\trm .gitattributes\n'>
        )
      }
    )
    (C {<test_expect_success>} {(SQ <'log -G --no-textconv (missing textconv tool)'>)} 
      {
        (SQ <'\n'> <'\techo "* diff=test" >.gitattributes &&\n'> 
          <'\tgit -c diff.test.textconv=missing log -Gfoo --no-textconv >actual &&\n'> <'\ttest_cmp expect_nomatch actual &&\n'> <'\trm .gitattributes\n'>
        )
      }
    )
    (C {<test_log>} {<expect_nomatch>} {<-S>} {<picked>})
    (C {<test_log>} {<expect_second>} {<-S>} {<Picked>})
    (C {<test_log_icase>} {<expect_second>} {<-S>} {<picked>})
    (C {<test_log_icase>} {<expect_nomatch>} {<-S>} {<pickle>})
    (C {<test_log>} {<expect_nomatch>} {<-S>} {<p.cked>} {<--pickaxe-regex>})
    (C {<test_log>} {<expect_second>} {<-S>} {<P.cked>} {<--pickaxe-regex>})
    (C {<test_log_icase>} {<expect_second>} {<-S>} {<p.cked>} {<--pickaxe-regex>})
    (C {<test_log_icase>} {<expect_nomatch>} {<-S>} {<p.ckle>} {<--pickaxe-regex>})
    (C {<test_expect_success>} {(SQ <'log -S --textconv (missing textconv tool)'>)} 
      {
        (SQ <'\n'> <'\techo "* diff=test" >.gitattributes &&\n'> 
          <'\ttest_must_fail git -c diff.test.textconv=missing log -Sfoo &&\n'> <'\trm .gitattributes\n'>
        )
      }
    )
    (C {<test_expect_success>} {(SQ <'log -S --no-textconv (missing textconv tool)'>)} 
      {
        (SQ <'\n'> <'\techo "* diff=test" >.gitattributes &&\n'> 
          <'\tgit -c diff.test.textconv=missing log -Sfoo --no-textconv >actual &&\n'> <'\ttest_cmp expect_nomatch actual &&\n'> <'\trm .gitattributes\n'>
        )
      }
    )
    (C {<test_done>})
  ]
)