(command.CommandList
  children: [
    (command.Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (lhs_expr.LhsName name:test_description)
          op: Equal
          rhs: {(DQ ("The Git C functions aren't broken by setlocale(3)"))}
        )
      ]
    )
    (C {(.)} {(./lib-gettext.sh)})
    (C {(test_expect_success)} {(SQ <'git show a ISO-8859-1 commit under C locale'>)} 
      {
        (SQ <'\n'> <'\t. "$TEST_DIRECTORY"/t3901-8859-1.txt &&\n'> 
          <'\ttest_commit "iso-c-commit" iso-under-c &&\n'> <'\tgit show >out 2>err &&\n'> <'\t! test -s err &&\n'> <'\tgrep -q "iso-c-commit" out\n'>
        )
      }
    )
    (C {(test_expect_success)} {(GETTEXT_LOCALE)} 
      {(SQ <'git show a ISO-8859-1 commit under a UTF-8 locale'>)} 
      {
        (SQ <'\n'> <'\t. "$TEST_DIRECTORY"/t3901-8859-1.txt &&\n'> 
          <'\ttest_commit "iso-utf8-commit" iso-under-utf8 &&\n'> <'\tLANGUAGE=is LC_ALL="$is_IS_locale" git show >out 2>err &&\n'> <'\t! test -s err &&\n'> 
          <'\tgrep -q "iso-utf8-commit" out\n'>
        )
      }
    )
    (C {(test_done)})
  ]
)