Fix last change

* src/editfns.c (Fgroup_name): Fix the doc string.  Move
closer to the "group" functions.
* src/w32.c (getgrgid): Return NULL if GID is not the group ID
of the user of this Emacs session

* test/src/editfns-tests.el (test-group-name): Rename from
'group-name'.  Add tests for non-Posix hosts.  Test error when
the argument to group-name is invalid.

* etc/NEWS: Fix wording of last added entry.

1 files changed, 13 insertions, 6 deletions

diff --git a/test/src/editfns-tests.el b/test/src/editfns-tests.el
index 6ee0ab09f7b..7b6c990f350 100644
--- a/test/src/editfns-tests.el
+++ b/test/src/editfns-tests.el
@@ -351,11 +351,18 @@
     (should (equal (format "%-#50.40x" v3)
                    "-0x000000003ffffffffffffffe000000000000000        "))))
 
-(ert-deftest group-name ()
-  (let ((list `((0 . "root")
-                (1000 . ,(user-login-name 1000))
-                (1212345 . nil))))
-    (dolist (test list)
-      (should (equal (group-name (car test)) (cdr test))))))
+(ert-deftest test-group-name ()
+  (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)))))
 
 ;;; editfns-tests.el ends here