(CommandList
  children: [
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:test_description)
          op: Equal
          rhs: {(SQ <'Gettext Shell poison'>)}
          spids: [13]
        )
      ]
      spids: [13]
    )
    (C {(.)} {(./lib-gettext.sh)})
    (C {(test_expect_success)} {(GETTEXT_POISON)} 
      {
        (DQ ('sanity: ') (EscapedLiteralPart token:<Lit_EscapedChar '\\$'>) 
          ('GIT_INTERNAL_GETTEXT_SH_SCHEME is set (to ') ($ VSub_Name '$GIT_INTERNAL_GETTEXT_SH_SCHEME') (')')
        )
      } {(SQ <'\n'> <'    test -n "$GIT_INTERNAL_GETTEXT_SH_SCHEME"\n'>)}
    )
    (C {(test_expect_success)} {(GETTEXT_POISON)} 
      {(SQ <'sanity: $GIT_INTERNAL_GETTEXT_SH_SCHEME" is poison'>)} {(SQ <'\n'> <'    test "$GIT_INTERNAL_GETTEXT_SH_SCHEME" = "poison"\n'>)}
    )
    (C {(test_expect_success)} {(GETTEXT_POISON)} 
      {(SQ <'gettext: our gettext() fallback has poison semantics'>)} 
      {
        (SQ <'\n'> <'    printf "# GETTEXT POISON #" >expect &&\n'> <'    gettext "test" >actual &&\n'> 
          <'    test_cmp expect actual &&\n'> <'    printf "# GETTEXT POISON #" >expect &&\n'> <'    gettext "test more words" >actual &&\n'> 
          <'    test_cmp expect actual\n'>
        )
      }
    )
    (C {(test_expect_success)} {(GETTEXT_POISON)} 
      {(SQ <'eval_gettext: our eval_gettext() fallback has poison semantics'>)} 
      {
        (SQ <'\n'> <'    printf "# GETTEXT POISON #" >expect &&\n'> 
          <'    eval_gettext "test" >actual &&\n'> <'    test_cmp expect actual &&\n'> <'    printf "# GETTEXT POISON #" >expect &&\n'> 
          <'    eval_gettext "test more words" >actual &&\n'> <'    test_cmp expect actual\n'>
        )
      }
    )
    (C {(test_done)})
  ]
)