Skip to content
This repository
tree: b8ac5b7ff7
Fetching contributors…

Octocat-spinner-32-eaf2f5

Cannot retrieve contributors at this time

file 44 lines (39 sloc) 1.22 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43
;; Sets the package store to a dummy location

(setq package-user-dir
      (concat
       (file-name-directory
        (or (buffer-file-name)
            load-file-name
            default-directory))
       ".elpa"))
(load-file "build.el")

;; Load all the files in the list
(flet ((map-regex (buffer regex fn)
         (with-current-buffer buffer
           (save-excursion
             (goto-char (point-min))
             (let (res)
               (save-match-data
                 (while (re-search-forward regex nil t)
                   (let ((f (match-data)))
                     (setq res
                           (append res
                                   (list
                                    (save-match-data
                                      (funcall fn f))))))))
               res)))))
  (map-regex
   (find-file-noselect
    (concat
     (file-name-directory
      (or (buffer-file-name)
          load-file-name
          default-directory)) "build-parts.txt"))
   "^\\(.*.el\\(\\.gz\\)*\\)$"
   (lambda (md)
     (let ((filename (match-string 0)))
       (when (file-exists-p filename)
         (load-file filename))))))

;; And now run the tests
(ert-run-tests-batch-and-exit)

;; End
Something went wrong with that request. Please try again.