add: tests for clearing unmodified fields

This commit is contained in:
Joao Tavora 2013-10-20 12:45:23 +01:00
parent fe4b622a5e
commit 5a067b8d3a

View File

@ -54,8 +54,7 @@
(defun snippet--insert-test-snippet (name) (defun snippet--insert-test-snippet (name)
(funcall (make-snippet (cadr (assoc name snippet--test-snippets-alist))))) (funcall (make-snippet (cadr (assoc name snippet--test-snippets-alist)))))
(ert-deftest basic-expansion ()
(ert-deftest foo-expansion ()
(with-temp-buffer (with-temp-buffer
(snippet--insert-test-snippet 'basic) (snippet--insert-test-snippet 'basic)
(should (equal (buffer-string) "foo bar foo")) (should (equal (buffer-string) "foo bar foo"))
@ -63,6 +62,19 @@
(overlay-end snippet--field-overlay)) (overlay-end snippet--field-overlay))
"foo" )))) "foo" ))))
(ert-deftest basic-clear-field ()
(with-temp-buffer
(snippet--insert-test-snippet 'basic)
(ert-simulate-command '((lambda () (interactive) (insert "baz"))))
(should (equal (buffer-string) "baz bar baz"))))
(ert-deftest basic-delete-char-in-field ()
(with-temp-buffer
(snippet--insert-test-snippet 'basic)
(ert-simulate-command '(delete-forward-char 1))
(ert-simulate-command '((lambda () (interactive) (insert "b"))))
(should (equal (buffer-string) "boo bar boo"))))
(ert-deftest contrived () (ert-deftest contrived ()
(with-temp-buffer (with-temp-buffer
(snippet--insert-test-snippet 'contrived) (snippet--insert-test-snippet 'contrived)
@ -87,6 +99,7 @@
(ert-simulate-command '((lambda () (interactive) (insert "foo")))) (ert-simulate-command '((lambda () (interactive) (insert "foo"))))
(should (equal (buffer-string) "foobarbaz")))) (should (equal (buffer-string) "foobarbaz"))))
(ert-deftest printf-expansion () (ert-deftest printf-expansion ()
(with-temp-buffer (with-temp-buffer
(snippet--insert-test-snippet 'printf) (snippet--insert-test-snippet 'printf)