1
;;; magithub-tests.el --- tests for Magithub
3
;; Copyright (C) 2016 Sean Allred
11
(defmacro magithub-test-cache-with-new-cache (plist &rest body)
13
`(let ((magithub-cache-class-refresh-seconds-alist ',plist)
14
(magithub-cache--cache (make-hash-table)))
17
(require 'magithub-cache)
18
(ert-deftest magithub-test-cache ()
19
(magithub-test-cache-with-new-cache ((:test . 30))
20
(should (equal t (magithub-cache :test t)))))
22
;;; magithub-test.el ends here