diff options
Diffstat (limited to 'test/src')
| -rw-r--r-- | test/src/editfns-tests.el | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/test/src/editfns-tests.el b/test/src/editfns-tests.el index 17b2c510734..6ee0ab09f7b 100644 --- a/test/src/editfns-tests.el +++ b/test/src/editfns-tests.el | |||
| @@ -351,4 +351,11 @@ | |||
| 351 | (should (equal (format "%-#50.40x" v3) | 351 | (should (equal (format "%-#50.40x" v3) |
| 352 | "-0x000000003ffffffffffffffe000000000000000 ")))) | 352 | "-0x000000003ffffffffffffffe000000000000000 ")))) |
| 353 | 353 | ||
| 354 | (ert-deftest group-name () | ||
| 355 | (let ((list `((0 . "root") | ||
| 356 | (1000 . ,(user-login-name 1000)) | ||
| 357 | (1212345 . nil)))) | ||
| 358 | (dolist (test list) | ||
| 359 | (should (equal (group-name (car test)) (cdr test)))))) | ||
| 360 | |||
| 354 | ;;; editfns-tests.el ends here | 361 | ;;; editfns-tests.el ends here |