#!/bin/sh

global test_description := ''ls-files --exclude does not affect index files''
source ./test-lib.sh

test_expect_success 'create repo with file' '
	echo content >file &&
	git add file &&
	git commit -m file &&
	echo modification >file
'

proc check_output {
test_expect_success "ls-files output contains file ($1)" "
	echo '$2' >expect &&
	git ls-files --exclude-standard --$1 >output &&
	test_cmp expect output
"
}

proc check_all_output {
	check_output 'cached' 'file'
	check_output 'modified' 'file'
}

check_all_output
test_expect_success 'add file to gitignore' '
	echo file >.gitignore
'
check_all_output

test_expect_success 'ls-files -i lists only tracked-but-ignored files' '
	echo content >other-file &&
	git add other-file &&
	echo file >expect &&
	git ls-files -i --exclude-standard >output &&
	test_cmp expect output
'

test_done
(CommandList
  children: [
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:test_description)
          op: Equal
          rhs: {(SQ <"ls-files --exclude does not affect index files">)}
          spids: [4]
        )
      ]
      spids: [4]
    )
    (C {(.)} {(./test-lib.sh)})
    (C {(test_expect_success)} {(SQ <"create repo with file">)} 
      {
        (SQ <"\n"> <"\techo content >file &&\n"> <"\tgit add file &&\n"> <"\tgit commit -m file &&\n"> 
          <"\techo modification >file\n">
        )
      }
    )
    (FuncDef
      name: check_output
      body: 
        (BraceGroup
          children: [
            (C {(test_expect_success)} 
              {(DQ ("ls-files output contains file (") ($ VSub_Number "$1") (")"))} 
              {
                (DQ ("\n") ("\techo '") ($ VSub_Number "$2") ("' >expect &&\n") 
                  ("\tgit ls-files --exclude-standard --") ($ VSub_Number "$1") (" >output &&\n") ("\ttest_cmp expect output\n")
                )
              }
            )
          ]
          spids: [33]
        )
      spids: [29 32]
    )
    (FuncDef
      name: check_all_output
      body: 
        (BraceGroup
          children: [
            (C {(check_output)} {(SQ <cached>)} {(SQ <file>)})
            (C {(check_output)} {(SQ <modified>)} {(SQ <file>)})
          ]
          spids: [61]
        )
      spids: [57 60]
    )
    (C {(check_all_output)})
    (C {(test_expect_success)} {(SQ <"add file to gitignore">)} 
      {(SQ <"\n"> <"\techo file >.gitignore\n">)}
    )
    (C {(check_all_output)})
    (C {(test_expect_success)} {(SQ <"ls-files -i lists only tracked-but-ignored files">)} 
      {
        (SQ <"\n"> <"\techo content >other-file &&\n"> <"\tgit add other-file &&\n"> 
          <"\techo file >expect &&\n"> <"\tgit ls-files -i --exclude-standard >output &&\n"> <"\ttest_cmp expect output\n">
        )
      }
    )
    (C {(test_done)})
  ]
)