;;; 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