ld/yasnippet
1
0
Fork 0
mirror of https://github.com/joaotavora/yasnippet.git synced 2025-10-13 13:13:03 +00:00
Code Issues Packages Projects Releases Wiki Activity

* yasnippet-tests.el: Minor cosmetic changes

Browse Source 
Use utf-8 rather than latin-1.
Prefer #' to quote function names.
(special-mode): Remove backward compatibility code which never worked
since it uses `fundamental` which doesn't exist).
This commit is contained in:
Stefan Monnier 2023-06-28 10:36:13 -04:00
parent 6e4de312cf
commit b09ab98419
1 changed files with 7 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
yasnippet-tests.el
View File

@ -1,8 +1,8 @@
;;; yasnippet-tests.el --- some yasnippet tests -*- lexical-binding: t -*- ;;; yasnippet-tests.el --- some yasnippet tests -*- lexical-binding: t -*-
;; Copyright (C) 2012-2015, 2017-2018, 2021 Free Software Foundation, Inc. ;; Copyright (C) 2012-2023 Free Software Foundation, Inc.
;; Author: João Távora <joaot@siscog.pt> ;; Author: João Távora <joaot@siscog.pt>
;; Keywords: emulations, convenience ;; Keywords: emulations, convenience
;; This program is free software; you can redistribute it and/or modify ;; This program is free software; you can redistribute it and/or modify
@ -136,9 +136,6 @@ This lets `yas--maybe-expand-from-keymap-filter' work as expected."
;;; Older emacsen ;;; Older emacsen
;;; ;;;
(unless (fboundp 'special-mode)
;; FIXME: Why provide this default definition here?!?
(defalias 'special-mode 'fundamental))
(unless (fboundp 'string-suffix-p) (unless (fboundp 'string-suffix-p)
;; introduced in Emacs 24.4 ;; introduced in Emacs 24.4
@ -1440,7 +1437,7 @@ hello ${1:$(when (stringp yas-text) (funcall func yas-text))} foo${1:$$(concat \
(should (equal (sort expected-rest #'string<) (should (equal (sort expected-rest #'string<)
(sort (cl-subseq observed (length expected-first)) #'string<)))))))) (sort (cl-subseq observed (length expected-first)) #'string<))))))))
(defalias 'yas--phony-c-mode 'c-mode) (defalias 'yas--phony-c-mode #'c-mode)
(ert-deftest issue-492-and-494 () (ert-deftest issue-492-and-494 ()
(define-derived-mode yas--test-mode yas--phony-c-mode "Just a test mode") (define-derived-mode yas--test-mode yas--phony-c-mode "Just a test mode")
@ -1679,14 +1676,14 @@ TODO: be meaner"
:test #'eq :key #'car)))) :test #'eq :key #'car))))
(define-key yas-minor-mode-map [tab] nil) (define-key yas-minor-mode-map [tab] nil)
(define-key yas-minor-mode-map (kbd "TAB") nil) (define-key yas-minor-mode-map (kbd "TAB") nil)
(define-key yas-minor-mode-map (kbd "SPC") 'yas-expand) (define-key yas-minor-mode-map (kbd "SPC") #'yas-expand)
(with-temp-buffer (with-temp-buffer
(yas-minor-mode 1) (yas-minor-mode 1)
(should-not (eq (key-binding (kbd "TAB")) 'yas-expand)) (should-not (eq (key-binding (kbd "TAB")) #'yas-expand))
(should (eq (key-binding (kbd "SPC")) 'yas-expand)) (should (eq (key-binding (kbd "SPC")) 'yas-expand))
(yas-reload-all) (yas-reload-all)
(should-not (eq (key-binding (kbd "TAB")) 'yas-expand)) (should-not (eq (key-binding (kbd "TAB")) #'yas-expand))
(should (eq (key-binding (kbd "SPC")) 'yas-expand))))) (should (eq (key-binding (kbd "SPC")) #'yas-expand)))))
(ert-deftest test-yas-in-org () (ert-deftest test-yas-in-org ()
(yas-saving-variables (yas-saving-variables