blob: c5bfb2522cf646f3c7dc5902e1af9942c935c4ff (
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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
|
;;; hy-test-helpers.el --- unit test helpers -*- lexical-binding: t; -*-
;; Author: Mats Lidell <matsl@gnu.org>
;;
;; Orig-Date: 30-Jan-21 at 12:00:00
;; Last-Mod: 28-May-23 at 22:52:40 by Mats Lidell
;;
;; SPDX-License-Identifier: GPL-3.0-or-later
;;
;; Copyright (C) 2021-2022 Free Software Foundation, Inc.
;; See the "HY-COPY" file for license information.
;;
;; This file is part of GNU Hyperbole.
;;; Commentary:
;;
;;; Code:
(require 'ert)
(require 'hmouse-drv) ;For `action-key'.
(eval-when-compile (require 'cl-lib))
(defun hy-test-helpers:consume-input-events ()
"Use recusive-edit to consume the events kbd-key generates."
(run-with-timer 0.1 nil (lambda () (if (< 0 (recursion-depth)) (exit-recursive-edit))))
(recursive-edit))
(defun hy-test-helpers:should-last-message (msg)
"Verify last message is MSG."
(with-current-buffer (messages-buffer)
(should (save-excursion
(goto-char (point-max))
(search-backward msg (- (point-max) 350))))))
(defun hy-test-helpers:action-key-should-call-hpath:find (str)
"Call action-key and check that hpath:find was called with STR."
(let ((was-called nil))
(cl-letf (((symbol-function 'hpath:find)
(lambda (filename)
(if (not (and (stringp str) (stringp filename)))
(should (eq t (message "str = %s; filename = %s" str filename)))
(setq was-called (should (or (string= str filename) (string= str (expand-file-name filename)))))))))
(action-key)
(should was-called))))
(defun hy-test-helpers:hypb-function-should-call-hpath:find (function str)
"Call FUNCTION and check that hpath:find was called with STR."
(let ((was-called nil))
(cl-letf (((symbol-function 'hpath:find)
(lambda (filename)
(setq was-called (should (or (string= str filename) (string= str (expand-file-name filename))))))))
(funcall function)
(should was-called))))
(defun hy-test-helpers:kill-buffer (buffer)
"Kill BUFFER if it exists."
(when (get-buffer buffer)
(kill-buffer buffer)))
(cl-defun hy-test-helpers-verify-hattr-at-p (&key actype args loc lbl-key name)
"Verify the attribute of hbut at point.
Checks ACTYPE, ARGS, LOC and LBL-KEY."
(let ((hbut-at-p (hbut:at-p)))
(should (eq (hattr:get hbut-at-p 'actype) actype))
(should (equal (hattr:get hbut-at-p 'args) args))
(should (equal (hattr:get hbut-at-p 'loc) loc))
(should (equal (hattr:get hbut-at-p 'lbl-key) lbl-key))
(should (equal (hattr:get hbut-at-p 'name) name))))
(defun hy-delete-file-and-buffer (file)
"Delete file and buffer vistinng file."
(let ((buf (find-buffer-visiting file)))
(when buf
(with-current-buffer buf
(set-buffer-modified-p nil)
(kill-buffer))))
(delete-file file))
(provide 'hy-test-helpers)
;;; hy-test-helpers.el ends here
|
