#!/bin/sh

global test_description := ''test case exclude pathspec''

source ./test-lib.sh

test_expect_success 'setup' '
	for p in file sub/file sub/sub/file sub/file2 sub/sub/sub/file sub2/file; do
		if echo $p | grep /; then
			mkdir -p $(dirname $p)
		fi &&
		: >$p &&
		git add $p &&
		git commit -m $p
	done &&
	git log --oneline --format=%s >actual &&
	cat <<EOF >expect &&
sub2/file
sub/sub/sub/file
sub/file2
sub/sub/file
sub/file
file
EOF
	test_cmp expect actual
'

test_expect_success 'exclude only should error out' '
	test_must_fail git log --oneline --format=%s -- ":(exclude)sub"
'

test_expect_success 't_e_i() exclude sub' '
	git log --oneline --format=%s -- . ":(exclude)sub" >actual &&
	cat <<EOF >expect &&
sub2/file
file
EOF
	test_cmp expect actual
'

test_expect_success 't_e_i() exclude sub/sub/file' '
	git log --oneline --format=%s -- . ":(exclude)sub/sub/file" >actual &&
	cat <<EOF >expect &&
sub2/file
sub/sub/sub/file
sub/file2
sub/file
file
EOF
	test_cmp expect actual
'

test_expect_success 't_e_i() exclude sub using mnemonic' '
	git log --oneline --format=%s -- . ":!sub" >actual &&
	cat <<EOF >expect &&
sub2/file
file
EOF
	test_cmp expect actual
'

test_expect_success 't_e_i() exclude :(icase)SUB' '
	git log --oneline --format=%s -- . ":(exclude,icase)SUB" >actual &&
	cat <<EOF >expect &&
sub2/file
file
EOF
	test_cmp expect actual
'

test_expect_success 't_e_i() exclude sub2 from sub' '
	(
	cd sub &&
	git log --oneline --format=%s -- :/ ":/!sub2" >actual &&
	cat <<EOF >expect &&
sub/sub/sub/file
sub/file2
sub/sub/file
sub/file
file
EOF
	test_cmp expect actual
	)
'

test_expect_success 't_e_i() exclude sub/*file' '
	git log --oneline --format=%s -- . ":(exclude)sub/*file" >actual &&
	cat <<EOF >expect &&
sub2/file
sub/file2
file
EOF
	test_cmp expect actual
'

test_expect_success 't_e_i() exclude :(glob)sub/*/file' '
	git log --oneline --format=%s -- . ":(exclude,glob)sub/*/file" >actual &&
	cat <<EOF >expect &&
sub2/file
sub/sub/sub/file
sub/file2
sub/file
file
EOF
	test_cmp expect actual
'

test_expect_success 'm_p_d() exclude sub' '
	git ls-files -- . ":(exclude)sub" >actual &&
	cat <<EOF >expect &&
file
sub2/file
EOF
	test_cmp expect actual
'

test_expect_success 'm_p_d() exclude sub/sub/file' '
	git ls-files -- . ":(exclude)sub/sub/file" >actual &&
	cat <<EOF >expect &&
file
sub/file
sub/file2
sub/sub/sub/file
sub2/file
EOF
	test_cmp expect actual
'

test_expect_success 'm_p_d() exclude sub using mnemonic' '
	git ls-files -- . ":!sub" >actual &&
	cat <<EOF >expect &&
file
sub2/file
EOF
	test_cmp expect actual
'

test_expect_success 'm_p_d() exclude :(icase)SUB' '
	git ls-files -- . ":(exclude,icase)SUB" >actual &&
	cat <<EOF >expect &&
file
sub2/file
EOF
	test_cmp expect actual
'

test_expect_success 'm_p_d() exclude sub2 from sub' '
	(
	cd sub &&
	git ls-files -- :/ ":/!sub2" >actual &&
	cat <<EOF >expect &&
../file
file
file2
sub/file
sub/sub/file
EOF
	test_cmp expect actual
	)
