3 files changed, 76 insertions, 0 deletions

diff --git a/test/data/xdg/test.desktop b/test/data/xdg/test.desktop
new file mode 100644
index 00000000000..b6dda62774a
--- /dev/null
+++ b/test/data/xdg/test.desktop
@@ -0,0 +1,3 @@
+# this is a comment
+[Desktop Entry]
+Name=Test
diff --git a/test/data/xdg/wrong.desktop b/test/data/xdg/wrong.desktop
new file mode 100644
index 00000000000..e0b4c221cf9
--- /dev/null
+++ b/test/data/xdg/wrong.desktop
@@ -0,0 +1,2 @@
+# the first section must be "Desktop Entry"
+[Why]
diff --git a/test/lisp/xdg-tests.el b/test/lisp/xdg-tests.el
new file mode 100644
index 00000000000..e7e122b54ee
--- /dev/null
+++ b/test/lisp/xdg-tests.el
@@ -0,0 +1,71 @@
+;;; xdg-tests.el --- tests for xdg.el -*- lexical-binding: t -*-
+
+;; Copyright (C) 2017  Free Software Foundation, Inc.
+
+;; Maintainer: emacs-devel@gnu.org
+
+;; Author: Mark Oteiza <mvoteiza@udel.edu>
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;;; Code:
+
+(require 'ert)
+(require 'xdg)
+
+(defconst xdg-tests-data-dir
+  (expand-file-name "test/data/xdg" source-directory))
+
+(ert-deftest xdg-match-data ()
+  "Ensure public functions do not mangle match data."
+  (let ((data '(1 9)))
+    (save-match-data
+      (set-match-data data)
+      (xdg-user-dir "DOCUMENTS")
+      (should (equal (match-data) data))))
+  (let ((data '(2 9)))
+    (save-match-data
+      (set-match-data data)
+      (xdg-desktop-read-file (expand-file-name "test.desktop" xdg-tests-data-dir))
+      (should (equal (match-data) data))))
+  (let ((data '(3 9)))
+    (save-match-data
+      (set-match-data data)
+      (xdg-desktop-strings "a;b")
+      (should (equal (match-data) data)))))
+
+(ert-deftest xdg-desktop-parsing ()
+  "Test `xdg-desktop-read-file' parsing of .desktop files."
+  (let ((tab (xdg-desktop-read-file
+              (expand-file-name "test.desktop" xdg-tests-data-dir))))
+    (should (equal (gethash "Name" tab) "Test")))
+  (should-error
+   (xdg-desktop-read-file
+    (expand-file-name "wrong.desktop" xdg-tests-data-dir))))
+
+(ert-deftest xdg-desktop-strings-type ()
+  "Test desktop \"string(s)\" type: strings delimited by \";\"."
+  (should (equal (xdg-desktop-strings " a") '("a")))
+  (should (equal (xdg-desktop-strings "a;b") '("a" "b")))
+  (should (equal (xdg-desktop-strings "a;b;") '("a" "b")))
+  (should (equal (xdg-desktop-strings "\\;") '(";")))
+  (should (equal (xdg-desktop-strings ";") '("")))
+  (should (equal (xdg-desktop-strings " ") nil))
+  (should (equal (xdg-desktop-strings "a; ;") '("a" " "))))
+
+;;; xdg-tests.el ends here