ld/yasnippet
1
0
Fork 0
mirror of https://github.com/joaotavora/yasnippet.git synced 2025-10-14 21:43:04 +00:00
Code Issues Packages Projects Releases Wiki Activity

add: broader tests, already catch many expansion errors

Browse Source
This commit is contained in:
Joao Tavora 2013-10-19 17:20:51 +01:00
parent 2db4102fda
commit 54e93b60e9
1 changed files with 44 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

54
snippet-tests.el
View File

@ -25,22 +25,49 @@
;;; Code: ;;; Code:
(require 'snippet) (require 'snippet)
(require 'ert)
(require 'ert-x)
(setq snippet--printf-snippet-forms (defvar snippet--test-snippets-alist nil)
'("printf (\"" (setq snippet--test-snippets-alist
(field 1 "%s") `((basic ((field 1 "foo")
(mirror 1 (if (string-match "%" field-text) "\"," "\")")) " bar "
(field 2) (mirror 1)))
(mirror 1 (if (string-match "%" field-text) "\)" "")))) (printf ("printf (\""
(field 1 "%s")
(mirror 1 (if (string-match "%" field-text) "\"," "\")"))
(field 2)
(mirror 1 (if (string-match "%" field-text) "\)" ""))))
(sprintf-maybe ((mirror 0 (when field-text "s"))
"printf ("
(field 0)
(mirror 0 (when field-text ","))
"\""
(field 1 "%s")
(mirror 1 (if (string-match "%" field-text) "\"," "\")"))
(field 2)
(mirror 1 (if (string-match "%" field-text) "\)" ""))))))
(defun snippet--insert-test-snippet (name)
(funcall (eval `(make-snippet ,(cadr (assoc name snippet--test-snippets-alist))))))
(ert-deftest foo-expansion ()
(with-temp-buffer
(snippet--insert-test-snippet 'basic)
(should (equal (buffer-string) "foo bar foo"))
(should (equal (buffer-substring (overlay-start snippet--field-overlay)
(overlay-end snippet--field-overlay))
"foo" ))))
(ert-deftest printf-expansion () (ert-deftest printf-expansion ()
(with-temp-buffer (with-temp-buffer
(funcall (eval `(make-snippet ,@snippet--printf-snippet-forms))) (snippet--insert-test-snippet 'printf)
(should (equal (buffer-string) "printf (\"%s\",)")))) (should (equal (buffer-string) "printf (\"%s\",)"))))
(ert-deftest printf-mirrors () (ert-deftest printf-mirrors ()
(with-temp-buffer (with-temp-buffer
(funcall (eval `(make-snippet ,@snippet--printf-snippet-forms))) (snippet--insert-test-snippet 'printf)
(ert-simulate-command '(delete-forward-char 1)) (ert-simulate-command '(delete-forward-char 1))
(should (equal (buffer-string) "printf (\"s\")")) (should (equal (buffer-string) "printf (\"s\")"))
(ert-simulate-command '((lambda () (interactive) (insert "%")))) (ert-simulate-command '((lambda () (interactive) (insert "%"))))
@ -48,7 +75,7 @@
(ert-deftest printf-mirrors-and-navigation () (ert-deftest printf-mirrors-and-navigation ()
(with-temp-buffer (with-temp-buffer
(funcall (eval `(make-snippet ,@snippet--printf-snippet-forms))) (snippet--insert-test-snippet 'printf)
(ert-simulate-command '(delete-forward-char 1)) (ert-simulate-command '(delete-forward-char 1))
(should (equal (buffer-string) "printf (\"s\")")) (should (equal (buffer-string) "printf (\"s\")"))
(ert-simulate-command '((lambda () (interactive) (insert "%")))) (ert-simulate-command '((lambda () (interactive) (insert "%"))))
@ -59,7 +86,14 @@
(ert-deftest printf-jump-to-second-field-right-away () (ert-deftest printf-jump-to-second-field-right-away ()
(with-temp-buffer (with-temp-buffer
(funcall (eval `(make-snippet ,@snippet--printf-snippet-forms))) (snippet--insert-test-snippet 'printf)
(ert-simulate-command '(snippet-next-field)) (ert-simulate-command '(snippet-next-field))
(ert-simulate-command '((lambda () (interactive) (insert "somevar")))) (ert-simulate-command '((lambda () (interactive) (insert "somevar"))))
(should (equal (buffer-string) "printf (\"%s\",somevar)")))) (should (equal (buffer-string) "printf (\"%s\",somevar)"))))
(ert-deftest sprintf-variation ()
(with-temp-buffer
(snippet--insert-test-snippet 'sprintf-maybe)
(should (equal (buffer-string) "printf (\"%s\",)"))
(ert-simulate-command '((lambda () (interactive) (insert "somestring"))))
(should (equal (buffer-string) "sprintf (somestring,\"%s\",)"))))