From 6fa42fa6f877a20cb21cb3225999c6f40936fa44 Mon Sep 17 00:00:00 2001 From: Thomas von Dein Date: Wed, 19 Jul 2017 10:40:38 +0200 Subject: [PATCH] +1st test --- test/trigger-tests.el | 43 +++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 43 insertions(+) create mode 100644 test/trigger-tests.el diff --git a/test/trigger-tests.el b/test/trigger-tests.el new file mode 100644 index 0000000..632f7b3 --- /dev/null +++ b/test/trigger-tests.el @@ -0,0 +1,43 @@ +;;; trigger-tests.el --- Tests for autoscratch-mode + +;; 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) + +;;; trigger-tests.el ends here