#!/bin/sh
#
# Copyright (c) 2010 Ævar Arnfjörð Bjarmason
#

global test_description := ''Gettext Shell poison''

source ./lib-gettext.sh

test_expect_success GETTEXT_POISON "sanity: \$GIT_INTERNAL_GETTEXT_SH_SCHEME is set (to $GIT_INTERNAL_GETTEXT_SH_SCHEME)" '
    test -n "$GIT_INTERNAL_GETTEXT_SH_SCHEME"
'

test_expect_success GETTEXT_POISON 'sanity: $GIT_INTERNAL_GETTEXT_SH_SCHEME" is poison' '
    test "$GIT_INTERNAL_GETTEXT_SH_SCHEME" = "poison"
'

test_expect_success GETTEXT_POISON 'gettext: our gettext() fallback has poison semantics' '
    printf "# GETTEXT POISON #" >expect &&
    gettext "test" >actual &&
    test_cmp expect actual &&
    printf "# GETTEXT POISON #" >expect &&
    gettext "test more words" >actual &&
    test_cmp expect actual
'

test_expect_success GETTEXT_POISON 'eval_gettext: our eval_gettext() fallback has poison semantics' '
    printf "# GETTEXT POISON #" >expect &&
    eval_gettext "test" >actual &&
    test_cmp expect actual &&
    printf "# GETTEXT POISON #" >expect &&
    eval_gettext "test more words" >actual &&
    test_cmp expect actual
'

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