Support test files named like base-name.it.spec.js

[dotemacs] / lisp / my-find-test-file.el

diff --git a/lisp/my-find-test-file.el b/lisp/my-find-test-file.el
index ec397e5f6ad98401fd32e62ddef4ade21142367b..69ca72fae064f2d4f77f221d79383c33f82457a5 100644 (file)
--- a/lisp/my-find-test-file.el
+++ b/lisp/my-find-test-file.el
@@ -19,7 +19,7 @@
            finally return (not (null matched))))
 
 (defun my/matching-prod-file-p (prod-file base-name extension)
-  (dolist (pattern '("test" "spec" "^\\.*" "\\.*$"))
+  (dolist (pattern '("test" "it.spec" "spec" "^\\.*" "\\.*$"))
     (setq base-name (replace-regexp-in-string pattern "" base-name)))
   (and (my/prod-file-p prod-file)
        (string-match-p (concat base-name "[^/]*\\." extension "$") prod-file)))