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

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

[elpa] externals/shell-command+ 834c026028 3/4: Disable irrelevant tests


From: ELPA Syncer
Subject: [elpa] externals/shell-command+ 834c026028 3/4: Disable irrelevant tests
Date: Wed, 17 Aug 2022 11:58:09 -0400 (EDT)

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

    Disable irrelevant tests
    
    Due to the modularisation, 'shell-command+-parse' does not perform the
    same functionality as it had done before, so it cannot be tested the
    same way either.
---
 shell-command+-tests.el | 124 ++++++++++++++++++++++++------------------------
 1 file changed, 62 insertions(+), 62 deletions(-)

diff --git a/shell-command+-tests.el b/shell-command+-tests.el
index c1026011fc..c2f4b6a86f 100644
--- a/shell-command+-tests.el
+++ b/shell-command+-tests.el
@@ -54,23 +54,23 @@
     (should (string= command "command"))
     (should (string= rest "command arg arg2"))))
 
-(ert-deftest sc+-path ()
-  "Make sure a simple command with an argument is recognized."
-  (pcase-let* ((`(,path ,mode ,command ,rest)
-                (shell-command+-parse "... command arg arg2")))
-    (should (string= path "..."))
-    (should (null mode))
-    (should (string= command "command"))
-    (should (string= rest "command arg arg2"))))
-
-(ert-deftest sc+-path2 ()
-  "Make sure a simple command with an argument is recognized."
-  (pcase-let* ((`(,path ,mode ,command ,rest)
-                (shell-command+-parse ".../dir command arg arg2")))
-    (should (string= path ".../dir"))
-    (should (null mode))
-    (should (string= command "command"))
-    (should (string= rest "command arg arg2"))))
+;; (ert-deftest sc+-path ()
+;;   "Make sure a simple command with an argument is recognized."
+;;   (pcase-let* ((`(,path ,mode ,command ,rest)
+;;                 (shell-command+-parse "... command arg arg2")))
+;;     (should (string= path "..."))
+;;     (should (null mode))
+;;     (should (string= command "command"))
+;;     (should (string= rest "command arg arg2"))))
+
+;; (ert-deftest sc+-path2 ()
+;;   "Make sure a simple command with an argument is recognized."
+;;   (pcase-let* ((`(,path ,mode ,command ,rest)
+;;                 (shell-command+-parse ".../dir command arg arg2")))
+;;     (should (string= path ".../dir"))
+;;     (should (null mode))
+;;     (should (string= command "command"))
+;;     (should (string= rest "command arg arg2"))))
 
 (ert-deftest sc+-input ()
   "Make sure input is recognized."
@@ -99,51 +99,51 @@
     (should (string= command "command"))
     (should (string= rest "command arg arg2"))))
 
-(ert-deftest sc+-input-and-path ()
-  "Check if input and path conflict."
-  (pcase-let* ((`(,path ,mode ,command ,rest)
-                (shell-command+-parse "... < command arg arg2")))
-    (should (string= "..." path))
-    (should (eq mode 'input))
-    (should (string= command "command"))
-    (should (string= rest "command arg arg2"))))
-
-(ert-deftest sc+-output-and-path ()
-  "Check if output and path conflict."
-  (pcase-let* ((`(,path ,mode ,command ,rest)
-                (shell-command+-parse "... > command arg arg2")))
-    (should (string= "..." path))
-    (should (eq mode 'output))
-    (should (string= command "command"))
-    (should (string= rest "command arg arg2"))))
-
-(ert-deftest sc+-pipe-and-path ()
-  "Check if pipe and path conflict."
-  (pcase-let* ((`(,path ,mode ,command ,rest)
-                (shell-command+-parse "... | command arg arg2")))
-    (should (string= "..." path))
-    (should (eq mode 'pipe))
-    (should (string= command "command"))
-    (should (string= rest "command arg arg2"))))
-
-(ert-deftest sc+-file-replace ()
-  "Check if %'s are replaced."
-  (pcase-let* ((buffer-file-name "somefile")
-               (`(,path ,mode ,command ,rest)
-                   (shell-command+-parse "command %")))
-    (should (null path))
-    (should (null mode))
-    (should (string= command "command"))
-    (should (string= rest (concat "command " buffer-file-name)))))
-
-(ert-deftest sc+-file-noreplace ()
-  "Check if %'s are replaced."
-  (pcase-let* ((`(,path ,mode ,command ,rest)
-                (shell-command+-parse "command \\%")))
-    (should (null path))
-    (should (null mode))
-    (should (string= command "command"))
-    (should (string= rest (concat "command \\%")))))
+;; (ert-deftest sc+-input-and-path ()
+;;   "Check if input and path conflict."
+;;   (pcase-let* ((`(,path ,mode ,command ,rest)
+;;                 (shell-command+-parse "... < command arg arg2")))
+;;     (should (string= "..." path))
+;;     (should (eq mode 'input))
+;;     (should (string= command "command"))
+;;     (should (string= rest "command arg arg2"))))
+
+;; (ert-deftest sc+-output-and-path ()
+;;   "Check if output and path conflict."
+;;   (pcase-let* ((`(,path ,mode ,command ,rest)
+;;                 (shell-command+-parse "... > command arg arg2")))
+;;     (should (string= "..." path))
+;;     (should (eq mode 'output))
+;;     (should (string= command "command"))
+;;     (should (string= rest "command arg arg2"))))
+
+;; (ert-deftest sc+-pipe-and-path ()
+;;   "Check if pipe and path conflict."
+;;   (pcase-let* ((`(,path ,mode ,command ,rest)
+;;                 (shell-command+-parse "... | command arg arg2")))
+;;     (should (string= "..." path))
+;;     (should (eq mode 'pipe))
+;;     (should (string= command "command"))
+;;     (should (string= rest "command arg arg2"))))
+
+;; (ert-deftest sc+-file-replace ()
+;;   "Check if %'s are replaced."
+;;   (pcase-let* ((buffer-file-name "somefile")
+;;                (`(,path ,mode ,command ,rest)
+;;                    (shell-command+-parse "command %")))
+;;     (should (null path))
+;;     (should (null mode))
+;;     (should (string= command "command"))
+;;     (should (string= rest (concat "command " buffer-file-name)))))
+
+;; (ert-deftest sc+-file-noreplace ()
+;;   "Check if %'s are replaced."
+;;   (pcase-let* ((`(,path ,mode ,command ,rest)
+;;                 (shell-command+-parse "command \\%")))
+;;     (should (null path))
+;;     (should (null mode))
+;;     (should (string= command "command"))
+;;     (should (string= rest (concat "command \\%")))))
 
 (ert-deftest sc+-expand ()
   "Test that `shell-command+-expand-path' works as expected."



reply via email to

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