masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-04 19:29:37 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fix use-package tests

Browse source 
* test/lisp/use-package/use-package-chords-tests.el:
* test/lisp/use-package/use-package-tests.el: Remove local
variables section.  Require 'ert' and fix copyright header.
This commit is contained in:
Stefan Kangas 2022-12-03 00:55:56 +01:00
parent 97c8a58787
commit 01bfbd186a
2 changed files with 19 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

18
test/lisp/use-package/use-package-chords-tests.el
View file

@ -1,5 +1,7 @@
;;; use-package-chords-tests.el --- Tests for use-package-chords.el -*- lexical-binding: t; -*-
;; Copyright (C) 2019-2022 Free Software Foundation, Inc.
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
@ -15,14 +17,24 @@
;;; Code:
(require 'ert)
(require 'use-package)
(require 'use-package-tests)
(require 'use-package-chords)
(setq use-package-always-ensure nil
use-package-verbose 'errors
use-package-expand-minimally t)
(defmacro match-expansion (form &rest value)
`(should (pcase (expand-minimally ,form)
,@(mapcar #'(lambda (x) (list x t)) value))))
;; Copied from use-package-tests.el.
(defmacro expand-minimally (form)
`(let ((use-package-verbose 'errors)
(use-package-expand-minimally t))
(macroexpand-1 ',form)))
(defun use-package-test-normalize-chord (&rest args)
(apply #'use-package-normalize-binder 'foo :chords args))
@ -50,6 +62,8 @@
("C-b" . beta)))))
(ert-deftest use-package-test/:chords-1 ()
;; FIXME:
:tags '(:unstable)
(match-expansion
(use-package foo :chords ("C-k" . key1) ("C-u" . key2))
`(progn
@ -63,6 +77,8 @@
(bind-chord "C-u" #'key2 nil))))
(ert-deftest use-package-test/:chords-2 ()
;; FIXME:
:tags '(:unstable)
(match-expansion
(use-package foo :chords (("C-k" . key1) ("C-u" . key2)))
`(progn

4
test/lisp/use-package/use-package-tests.el
View file

@ -1,5 +1,7 @@
;;; use-package-tests.el --- Tests for use-package.el -*- lexical-binding: t; -*-
;; Copyright (C) 2014-2022 Free Software Foundation, Inc.
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
@ -13,8 +15,6 @@
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <https://www.gnu.org/licenses/>.
;;; Commentary:
;;; Code:
(require 'cl-lib)