branch: externals/phps-mode
commit b251a1ebc4e13ecb52cb9fb2cb531c8db43fe072
Author: Christian Johansson <[email protected]>
Commit: Christian Johansson <[email protected]>
Got unit tests for wrapping region in symbols working
---
phps-mode-test-functions.el | 61 ++++++++++++++++++++++++++++++++++++++++++---
1 file changed, 57 insertions(+), 4 deletions(-)
diff --git a/phps-mode-test-functions.el b/phps-mode-test-functions.el
index d1241a8..c4895ad 100644
--- a/phps-mode-test-functions.el
+++ b/phps-mode-test-functions.el
@@ -780,18 +780,71 @@
(defun phps-mode-test-functions-quote-region ()
"Test double quotes, single quotes, curly bracket, square bracket, round
bracket, back-quotes on regions."
+ ;; NOTE: These are required for wrapping region functionality
+ (transient-mark-mode)
+ (electric-pair-mode)
- ;; TODO Implement this
(phps-mode-test-with-buffer
"<?php\n$var = abc;"
- "Double quotes around letters"
+ "Double quotes around region"
(goto-char 14)
- (set-mark (point))
- (forward-char 3)
+ (push-mark nil t t)
+ (goto-char 17)
(execute-kbd-macro (kbd "\""))
(let ((buffer-contents (buffer-substring-no-properties (point-min)
(point-max))))
(should (equal buffer-contents "<?php\n$var = \"abc\";"))))
+ (phps-mode-test-with-buffer
+ "<?php\n$var = abc;"
+ "Single-quotes brackets around region"
+ (goto-char 14)
+ (push-mark nil t t)
+ (goto-char 17)
+ (execute-kbd-macro (kbd "'"))
+ (let ((buffer-contents (buffer-substring-no-properties (point-min)
(point-max))))
+ (should (equal buffer-contents "<?php\n$var = 'abc';"))))
+
+ (phps-mode-test-with-buffer
+ "<?php\n$var = abc;"
+ "Round brackets around region"
+ (goto-char 14)
+ (push-mark nil t t)
+ (goto-char 17)
+ (execute-kbd-macro (kbd "("))
+ (let ((buffer-contents (buffer-substring-no-properties (point-min)
(point-max))))
+ (should (equal buffer-contents "<?php\n$var = (abc);"))))
+
+ (phps-mode-test-with-buffer
+ "<?php\n$var = abc;"
+ "Square brackets around region"
+ (goto-char 14)
+ (push-mark nil t t)
+ (goto-char 17)
+ (execute-kbd-macro (kbd "["))
+ (let ((buffer-contents (buffer-substring-no-properties (point-min)
(point-max))))
+ (should (equal buffer-contents "<?php\n$var = [abc];"))))
+
+ (phps-mode-test-with-buffer
+ "<?php\n$var = abc;"
+ "Curly brackets around region"
+ (goto-char 14)
+ (push-mark nil t t)
+ (goto-char 17)
+ (execute-kbd-macro (kbd "{"))
+ (let ((buffer-contents (buffer-substring-no-properties (point-min)
(point-max))))
+ (should (equal buffer-contents "<?php\n$var = {abc};"))))
+
+ (phps-mode-test-with-buffer
+ "<?php\n$var = abc;"
+ "Backquotes brackets around region"
+ (goto-char 14)
+ (push-mark nil t t)
+ (goto-char 17)
+ (execute-kbd-macro (kbd "`"))
+ (let ((buffer-contents (buffer-substring-no-properties (point-min)
(point-max))))
+ (should (equal buffer-contents "<?php\n$var = `abc`;"))))
+
+
)
(defun phps-mode-test-functions-comment-uncomment-region ()
