diff options
author | Lev Lamberov <dogsleg@debian.org> | 2016-10-27 02:51:20 -0300 |
---|---|---|
committer | Lev Lamberov <dogsleg@debian.org> | 2016-10-27 02:51:20 -0300 |
commit | 9ada4c513a6b1a8aa4dd600ad5ea1f658e4ff0ab (patch) | |
tree | 3d5c78e9212925df8a14d18eb7b8faa2b208f250 | |
parent | eda9800c24a5dc935deadf0b50298ff320542beb (diff) |
Disable several tests
This patch disables test for Windows systems and test which failing when it is
run in chroot envirenment.
Gbp-Pq: Name 0002-disable-tests.diff
-rw-r--r-- | eshell-up-tests.el | 28 |
1 files changed, 14 insertions, 14 deletions
diff --git a/eshell-up-tests.el b/eshell-up-tests.el index 9e3d2f4..c948407 100644 --- a/eshell-up-tests.el +++ b/eshell-up-tests.el @@ -12,21 +12,21 @@ (should (equal "/home/" (eshell-up-find-parent-dir "hom" current-path))) (should (equal nil (eshell-up-find-parent-dir "homme" current-path))))) -(ert-deftest linux-closest-parent-dir-test () - (skip-unless (string= system-type "gnu/linux")) - (should (equal "/first/second/" (eshell-up-closest-parent-dir "/first/second/third" ))) - (should (equal "/first/second/" (eshell-up-closest-parent-dir "/first/second/third/" ))) - (should (equal "/home/" (eshell-up-closest-parent-dir "~" ))) - (should (equal "/" (eshell-up-closest-parent-dir "/home/" ))) - (should (equal "/" (eshell-up-closest-parent-dir "/" )))) +;; (ert-deftest linux-closest-parent-dir-test () +;; (skip-unless (string= system-type "gnu/linux")) +;; (should (equal "/first/second/" (eshell-up-closest-parent-dir "/first/second/third" ))) +;; (should (equal "/first/second/" (eshell-up-closest-parent-dir "/first/second/third/" ))) +;; (should (equal "/home/" (eshell-up-closest-parent-dir "~" ))) +;; (should (equal "/" (eshell-up-closest-parent-dir "/home/" ))) +;; (should (equal "/" (eshell-up-closest-parent-dir "/" )))) -(ert-deftest windowsx-common-usage-test () - (skip-unless (string= system-type "windows-nt")) - (let ((current-path "c:\\Program Files\\WindowsApps\\first\\current\\")) - (should (equal "c:/Program Files/WindowsApps/first/" (eshell-up-find-parent-dir "fi" current-path))) - (should (equal "c:/Program Files/WindowsApps/" (eshell-up-find-parent-dir "sA" current-path))) - (should (equal "c:/Program Files/" (eshell-up-find-parent-dir " " current-path))) - (should (equal nil (eshell-up-find-parent-dir "Programm" current-path))))) +;; (ert-deftest windowsx-common-usage-test () +;; (skip-unless (string= system-type "windows-nt")) +;; (let ((current-path "c:\\Program Files\\WindowsApps\\first\\current\\")) +;; (should (equal "c:/Program Files/WindowsApps/first/" (eshell-up-find-parent-dir "fi" current-path))) +;; (should (equal "c:/Program Files/WindowsApps/" (eshell-up-find-parent-dir "sA" current-path))) +;; (should (equal "c:/Program Files/" (eshell-up-find-parent-dir " " current-path))) +;; (should (equal nil (eshell-up-find-parent-dir "Programm" current-path))))) ;; Windows users use 'cd \\' to go to the dribe (ert-deftest case-test () |