'

test_expect_success 'm_p_d() exclude sub/*file' '
	git ls-files -- . ":(exclude)sub/*file" >actual &&
	cat <<EOF >expect &&
file
sub/file2
sub2/file
EOF
	test_cmp expect actual
'

test_expect_success 'm_p_d() exclude :(glob)sub/*/file' '
	git ls-files -- . ":(exclude,glob)sub/*/file" >actual &&
	cat <<EOF >expect &&
file
sub/file
sub/file2
sub/sub/sub/file
sub2/file
EOF
	test_cmp expect actual
'

test_done
(CommandList
  children: [
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:test_description)
          op: Equal
          rhs: {(SQ <"test case exclude pathspec">)}
          spids: [4]
        )
      ]
      spids: [4]
    )
    (C {(.)} {(./test-lib.sh)})
    (C {(test_expect_success)} {(SQ <setup>)} 
      {
        (SQ <"\n"> 
          <"\tfor p in file sub/file sub/sub/file sub/file2 sub/sub/sub/file sub2/file; do\n"> <"\t\tif echo $p | grep /; then\n"> <"\t\t\tmkdir -p $(dirname $p)\n"> <"\t\tfi &&\n"> 
          <"\t\t: >$p &&\n"> <"\t\tgit add $p &&\n"> <"\t\tgit commit -m $p\n"> <"\tdone &&\n"> 
          <"\tgit log --oneline --format=%s >actual &&\n"> <"\tcat <<EOF >expect &&\n"> <"sub2/file\n"> <"sub/sub/sub/file\n"> <"sub/file2\n"> <"sub/sub/file\n"> 
          <"sub/file\n"> <"file\n"> <"EOF\n"> <"\ttest_cmp expect actual\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"exclude only should error out">)} 
      {(SQ <"\n"> <"\ttest_must_fail git log --oneline --format=%s -- \":(exclude)sub\"\n">)}
    )
    (C {(test_expect_success)} {(SQ <"t_e_i() exclude sub">)} 
      {
        (SQ <"\n"> <"\tgit log --oneline --format=%s -- . \":(exclude)sub\" >actual &&\n"> 
          <"\tcat <<EOF >expect &&\n"> <"sub2/file\n"> <"file\n"> <"EOF\n"> <"\ttest_cmp expect actual\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"t_e_i() exclude sub/sub/file">)} 
      {
        (SQ <"\n"> <"\tgit log --oneline --format=%s -- . \":(exclude)sub/sub/file\" >actual &&\n"> 
          <"\tcat <<EOF >expect &&\n"> <"sub2/file\n"> <"sub/sub/sub/file\n"> <"sub/file2\n"> <"sub/file\n"> <"file\n"> <"EOF\n"> 
          <"\ttest_cmp expect actual\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"t_e_i() exclude sub using mnemonic">)} 
      {
        (SQ <"\n"> <"\tgit log --oneline --format=%s -- . \":!sub\" >actual &&\n"> 
          <"\tcat <<EOF >expect &&\n"> <"sub2/file\n"> <"file\n"> <"EOF\n"> <"\ttest_cmp expect actual\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"t_e_i() exclude :(icase)SUB">)} 
      {
        (SQ <"\n"> <"\tgit log --oneline --format=%s -- . \":(exclude,icase)SUB\" >actual &&\n"> 
          <"\tcat <<EOF >expect &&\n"> <"sub2/file\n"> <"file\n"> <"EOF\n"> <"\ttest_cmp expect actual\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"t_e_i() exclude sub2 from sub">)} 
      {
        (SQ <"\n"> <"\t(\n"> <"\tcd sub &&\n"> 
          <"\tgit log --oneline --format=%s -- :/ \":/!sub2\" >actual &&\n"> <"\tcat <<EOF >expect &&\n"> <"sub/sub/sub/file\n"> <"sub/file2\n"> <"sub/sub/file\n"> <"sub/file\n"> 
          <"file\n"> <"EOF\n"> <"\ttest_cmp expect actual\n"> <"\t)\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"t_e_i() exclude sub/*file">)} 
      {
        (SQ <"\n"> <"\tgit log --oneline --format=%s -- . \":(exclude)sub/*file\" >actual &&\n"> 
          <"\tcat <<EOF >expect &&\n"> <"sub2/file\n"> <"sub/file2\n"> <"file\n"> <"EOF\n"> <"\ttest_cmp expect actual\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"t_e_i() exclude :(glob)sub/*/file">)} 
      {
        (SQ <"\n"> <"\tgit log --oneline --format=%s -- . \":(exclude,glob)sub/*/file\" >actual &&\n"> 
          <"\tcat <<EOF >expect &&\n"> <"sub2/file\n"> <"sub/sub/sub/file\n"> <"sub/file2\n"> <"sub/file\n"> <"file\n"> <"EOF\n"> 
          <"\ttest_cmp expect actual\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"m_p_d() exclude sub">)} 
      {
        (SQ <"\n"> <"\tgit ls-files -- . \":(exclude)sub\" >actual &&\n"> <"\tcat <<EOF >expect &&\n"> 
          <"file\n"> <"sub2/file\n"> <"EOF\n"> <"\ttest_cmp expect actual\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"m_p_d() exclude sub/sub/file">)} 
      {
        (SQ <"\n"> <"\tgit ls-files -- . \":(exclude)sub/sub/file\" >actual &&\n"> 
          <"\tcat <<EOF >expect &&\n"> <"file\n"> <"sub/file\n"> <"sub/file2\n"> <"sub/sub/sub/file\n"> <"sub2/file\n"> <"EOF\n"> 
          <"\ttest_cmp expect actual\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"m_p_d() exclude sub using mnemonic">)} 
      {
        (SQ <"\n"> <"\tgit ls-files -- . \":!sub\" >actual &&\n"> <"\tcat <<EOF >expect &&\n"> 
          <"file\n"> <"sub2/file\n"> <"EOF\n"> <"\ttest_cmp expect actual\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"m_p_d() exclude :(icase)SUB">)} 
      {
        (SQ <"\n"> <"\tgit ls-files -- . \":(exclude,icase)SUB\" >actual &&\n"> 
          <"\tcat <<EOF >expect &&\n"> <"file\n"> <"sub2/file\n"> <"EOF\n"> <"\ttest_cmp expect actual\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"m_p_d() exclude sub2 from sub">)} 
      {
        (SQ <"\n"> <"\t(\n"> <"\tcd sub &&\n"> <"\tgit ls-files -- :/ \":/!sub2\" >actual &&\n"> 
          <"\tcat <<EOF >expect &&\n"> <"../file\n"> <"file\n"> <"file2\n"> <"sub/file\n"> <"sub/sub/file\n"> <"EOF\n"> 
          <"\ttest_cmp expect actual\n"> <"\t)\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"m_p_d() exclude sub/*file">)} 
      {
        (SQ <"\n"> <"\tgit ls-files -- . \":(exclude)sub/*file\" >actual &&\n"> 
          <"\tcat <<EOF >expect &&\n"> <"file\n"> <"sub/file2\n"> <"sub2/file\n"> <"EOF\n"> <"\ttest_cmp expect actual\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"m_p_d() exclude :(glob)sub/*/file">)} 
      {
        (SQ <"\n"> <"\tgit ls-files -- . \":(exclude,glob)sub/*/file\" >actual &&\n"> 
          <"\tcat <<EOF >expect &&\n"> <"file\n"> <"sub/file\n"> <"sub/file2\n"> <"sub/sub/sub/file\n"> <"sub2/file\n"> <"EOF\n"> 
          <"\ttest_cmp expect actual\n">
        )
      }
    )
    (C {(test_done)})
  ]
)