diff --git a/test/autoscratch-mode-tests.el b/test/autoscratch-mode-tests.el new file mode 100644 index 0000000..824c788 --- /dev/null +++ b/test/autoscratch-mode-tests.el @@ -0,0 +1,43 @@ +;;; autoscratch-mode-tests.el --- Tests for autoscratch-mode -*- lexical-binding: t; -*- + +;; Copyright (C) 2017, T.v.Dein + +;; 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 +;; 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 () + (autoscratch-buffer) + (insert "t") + (autoscratch--look-for-triggers nil) + (should (string= major-mode "text-mode"))) + +(provide 'trigger-tests) + +;;; autoscratch-mode-tests.el ends here