[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"))