emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/shell-command+ 75952d8370 1/2: Do not hard-code glob ex


From: ELPA Syncer
Subject: [elpa] externals/shell-command+ 75952d8370 1/2: Do not hard-code glob expansions in tests
Date: Sat, 11 Mar 2023 08:59:38 -0500 (EST)

branch: externals/shell-command+
commit 75952d83704bd1a3fa483b7eabbefef5ab61acf0
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>

    Do not hard-code glob expansions in tests
---
 shell-command+-tests.el | 15 ++++-----------
 1 file changed, 4 insertions(+), 11 deletions(-)

diff --git a/shell-command+-tests.el b/shell-command+-tests.el
index 26ddf50347..f84ce9ae96 100644
--- a/shell-command+-tests.el
+++ b/shell-command+-tests.el
@@ -1,6 +1,6 @@
 ;;; shell-command+-tests.el --- Tests for shell-command+  -*- lexical-binding: 
t; -*-
 
-;; Copyright (C) 2021, 2022  Free Software Foundation, Inc.
+;; Copyright (C) 2021, 2022, 2023  Free Software Foundation, Inc.
 
 ;; Author: Philip Kaludercic <philipk@posteo.net>
 
@@ -166,19 +166,12 @@
 (ert-deftest sc+-tokenize ()
   "Test that `shell-command+-tokenize' works as expected."
   (pcase-dolist (`(,args ,expand ,list)
-                 '(("a b c" nil ("a" "b" "c"))
+                 `(("a b c" nil ("a" "b" "c"))
                    ("a \"b c\" d" nil ("a" "b c" "d"))
                    ("a *.el d" nil ("a" "*.el" "d"))
-                   ("a *.el d" t ("a"
-                                  ".dir-locals.el"
-                                  "shell-command+-tests.el"
-                                  "shell-command+.el"
-                                  "d"))
+                   ("a *.el d" t ("a" ,@(file-expand-wildcards "*.el") "d"))
                    ("a b *.el" nil ("a" "b" "*.el"))
-                   ("a b *.el" t ("a" "b"
-                                  ".dir-locals.el"
-                                  "shell-command+-tests.el"
-                                  "shell-command+.el"))
+                   ("a b *.el" t ("a" "b" ,@(file-expand-wildcards "*.el")))
                    ("a \"*.el\" d" nil ("a" "*.el" "d"))
                    ("a \"*.el\" d" t ("a" "*.el" "d"))
                    ("a \"b\\ c\" d" nil ("a" "b c" "d"))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]