mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-17 10:06:13 +00:00
Code Issues Releases Activity

* test/src/editfns-tests.el (test-group-name): Improve test.

Browse Source 
Make more portable and hopefully more robust using getent.  (Bug#33195)
This commit is contained in:
Glenn Morris 2018-11-10 19:13:20 -08:00
parent 1a3d471d87
commit c30f24d03d
1 changed files with 17 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
test/src/editfns-tests.el
View File

@ -352,17 +352,24 @@
"-0x000000003ffffffffffffffe000000000000000 "))))
(ert-deftest test-group-name ()
(should (stringp (group-name (group-gid))))
(should-error (group-name 'foo))
(cond
((memq system-type '(windows-nt ms-dos))
(should (stringp (group-name (group-gid))))
(should-not (group-name 123456789))
(should-error (group-name 'foo)))
(t
(let ((list `((0 . "root")
;;; (1000 . ,(user-login-name 1000))
(1212345 . nil))))
(dolist (test list)
(should (equal (group-name (car test)) (cdr test)))))
(should-error (group-name 'foo)))))
(should-not (group-name 123456789)))
((executable-find "getent")
(with-temp-buffer
(let (stat name)
(dolist (gid (list 0 1212345 (group-gid)))
(erase-buffer)
(setq stat (call-process "getent" nil '(t nil) nil "group"
(number-to-string gid)))
(setq name (group-name gid))
(goto-char (point-min))
(cond ((eq stat 0)
(if (looking-at "\\([[:alnum:]_-]+\\):")
(should (string= (match-string 1) name))))
((eq stat 2)
(should-not name)))))))))
;;; editfns-tests.el ends here