(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)})
  ]
)