aboutsummaryrefslogtreecommitdiffstats
path: root/test
diff options
context:
space:
mode:
Diffstat (limited to 'test')
-rw-r--r--test/lisp/xdg-tests.el19
1 files changed, 0 insertions, 19 deletions
diff --git a/test/lisp/xdg-tests.el b/test/lisp/xdg-tests.el
index e7e122b54ee..59c850b07af 100644
--- a/test/lisp/xdg-tests.el
+++ b/test/lisp/xdg-tests.el
@@ -3,7 +3,6 @@
3;; Copyright (C) 2017 Free Software Foundation, Inc. 3;; Copyright (C) 2017 Free Software Foundation, Inc.
4 4
5;; Maintainer: emacs-devel@gnu.org 5;; Maintainer: emacs-devel@gnu.org
6
7;; Author: Mark Oteiza <mvoteiza@udel.edu> 6;; Author: Mark Oteiza <mvoteiza@udel.edu>
8 7
9;; This file is part of GNU Emacs. 8;; This file is part of GNU Emacs.
@@ -31,24 +30,6 @@
31(defconst xdg-tests-data-dir 30(defconst xdg-tests-data-dir
32 (expand-file-name "test/data/xdg" source-directory)) 31 (expand-file-name "test/data/xdg" source-directory))
33 32
34(ert-deftest xdg-match-data ()
35 "Ensure public functions do not mangle match data."
36 (let ((data '(1 9)))
37 (save-match-data
38 (set-match-data data)
39 (xdg-user-dir "DOCUMENTS")
40 (should (equal (match-data) data))))
41 (let ((data '(2 9)))
42 (save-match-data
43 (set-match-data data)
44 (xdg-desktop-read-file (expand-file-name "test.desktop" xdg-tests-data-dir))
45 (should (equal (match-data) data))))
46 (let ((data '(3 9)))
47 (save-match-data
48 (set-match-data data)
49 (xdg-desktop-strings "a;b")
50 (should (equal (match-data) data)))))
51
52(ert-deftest xdg-desktop-parsing () 33(ert-deftest xdg-desktop-parsing ()
53 "Test `xdg-desktop-read-file' parsing of .desktop files." 34 "Test `xdg-desktop-read-file' parsing of .desktop files."
54 (let ((tab (xdg-desktop-read-file 35 (let ((tab (xdg-desktop-read-file