diff options
| author | Tino Calancha | 2017-08-15 15:43:16 +0900 |
|---|---|---|
| committer | Tino Calancha | 2017-08-15 15:43:31 +0900 |
| commit | 66b75d3f2002459edccd241af57c63b380b192d3 (patch) | |
| tree | 5f11c7be13334e555cc255d2d333616b44d47fb3 /test | |
| parent | 97460582e2d0052f27d342ddb90309dc3da700b8 (diff) | |
| download | emacs-66b75d3f2002459edccd241af57c63b380b192d3.tar.gz emacs-66b75d3f2002459edccd241af57c63b380b192d3.zip | |
archive-int-to-mode: Fix order of testing S_ISUID, S_ISGID bits
* lisp/arc-mode.el (archive-int-to-mode):
Swap order of 2048 and 1024 tests (Bug#28092).
* test/lisp/arc-mode-tests.el (arc-mode-test-archive-int-to-mode):
Update test.
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/arc-mode-tests.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/test/lisp/arc-mode-tests.el b/test/lisp/arc-mode-tests.el index 04047bab62d..8c8465d3669 100644 --- a/test/lisp/arc-mode-tests.el +++ b/test/lisp/arc-mode-tests.el | |||
| @@ -27,7 +27,8 @@ | |||
| 27 | (cons 420 "-rw-r--r--") | 27 | (cons 420 "-rw-r--r--") |
| 28 | (cons 292 "-r--r--r--") | 28 | (cons 292 "-r--r--r--") |
| 29 | (cons 512 "----------") | 29 | (cons 512 "----------") |
| 30 | (cons 1024 "---S------")))) | 30 | (cons 1024 "------S---") ; Bug#28092 |
| 31 | (cons 2048 "---S------")))) | ||
| 31 | (dolist (x alist) | 32 | (dolist (x alist) |
| 32 | (should (equal (cdr x) (archive-int-to-mode (car x))))))) | 33 | (should (equal (cdr x) (archive-int-to-mode (car x))))))) |
| 33 | 34 | ||