#!/bin/sh

global test_description := ''support for reading config from a blob''
source ./test-lib.sh

test_expect_success 'create config blob' '
	cat >config <<-\EOF &&
	[some]
		value = 1
	EOF
	git add config &&
	git commit -m foo
'

test_expect_success 'list config blob contents' '
	echo some.value=1 >expect &&
	git config --blob=HEAD:config --list >actual &&
	test_cmp expect actual
'

test_expect_success 'fetch value from blob' '
	echo true >expect &&
	git config --blob=HEAD:config --bool some.value >actual &&
	test_cmp expect actual
'

test_expect_success 'reading non-existing value from blob is an error' '
	test_must_fail git config --blob=HEAD:config non.existing
'

test_expect_success 'reading from blob and file is an error' '
	test_must_fail git config --blob=HEAD:config --system --list
'

test_expect_success 'reading from missing ref is an error' '
	test_must_fail git config --blob=HEAD:doesnotexist --list
'

test_expect_success 'reading from non-blob is an error' '
	test_must_fail git config --blob=HEAD --list
'

test_expect_success 'setting a value in a blob is an error' '
	test_must_fail git config --blob=HEAD:config some.value foo
'

test_expect_success 'deleting a value in a blob is an error' '
	test_must_fail git config --blob=HEAD:config --unset some.value
'

test_expect_success 'editing a blob is an error' '
	test_must_fail git config --blob=HEAD:config --edit
'

test_expect_success 'parse errors in blobs are properly attributed' '
	cat >config <<-\EOF &&
	[some]
		value = "
	EOF
	git add config &&
	git commit -m broken &&

	test_must_fail git config --blob=HEAD:config some.value 2>err &&
	test_i18ngrep "HEAD:config" err
'

test_expect_success 'can parse blob ending with CR' '
	printf "[some]key = value\\r" >config &&
	git add config &&
	git commit -m CR &&
	echo value >expect &&
	git config --blob=HEAD:config some.key >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 <"support for reading config from a blob">)}
          spids: [4]
        )
      ]
      spids: [4]
    )
    (C {(.)} {(./test-lib.sh)})
    (C {(test_expect_success)} {(SQ <"create config blob">)} 
      {
        (SQ <"\n"> <"\tcat >config <<-\\EOF &&\n"> <"\t[some]\n"> <"\t\tvalue = 1\n"> <"\tEOF\n"> 
          <"\tgit add config &&\n"> <"\tgit commit -m foo\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"list config blob contents">)} 
      {
        (SQ <"\n"> <"\techo some.value=1 >expect &&\n"> 
          <"\tgit config --blob=HEAD:config --list >actual &&\n"> <"\ttest_cmp expect actual\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"fetch value from blob">)} 
      {
        (SQ <"\n"> <"\techo true >expect &&\n"> 
          <"\tgit config --blob=HEAD:config --bool some.value >actual &&\n"> <"\ttest_cmp expect actual\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"reading non-existing value from blob is an error">)} 
      {(SQ <"\n"> <"\ttest_must_fail git config --blob=HEAD:config non.existing\n">)}
    )
    (C {(test_expect_success)} {(SQ <"reading from blob and file is an error">)} 
      {(SQ <"\n"> <"\ttest_must_fail git config --blob=HEAD:config --system --list\n">)}
    )
    (C {(test_expect_success)} {(SQ <"reading from missing ref is an error">)} 
      {(SQ <"\n"> <"\ttest_must_fail git config --blob=HEAD:doesnotexist --list\n">)}
    )
    (C {(test_expect_success)} {(SQ <"reading from non-blob is an error">)} 
      {(SQ <"\n"> <"\ttest_must_fail git config --blob=HEAD --list\n">)}
    )
    (C {(test_expect_success)} {(SQ <"setting a value in a blob is an error">)} 
      {(SQ <"\n"> <"\ttest_must_fail git config --blob=HEAD:config some.value foo\n">)}
    )
    (C {(test_expect_success)} {(SQ <"deleting a value in a blob is an error">)} 
      {(SQ <"\n"> <"\ttest_must_fail git config --blob=HEAD:config --unset some.value\n">)}
    )
    (C {(test_expect_success)} {(SQ <"editing a blob is an error">)} 
      {(SQ <"\n"> <"\ttest_must_fail git config --blob=HEAD:config --edit\n">)}
    )
    (C {(test_expect_success)} {(SQ <"parse errors in blobs are properly attributed">)} 
      {
        (SQ <"\n"> <"\tcat >config <<-\\EOF &&\n"> <"\t[some]\n"> <"\t\tvalue = \"\n"> <"\tEOF\n"> 
          <"\tgit add config &&\n"> <"\tgit commit -m broken &&\n"> <"\n"> 
          <"\ttest_must_fail git config --blob=HEAD:config some.value 2>err &&\n"> <"\ttest_i18ngrep \"HEAD:config\" err\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"can parse blob ending with CR">)} 
      {
        (SQ <"\n"> <"\tprintf \"[some]key = value\\\\r\" >config &&\n"> <"\tgit add config &&\n"> 
          <"\tgit commit -m CR &&\n"> <"\techo value >expect &&\n"> <"\tgit config --blob=HEAD:config some.key >actual &&\n"> 
          <"\ttest_cmp expect actual\n">
        )
      }
    )
    (C {(test_done)})
  ]
)