(CommandList
  children: [
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:test_description)
          op: Equal
          rhs: {(SQ <"various @{whatever} syntax tests">)}
          spids: [4]
        )
      ]
      spids: [4]
    )
    (C {(.)} {(./test-lib.sh)})
    (C {(test_expect_success)} {(SQ <setup>)} 
      {(SQ <"\n"> <"\ttest_commit one &&\n"> <"\ttest_commit two\n">)}
    )
    (FuncDef
      name: check_at
      body: 
        (BraceGroup
          children: [
            (AndOr
              children: [
                (SimpleCommand
                  words: [{(echo)} {(DQ ($ VSub_Number "$2"))}]
                  redirects: [(Redir op_id:Redir_Great fd:-1 arg_word:{(expect)} spids:[40])]
                )
                (AndOr
                  children: [
                    (SimpleCommand
                      words: [
                        {(git)}
                        {(log)}
                        {(-1)}
                        {(--format) (Lit_Other "=") (Lit_Other "%") (s)}
                        {(DQ ($ VSub_Number "$1"))}
                      ]
                      redirects: [(Redir op_id:Redir_Great fd:-1 arg_word:{(actual)} spids:[61])]
                    )
                    (C {(test_cmp)} {(expect)} {(actual)})
                  ]
                  op_id: Op_DAmp
                )
              ]
              op_id: Op_DAmp
            )
          ]
          spids: [31]
        )
      spids: [27 30]
    )
    (C {(test_expect_success)} {(SQ <"@{0} shows current">)} {(SQ <"\n"> <"\tcheck_at @{0} two\n">)})
    (C {(test_expect_success)} {(SQ <"@{1} shows old">)} {(SQ <"\n"> <"\tcheck_at @{1} one\n">)})
    (C {(test_expect_success)} {(SQ <"@{now} shows current">)} {(SQ <"\n"> <"\tcheck_at @{now} two\n">)})
    (C {(test_expect_success)} {(SQ <"@{2001-09-17} (before the first commit) shows old">)} 
      {(SQ <"\n"> <"\tcheck_at @{2001-09-17} one\n">)}
    )
    (C {(test_expect_success)} {(SQ <"silly approxidates work">)} 
      {(SQ <"\n"> <"\tcheck_at @{3.hot.dogs.on.2001-09-17} one\n">)}
    )
    (C {(test_expect_success)} {(SQ <"notice misspelled upstream">)} 
      {(SQ <"\n"> <"\ttest_must_fail git log -1 --format=%s @{usptream}\n">)}
    )
    (C {(test_expect_success)} {(SQ <"complain about total nonsense">)} 
      {(SQ <"\n"> <"\ttest_must_fail git log -1 --format=%s @{utter.bogosity}\n">)}
    )
    (C {(test_done)})
  ]
)