[elpa] 254/287: Add test for begining and ending of line

[Matthew Fidler]

mlf176f2 pushed a commit to branch externals/ergoemacs-mode
in repository elpa.

commit 22a9650d3b116f1d50cf282a15b9a269111a3a5b
Author: Matthew L. Fidler <address@hidden>
Date:   Sun Jun 29 23:09:43 2014 -0500

    Add test for begining and ending of line
---
 ergoemacs-test.el |   37 ++++++++++++++++++++++++++++++++++++-
 1 files changed, 36 insertions(+), 1 deletions(-)

diff --git a/ergoemacs-test.el b/ergoemacs-test.el
index ea88647..cc7c0ef 100644
--- a/ergoemacs-test.el
+++ b/ergoemacs-test.el
@@ -968,7 +968,42 @@ Selected mark would not be cleared after paste."
     (when (file-exists-p w-file)
       (delete-file w-file))))
 
-
+(ert-deftest ergoemacs-test-bol-or-what ()
+  "Test beginning of line functionality."
+  (let ((ergoemacs-end-of-comment-line t)
+        (ergoemacs-back-to-indentation t))
+    (with-temp-buffer
+      (emacs-lisp-mode) ; Turn on ergoemacs-mode 
+      (insert "(progn\n  (ergoemacs-mode 1)) ; Turn on ergoemacs-mode")
+      (goto-char (point-max))
+      (call-interactively 'ergoemacs-beginning-of-line-or-what)
+      (should (string= "Turn on ergoemacs-mode"
+                       (buffer-substring (point) (point-at-eol))))
+      (call-interactively 'ergoemacs-beginning-of-line-or-what)
+      (should (string= " ; Turn on ergoemacs-mode"
+                       (buffer-substring (point) (point-at-eol))))
+      (call-interactively 'ergoemacs-beginning-of-line-or-what)
+      (should (string= "(ergoemacs-mode 1)) ; Turn on ergoemacs-mode"
+                       (buffer-substring (point) (point-at-eol))))
+      (call-interactively 'ergoemacs-beginning-of-line-or-what)
+      (should (string= "  (ergoemacs-mode 1)) ; Turn on ergoemacs-mode"
+                       (buffer-substring (point) (point-at-eol)))))))
+
+(ert-deftest ergoemacs-test-eol-or-what ()
+  "Test beginning of line functionality."
+  (let ((ergoemacs-end-of-comment-line t)
+        (ergoemacs-back-to-indentation t))
+    (with-temp-buffer
+      (emacs-lisp-mode) ; Turn on ergoemacs-mode
+      (insert "(progn\n  (ergoemacs-mode 1)) ; Turn on ergoemacs-mode")
+      (goto-char (point-max))
+      (beginning-of-line)
+      
+      (call-interactively 'ergoemacs-end-of-line-or-what)
+      (should (string= " ; Turn on ergoemacs-mode"
+                       (buffer-substring (point) (point-at-eol))))
+      (call-interactively 'ergoemacs-end-of-line-or-what)
+      (should (= (point) (point-at-eol))))))
 
 (provide 'ergoemacs-test)
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;