Mercurial > hg > xemacs-beta

annotate tests/automated/dired-tests.el @ 5818:15b0715c204d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Avoid passing patterns to with charset property to FcNameUnparse. Prevents crash reported by Raymond Toy.
author Stephen J. Turnbull <stephen@xemacs.org>
date Sat, 18 Oct 2014 21:20:42 +0900
parents c30fdcab7bc8
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
5733
c30fdcab7bc8 Added optional argument ID-FORMAT to file-attributes for GNU compatibility.
Mats Lidell <mats.lidell@cag.se>
parents:
diff changeset
1 ;; Copyright (C) 2013 Free Software Foundation, Inc.
c30fdcab7bc8 Added optional argument ID-FORMAT to file-attributes for GNU compatibility.
Mats Lidell <mats.lidell@cag.se>
parents:
diff changeset
2
c30fdcab7bc8 Added optional argument ID-FORMAT to file-attributes for GNU compatibility.
Mats Lidell <mats.lidell@cag.se>
parents:
diff changeset
3 ;; Author: Mats Lidell <matsl@xemacs.org>
c30fdcab7bc8 Added optional argument ID-FORMAT to file-attributes for GNU compatibility.
Mats Lidell <mats.lidell@cag.se>
parents:
diff changeset
4 ;; Maintainer:
c30fdcab7bc8 Added optional argument ID-FORMAT to file-attributes for GNU compatibility.
Mats Lidell <mats.lidell@cag.se>
parents:
diff changeset
5 ;; Created: 2013
c30fdcab7bc8 Added optional argument ID-FORMAT to file-attributes for GNU compatibility.
Mats Lidell <mats.lidell@cag.se>
parents:
diff changeset
6 ;; Keywords: tests
c30fdcab7bc8 Added optional argument ID-FORMAT to file-attributes for GNU compatibility.
Mats Lidell <mats.lidell@cag.se>
parents:
diff changeset
7
c30fdcab7bc8 Added optional argument ID-FORMAT to file-attributes for GNU compatibility.
Mats Lidell <mats.lidell@cag.se>
parents:
diff changeset
8 ;; This file is part of XEmacs.
c30fdcab7bc8 Added optional argument ID-FORMAT to file-attributes for GNU compatibility.
Mats Lidell <mats.lidell@cag.se>
parents:
diff changeset
9
c30fdcab7bc8 Added optional argument ID-FORMAT to file-attributes for GNU compatibility.
Mats Lidell <mats.lidell@cag.se>
parents:
diff changeset
10 ;; XEmacs is free software: you can redistribute it and/or modify it
c30fdcab7bc8 Added optional argument ID-FORMAT to file-attributes for GNU compatibility.
Mats Lidell <mats.lidell@cag.se>
parents:
diff changeset
11 ;; under the terms of the GNU General Public License as published by the
c30fdcab7bc8 Added optional argument ID-FORMAT to file-attributes for GNU compatibility.
Mats Lidell <mats.lidell@cag.se>
parents:
diff changeset
12 ;; Free Software Foundation, either version 3 of the License, or (at your
c30fdcab7bc8 Added optional argument ID-FORMAT to file-attributes for GNU compatibility.
Mats Lidell <mats.lidell@cag.se>
parents:
diff changeset
13 ;; option) any later version.
c30fdcab7bc8 Added optional argument ID-FORMAT to file-attributes for GNU compatibility.
Mats Lidell <mats.lidell@cag.se>
parents:
diff changeset
14
c30fdcab7bc8 Added optional argument ID-FORMAT to file-attributes for GNU compatibility.
Mats Lidell <mats.lidell@cag.se>
parents:
diff changeset
15 ;; XEmacs is distributed in the hope that it will be useful, but WITHOUT
c30fdcab7bc8 Added optional argument ID-FORMAT to file-attributes for GNU compatibility.
Mats Lidell <mats.lidell@cag.se>
parents:
diff changeset
16 ;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
c30fdcab7bc8 Added optional argument ID-FORMAT to file-attributes for GNU compatibility.
Mats Lidell <mats.lidell@cag.se>
parents:
diff changeset
17 ;; FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
c30fdcab7bc8 Added optional argument ID-FORMAT to file-attributes for GNU compatibility.
Mats Lidell <mats.lidell@cag.se>
parents:
diff changeset
18 ;; for more details.
c30fdcab7bc8 Added optional argument ID-FORMAT to file-attributes for GNU compatibility.
Mats Lidell <mats.lidell@cag.se>
parents:
diff changeset
19
c30fdcab7bc8 Added optional argument ID-FORMAT to file-attributes for GNU compatibility.
Mats Lidell <mats.lidell@cag.se>
parents:
diff changeset
20 ;; You should have received a copy of the GNU General Public License
c30fdcab7bc8 Added optional argument ID-FORMAT to file-attributes for GNU compatibility.
Mats Lidell <mats.lidell@cag.se>
parents:
diff changeset
21 ;; along with XEmacs. If not, see <http://www.gnu.org/licenses/>.
c30fdcab7bc8 Added optional argument ID-FORMAT to file-attributes for GNU compatibility.
Mats Lidell <mats.lidell@cag.se>
parents:
diff changeset
22
c30fdcab7bc8 Added optional argument ID-FORMAT to file-attributes for GNU compatibility.
Mats Lidell <mats.lidell@cag.se>
parents:
diff changeset
23 ;;; Synched up with: Not in FSF.
c30fdcab7bc8 Added optional argument ID-FORMAT to file-attributes for GNU compatibility.
Mats Lidell <mats.lidell@cag.se>
parents:
diff changeset
24
c30fdcab7bc8 Added optional argument ID-FORMAT to file-attributes for GNU compatibility.
Mats Lidell <mats.lidell@cag.se>
parents:
diff changeset
25 ;;; Commentary:
c30fdcab7bc8 Added optional argument ID-FORMAT to file-attributes for GNU compatibility.
Mats Lidell <mats.lidell@cag.se>
parents:
diff changeset
26
c30fdcab7bc8 Added optional argument ID-FORMAT to file-attributes for GNU compatibility.
Mats Lidell <mats.lidell@cag.se>
parents:
diff changeset
27 ;; Test tag support.
c30fdcab7bc8 Added optional argument ID-FORMAT to file-attributes for GNU compatibility.
Mats Lidell <mats.lidell@cag.se>
parents:
diff changeset
28 ;; See test-harness.el for instructions on how to run these tests.
c30fdcab7bc8 Added optional argument ID-FORMAT to file-attributes for GNU compatibility.
Mats Lidell <mats.lidell@cag.se>
parents:
diff changeset
29
c30fdcab7bc8 Added optional argument ID-FORMAT to file-attributes for GNU compatibility.
Mats Lidell <mats.lidell@cag.se>
parents:
diff changeset
30 (require 'test-harness)
c30fdcab7bc8 Added optional argument ID-FORMAT to file-attributes for GNU compatibility.
Mats Lidell <mats.lidell@cag.se>
parents:
diff changeset
31
c30fdcab7bc8 Added optional argument ID-FORMAT to file-attributes for GNU compatibility.
Mats Lidell <mats.lidell@cag.se>
parents:
diff changeset
32 (let* ((test-file-name (make-temp-file "dired-test"))
c30fdcab7bc8 Added optional argument ID-FORMAT to file-attributes for GNU compatibility.
Mats Lidell <mats.lidell@cag.se>
parents:
diff changeset
33 (attr (file-attributes test-file-name)))
c30fdcab7bc8 Added optional argument ID-FORMAT to file-attributes for GNU compatibility.
Mats Lidell <mats.lidell@cag.se>
parents:
diff changeset
34 (Assert (equal (nth 0 attr) nil))
c30fdcab7bc8 Added optional argument ID-FORMAT to file-attributes for GNU compatibility.
Mats Lidell <mats.lidell@cag.se>
parents:
diff changeset
35 (Assert (equal (nth 1 attr) 1))
c30fdcab7bc8 Added optional argument ID-FORMAT to file-attributes for GNU compatibility.
Mats Lidell <mats.lidell@cag.se>
parents:
diff changeset
36 (Assert (numberp (nth 2 attr)))
c30fdcab7bc8 Added optional argument ID-FORMAT to file-attributes for GNU compatibility.
Mats Lidell <mats.lidell@cag.se>
parents:
diff changeset
37 (Assert (equal (nth 2 attr) (user-uid)))
c30fdcab7bc8 Added optional argument ID-FORMAT to file-attributes for GNU compatibility.
Mats Lidell <mats.lidell@cag.se>
parents:
diff changeset
38 (Assert (numberp (nth 3 attr)))
c30fdcab7bc8 Added optional argument ID-FORMAT to file-attributes for GNU compatibility.
Mats Lidell <mats.lidell@cag.se>
parents:
diff changeset
39 (Assert (equal (nth 4 attr) (nth 5 attr)))
c30fdcab7bc8 Added optional argument ID-FORMAT to file-attributes for GNU compatibility.
Mats Lidell <mats.lidell@cag.se>
parents:
diff changeset
40 (Assert (equal (nth 4 attr) (nth 6 attr)))
c30fdcab7bc8 Added optional argument ID-FORMAT to file-attributes for GNU compatibility.
Mats Lidell <mats.lidell@cag.se>
parents:
diff changeset
41 (Assert (equal (nth 7 attr) 0)))
c30fdcab7bc8 Added optional argument ID-FORMAT to file-attributes for GNU compatibility.
Mats Lidell <mats.lidell@cag.se>
parents:
diff changeset
42
c30fdcab7bc8 Added optional argument ID-FORMAT to file-attributes for GNU compatibility.
Mats Lidell <mats.lidell@cag.se>
parents:
diff changeset
43 ;; Optional ID-FORMAT set -> uid and gid are strings
c30fdcab7bc8 Added optional argument ID-FORMAT to file-attributes for GNU compatibility.
Mats Lidell <mats.lidell@cag.se>
parents:
diff changeset
44 (let* ((test-file-name (make-temp-file "dired-test"))
c30fdcab7bc8 Added optional argument ID-FORMAT to file-attributes for GNU compatibility.
Mats Lidell <mats.lidell@cag.se>
parents:
diff changeset
45 (attr (file-attributes test-file-name t)))
c30fdcab7bc8 Added optional argument ID-FORMAT to file-attributes for GNU compatibility.
Mats Lidell <mats.lidell@cag.se>
parents:
diff changeset
46 (Assert (equal (nth 0 attr) nil))
c30fdcab7bc8 Added optional argument ID-FORMAT to file-attributes for GNU compatibility.
Mats Lidell <mats.lidell@cag.se>
parents:
diff changeset
47 (Assert (equal (nth 1 attr) 1))
c30fdcab7bc8 Added optional argument ID-FORMAT to file-attributes for GNU compatibility.
Mats Lidell <mats.lidell@cag.se>
parents:
diff changeset
48 (Assert (stringp (nth 2 attr)))
c30fdcab7bc8 Added optional argument ID-FORMAT to file-attributes for GNU compatibility.
Mats Lidell <mats.lidell@cag.se>
parents:
diff changeset
49 (Assert (equal (nth 2 attr) (user-login-name)))
c30fdcab7bc8 Added optional argument ID-FORMAT to file-attributes for GNU compatibility.
Mats Lidell <mats.lidell@cag.se>
parents:
diff changeset
50 (Assert (stringp (nth 3 attr)))
c30fdcab7bc8 Added optional argument ID-FORMAT to file-attributes for GNU compatibility.
Mats Lidell <mats.lidell@cag.se>
parents:
diff changeset
51 (Assert (equal (nth 4 attr) (nth 5 attr)))
c30fdcab7bc8 Added optional argument ID-FORMAT to file-attributes for GNU compatibility.
Mats Lidell <mats.lidell@cag.se>
parents:
diff changeset
52 (Assert (equal (nth 4 attr) (nth 6 attr)))
c30fdcab7bc8 Added optional argument ID-FORMAT to file-attributes for GNU compatibility.
Mats Lidell <mats.lidell@cag.se>
parents:
diff changeset
53 (Assert (equal (nth 7 attr) 0)))