18049253bSBram Moolenaar" Test getting and setting file permissions.
28049253bSBram Moolenaar
38049253bSBram Moolenaarfunc Test_file_perm()
48049253bSBram Moolenaar  call assert_equal('', getfperm('Xtest'))
54c313b13SBram Moolenaar  call assert_equal(0, 'Xtest'->setfperm('r--------'))
68049253bSBram Moolenaar
78049253bSBram Moolenaar  call writefile(['one'], 'Xtest')
84c313b13SBram Moolenaar  call assert_true(len('Xtest'->getfperm()) == 9)
98049253bSBram Moolenaar
108049253bSBram Moolenaar  call assert_equal(1, setfperm('Xtest', 'rwx------'))
118322e1f0SBram Moolenaar  if has('win32')
128322e1f0SBram Moolenaar    call assert_equal('rw-rw-rw-', getfperm('Xtest'))
138322e1f0SBram Moolenaar  else
148049253bSBram Moolenaar    call assert_equal('rwx------', getfperm('Xtest'))
158322e1f0SBram Moolenaar  endif
168049253bSBram Moolenaar
178049253bSBram Moolenaar  call assert_equal(1, setfperm('Xtest', 'r--r--r--'))
188049253bSBram Moolenaar  call assert_equal('r--r--r--', getfperm('Xtest'))
198049253bSBram Moolenaar
208049253bSBram Moolenaar  call assert_fails("setfperm('Xtest', '---')")
218049253bSBram Moolenaar
228049253bSBram Moolenaar  call assert_equal(1, setfperm('Xtest', 'rwx------'))
238049253bSBram Moolenaar  call delete('Xtest')
24*0e05de46SBram Moolenaar
25*0e05de46SBram Moolenaar  call assert_fails("call setfperm(['Xfile'], 'rw-rw-rw-')", 'E730:')
26*0e05de46SBram Moolenaar  call assert_fails("call setfperm('Xfile', [])", 'E730:')
27*0e05de46SBram Moolenaar  call assert_fails("call setfperm('Xfile', 'rwxrwxrwxrw')", 'E475:')
288049253bSBram Moolenaarendfunc
29*0e05de46SBram Moolenaar
30*0e05de46SBram Moolenaar" vim: shiftwidth=2 sts=2 expandtab
31