#!/bin/sh
#
# Copyright (c) 2005 Junio C Hamano
#

global test_description := ''git ls-files test (-- to terminate the path list).

This test runs git ls-files --others with the following on the
filesystem.

    path0       - a file
    -foo	- a file with a funny name.
    --		- another file with a funny name.
''
source ./test-lib.sh

test_expect_success \
	setup \
	'echo frotz >path0 &&
	echo frotz >./-foo &&
	echo frotz >./--'

test_expect_success \
    'git ls-files without path restriction.' \
    'git ls-files --others >output &&
     test_cmp output - <<EOF
--
-foo
output
path0
EOF
'

test_expect_success \
    'git ls-files with path restriction.' \
    'git ls-files --others path0 >output &&
	test_cmp output - <<EOF
path0
EOF
'

test_expect_success \
    'git ls-files with path restriction with --.' \
    'git ls-files --others -- path0 >output &&
	test_cmp output - <<EOF
path0
EOF
'

test_expect_success \
    'git ls-files with path restriction with -- --.' \
    'git ls-files --others -- -- >output &&
	test_cmp output - <<EOF
--
EOF
'

test_expect_success \
    'git ls-files with no path restriction.' \
    'git ls-files --others -- >output &&
	test_cmp output - <<EOF
--
-foo
output
path0
EOF
'

test_done
(CommandList
  children: [
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:test_description)
          op: Equal
          rhs: 
            {
              (SQ <"git ls-files test (-- to terminate the path list).\n"> <"\n"> 
                <"This test runs git ls-files --others with the following on the\n"> <"filesystem.\n"> <"\n"> <"    path0       - a file\n"> <"    -foo\t- a file with a funny name.\n"> 
                <"    --\t\t- another file with a funny name.\n">
              )
            }
          spids: [13]
        )
      ]
      spids: [13]
    )
    (C {(.)} {(./test-lib.sh)})
    (C {(test_expect_success)} {(setup)} 
      {(SQ <"echo frotz >path0 &&\n"> <"\techo frotz >./-foo &&\n"> <"\techo frotz >./--">)}
    )
    (C {(test_expect_success)} {(SQ <"git ls-files without path restriction.">)} 
      {
        (SQ <"git ls-files --others >output &&\n"> <"     test_cmp output - <<EOF\n"> <"--\n"> 
          <"-foo\n"> <"output\n"> <"path0\n"> <"EOF\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"git ls-files with path restriction.">)} 
      {
        (SQ <"git ls-files --others path0 >output &&\n"> <"\ttest_cmp output - <<EOF\n"> <"path0\n"> 
          <"EOF\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"git ls-files with path restriction with --.">)} 
      {
        (SQ <"git ls-files --others -- path0 >output &&\n"> <"\ttest_cmp output - <<EOF\n"> <"path0\n"> 
          <"EOF\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"git ls-files with path restriction with -- --.">)} 
      {
        (SQ <"git ls-files --others -- -- >output &&\n"> <"\ttest_cmp output - <<EOF\n"> <"--\n"> 
          <"EOF\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"git ls-files with no path restriction.">)} 
      {
        (SQ <"git ls-files --others -- >output &&\n"> <"\ttest_cmp output - <<EOF\n"> <"--\n"> 
          <"-foo\n"> <"output\n"> <"path0\n"> <"EOF\n">
        )
      }
    )
    (C {(test_done)})
  ]
)