[nongnu] elpa/julia-mode addd3d4 305/352: Merge pull request #81 from JuliaEditorSupport/tp/add-substitution-tests

[ELPA Syncer]

branch: elpa/julia-mode
commit addd3d461b21d83da13331b96f198e908cd9b95e
Merge: b194039 7102542
Author: Tamas K. Papp <tkpapp@gmail.com>
Commit: GitHub <noreply@github.com>

    Merge pull request #81 from JuliaEditorSupport/tp/add-substitution-tests
    
    Add unit tests for LaTeX substitution.
---
 julia-mode-tests.el | 28 +++++++++++++++++++++++++++-
 1 file changed, 27 insertions(+), 1 deletion(-)

diff --git a/julia-mode-tests.el b/julia-mode-tests.el
index f5436c7..cc41fcb 100644
--- a/julia-mode-tests.el
+++ b/julia-mode-tests.el
@@ -515,7 +515,7 @@ y*y" 'beginning-of-defun "y\\*y" 1 nil 2))
     "macro current_module()
 return VERSION >= v\"0.7-\" :(@__MODULE__) : :(current_module())))
 end" 'beginning-of-defun "@" 1))
-  
+
 (ert-deftest julia--test-beginning-of-defun-1 ()
   "Point moves to beginning of defun in 'function's."
   (julia--should-move-point
@@ -595,6 +595,32 @@ end
 return fact(x)
 end" 'end-of-defun "n == 0" "return fact(x)[ \n]+end" 'end 2))
 
+;;;
+;;; substitution tests
+;;;
+
+(defun julia--substitute (contents position)
+  "Call LaTeX subsitution in a buffer with `contents' at point
+`position', and return the resulting buffer."
+  (with-temp-buffer
+    (julia-mode)
+    (insert contents)
+    (goto-char position)
+    (julia-latexsub)
+    (buffer-string)))
+
+(ert-deftest julia--test-substitutions ()
+  (should (equal (julia--substitute "\\alpha " 7) "α "))
+  (should (equal (julia--substitute "x\\alpha " 8) "xα "))
+  (should (equal (julia--substitute "\\kappa\\alpha(" 13) "\\kappaα("))
+  (should (equal (julia--substitute "\\alpha" 7) "α"))
+  ; (should (equal (julia--substitute "\\alpha" 6) "α")) ; BROKEN
+  )
+
+;;;
+;;; run all tests
+;;;
+
 (defun julia--run-tests ()
   (interactive)
   (if (featurep 'ert)