(command.CommandList
  children: [
    (command.ShAssignment
      pairs: [
        (assign_pair
          lhs: (sh_lhs_expr.Name name:test_description)
          op: assign_op.Equal
          rhs: {(DQ <'The Git C functions aren\'t broken by setlocale(3)'>)}
          spids: [13]
        )
      ]
    )
    (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>})
  ]
)