aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--generate.el16
1 files changed, 5 insertions, 11 deletions
diff --git a/generate.el b/generate.el
index f6756f9..a2f1121 100644
--- a/generate.el
+++ b/generate.el
@@ -25,18 +25,10 @@
("script" . ,(format "make integration-test-%s TEST_ARCHIVE=$(realpath bin/)" module))))
(defun unit-test-exists-p (module)
- (file-exists-p
- (format "test/%s-test.el" (string-remove-suffix ".el" module))))
+ (file-exists-p (format "test/%s-test.el" module)))
(defun integration-test-exists-p (module)
- (file-exists-p
- (format "test/integration/%s.bats" (string-remove-suffix ".el" module))))
-
-(defun alist-p (lst)
- (and (listp lst)
- (listp (car lst))
- (= (length lst) 2)
- (not (proper-list-p (car lst)))))
+ (file-exists-p (format "test/integration/%s.bats")))
(defun prepare-value-for-yaml (object)
(pcase object
@@ -55,7 +47,9 @@
hash))
(defun generate ()
- (let* ((modules (directory-files "." nil (rx string-start "oni-")))
+ (let* ((modules
+ (mapcar (lambda (file) (string-remove-suffix ".el" file))
+ (directory-files "." nil (rx string-start "oni-"))))
(directories (cl-remove-if-not #'file-directory-p modules)))
(with-temp-buffer
(insert