" Tests for the swap feature

"" Tests for 'directory' option.
"func Test_swap_directory()
"  if !has("unix")
"    return
"  endif
"  let content = ['start of testfile',
"	      \ 'line 2 Abcdefghij',
"	      \ 'line 3 Abcdefghij',
"	      \ 'end of testfile']
"  call writefile(content, 'Xtest1')
"
"  "  '.', swap file in the same directory as file
"  set dir=.,~
"
"  " Verify that the swap file doesn't exist in the current directory
"  call assert_equal([], glob(".Xtest1*.swp", 1, 1, 1))
"  edit Xtest1
"  let swfname = split(execute("swapname"))[0]
"  call assert_equal([swfname], glob(swfname, 1, 1, 1))
"
"  " './dir', swap file in a directory relative to the file
"  set dir=./Xtest2,.,~
"
"  call mkdir("Xtest2")
"  edit Xtest1
"  call assert_equal([], glob(swfname, 1, 1, 1))
"  let swfname = "Xtest2/Xtest1.swp"
"  call assert_equal(swfname, split(execute("swapname"))[0])
"  call assert_equal([swfname], glob("Xtest2/*", 1, 1, 1))
"
"  " 'dir', swap file in directory relative to the current dir
"  set dir=Xtest.je,~
"
"  call mkdir("Xtest.je")
"  call writefile(content, 'Xtest2/Xtest3')
"  edit Xtest2/Xtest3
"  call assert_equal(["Xtest2/Xtest3"], glob("Xtest2/*", 1, 1, 1))
"  let swfname = "Xtest.je/Xtest3.swp"
"  call assert_equal(swfname, split(execute("swapname"))[0])
"  call assert_equal([swfname], glob("Xtest.je/*", 1, 1, 1))
"
"  set dir&
"  call delete("Xtest1")
"  call delete("Xtest2", "rf")
"  call delete("Xtest.je", "rf")
"endfunc

func Test_swap_group()
  if !has("unix")
    return
  endif
  let groups = split(system('groups'))
  if len(groups) <= 1
    throw 'Skipped: need at least two groups, got ' . string(groups)
  endif

  call delete('Xtest')
  split Xtest
  call setline(1, 'just some text')
  wq
  if system('ls -l Xtest') !~ ' ' . groups[0] . ' \d'
    throw 'Skipped: test file does not have the first group'
  else
    silent !chmod 640 Xtest
    call system('chgrp ' . groups[1] . ' Xtest')
    if system('ls -l Xtest') !~ ' ' . groups[1] . ' \d'
      throw 'Skipped: cannot set second group on test file'
    else
      split Xtest
      let swapname = substitute(execute('swapname'), '[[:space:]]', '', 'g')
      call assert_match('Xtest', swapname)
      " Group of swapfile must now match original file.
      call assert_match(' ' . groups[1] . ' \d', system('ls -l ' . swapname))

      bwipe!
    endif
  endif

  call delete('Xtest')
endfunc