[nongnu] elpa/smartparens 7e72c307d4 3/4: add tests for the LaTeX-mode

[ELPA Syncer]

branch: elpa/smartparens
commit 7e72c307d4401126f9c25dc8b8ad11e50130bb13
Author: Artem Yurchenko <artemyurchenko@zoho.com>
Commit: Artem Yurchenko <artemyurchenko@zoho.com>

    add tests for the LaTeX-mode
    
    for now, they are just duplicated tests for the latex-mode
---
 test/smartparens-LaTeX-test.el | 102 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 102 insertions(+)

diff --git a/test/smartparens-LaTeX-test.el b/test/smartparens-LaTeX-test.el
new file mode 100644
index 0000000000..c77f377795
--- /dev/null
+++ b/test/smartparens-LaTeX-test.el
@@ -0,0 +1,102 @@
+(require 'smartparens-latex)
+
+(ert-deftest 
sp-test-LaTeX-dont-insert-space-on-forward-slurp-where-not-necessary ()
+  (sp-test-with-temp-buffer "foo (|)(bar)(baz)"
+      (LaTeX-mode)
+    (sp-forward-slurp-sexp 2)
+    (sp-buffer-equals "foo (|(bar)(baz))")
+    (sp-forward-barf-sexp 2)
+    (sp-buffer-equals "foo (|)(bar)(baz)")))
+
+(ert-deftest sp-test-LaTeX-insert-space-on-forward-slurp-where-necessary ()
+  (sp-test-with-temp-buffer "foo (|bar)baz"
+      (LaTeX-mode)
+    (sp-forward-slurp-sexp)
+    (sp-buffer-equals "foo (|bar baz)")
+    (sp-forward-barf-sexp)
+    (sp-buffer-equals "foo (|bar) baz")))
+
+(ert-deftest 
sp-test-LaTeX-dont-insert-space-on-backward-slurp-where-not-necessary ()
+  (sp-test-with-temp-buffer "foo (bar)(baz)(|)"
+      (LaTeX-mode)
+    (sp-backward-slurp-sexp 2)
+    (sp-buffer-equals "foo ((bar)(baz)|)")
+    (sp-backward-barf-sexp 2)
+    (sp-buffer-equals "foo (bar)(baz)(|)")))
+
+(ert-deftest sp-test-LaTeX-insert-space-on-backward-slurp-where-necessary ()
+  (sp-test-with-temp-buffer "foo bar(baz|)"
+      (LaTeX-mode)
+    (sp-backward-slurp-sexp)
+    (sp-buffer-equals "foo (bar baz|)")
+    (sp-backward-barf-sexp)
+    (sp-buffer-equals "foo bar (baz|)")))
+
+(ert-deftest sp-test-LaTeX-navigate-single-quote-pair-backwards-at-opener ()
+  (sp-test-with-temp-buffer "\\foo{bar} `|foo bar'baz'"
+      (LaTeX-mode)
+    (should (equal (sp-get-thing t)
+                   '(:beg 11 :end 24 :op "`" :cl "'" :prefix "" :suffix "")))))
+
+(ert-deftest sp-test-LaTeX-navigate-single-quote-pair-backwards-at-closer ()
+  (sp-test-with-temp-buffer "\\foo{bar} `foo bar'baz'|"
+      (LaTeX-mode)
+    (should (equal (sp-get-thing t)
+                   '(:beg 11 :end 24 :op "`" :cl "'" :prefix "" :suffix "")))))
+
+;; SKIP:
+;; (ert-deftest 
sp-test-LaTeX-navigate-single-quote-pair-backwards-at-contraction ()
+;;   (sp-test-with-temp-buffer "\\foo{bar} `foo bar'|bar'"
+;;       (LaTeX-mode)
+;;     (should (equal (sp-get-thing t)
+;;                    '(:beg 16 :end 19 :op "" :cl "" :prefix "" :suffix 
"")))))
+
+;; #820
+(ert-deftest 
sp-test-LaTeX-do-not-fix-closing-delimiter-on-insert-when-inserting-more-than-one-char
 ()
+  "Some electric keys sometimes insert more than one character.
+In this case the behaviour is more complicated and we shouldn't
+try to fix the buffer.
+
+For example quote in LaTeX inserts two backticks which messes up
+with the search logic (if inserted one-by-one they would pair by
+thesmeves and would not break unrelated pair)"
+  (sp-test-with-temp-buffer "quote: | $f' = 0$"
+      (LaTeX-mode)
+    (execute-kbd-macro "\"")
+    (sp-buffer-equals "quote: ``|'' $f' = 0$")))
+
+;; #990
+(ert-deftest sp-test-LaTeX-do-parse-string-quotes-outside-math ()
+  (sp-test-with-temp-buffer "foo ``bar''| baz"
+      (LaTeX-mode)
+    (sp-backward-sexp)
+    (sp-buffer-equals "foo |``bar'' baz")))
+
+;; #990
+(ert-deftest sp-test-LaTeX-dont-parse-string-quotes-in-math ()
+  (sp-test-with-temp-buffer "$foo ``bar''| baz$"
+      (LaTeX-mode)
+    (sp-backward-sexp)
+    (sp-buffer-equals "$foo ``|bar'' baz$")))
+
+;; #990
+(ert-deftest sp-test-LaTeX-do-pair-string-quotes-outside-math ()
+  (sp-test-with-temp-buffer "foo | baz"
+      (LaTeX-mode)
+    (execute-kbd-macro "``")
+    (sp-buffer-equals "foo ``|'' baz")))
+
+;; #990
+(ert-deftest sp-test-LaTeX-dont-pair-string-quotes-in-math ()
+  (sp-test-with-temp-buffer "$foo | baz$"
+      (LaTeX-mode)
+    (execute-kbd-macro "``")
+    (sp-buffer-equals "$foo ``| baz$")))
+
+;; #834
+(ert-deftest sp-test-LaTeX-wrap-with-trigger ()
+  "A region should be wrapped with a pair if trigger key is pressed."
+  (sp-test-with-temp-buffer "foo Mbar baz| bam"
+      (LaTeX-mode)
+    (execute-kbd-macro "\"")
+    (sp-buffer-equals "foo ``bar baz''| bam")))