blob: ee7fb6ae4a01b9eb0116d6c7c559cfc9bd0b3c95 (
plain)
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
|
;;; Code:
(load-file "../yeetube.el")
(setq package-archives '(("melpa" . "https://melpa.org/packages/")
("elpa" . "https://elpa.gnu.org/packages/")
("nongnu" . "https://elpa.nongnu.org/nongnu/")))
(package-initialize)
(unless package-archive-contents
(package-refresh-contents))
(require 'ert)
(require 'yeetube)
(package-install 'package-lint)
(require 'package-lint)
(ert-deftest test-is-youtube? ()
(should (equal (yeetube-youtube-p "youtube.com") t))
(should (equal (yeetube-youtube-p "localhost") nil))
(should (equal (yeetube-youtube-p "yewtu.be") nil)))
(ert-deftest test-package-lint ()
(let ((package-lint-errors (package-lint-buffer (find-file-noselect "../yeetube.el"))))
(should (equal package-lint-errors nil))))
(ert-run-tests-batch-and-exit)
(provide 'yeetube-tests)
;;; yeetube-tests.el ends here
|
