mirror of
https://codeberg.org/scip/autoscratch.git
synced 2025-12-16 20:10:57 +01:00
51 lines
1.7 KiB
EmacsLisp
51 lines
1.7 KiB
EmacsLisp
;;; autoscratch-mode-tests.el --- Tests for autoscratch-mode -*- lexical-binding: t; -*-
|
|
|
|
;; Copyright (C) 2017, T.v.Dein <tlinden@cpan.org>
|
|
|
|
;; This file is NOT part of Emacs.
|
|
|
|
;; 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 2 of the
|
|
;; License, or (at your option) any later version.
|
|
|
|
;; This program is distributed in the hope that it will be useful, but
|
|
;; WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
;; General Public License for more details.
|
|
|
|
;; You should have received a copy of the GNU General Public License
|
|
;; along with this program; if not, write to the Free Software
|
|
;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
|
|
;; USA
|
|
|
|
;; Version: 0.01
|
|
;; Author: T.v.Dein <tlinden@cpan.org>
|
|
;; Keywords: files
|
|
;; URL: https://github.com/tlinden/autoscratch
|
|
;; License: GNU General Public License >= 2
|
|
|
|
;;; Commentary:
|
|
|
|
;;; Code:
|
|
|
|
(require 'autoscratch-mode)
|
|
(require 'ert)
|
|
|
|
(ert-deftest switch-text ()
|
|
;; start with empty *scratch*
|
|
(autoscratch-buffer)
|
|
(should (string= major-mode "autoscratch-mode"))
|
|
;; should rename current scratch, create a new scratch in the
|
|
;; background and enable the correct mode
|
|
(insert "t")
|
|
(autoscratch--look-for-triggers nil)
|
|
(should (string= major-mode "text-mode"))
|
|
;; now we should be back to the previously "forked" scratch
|
|
(kill-buffer)
|
|
(should (string= major-mode "autoscratch-mode")))
|
|
|
|
(provide 'trigger-tests)
|
|
|
|
;;; autoscratch-mode-tests.el ends here
|