[elpa] externals/phps-mode b251a1e 314/405: Got unit tests for wrapping region in symbols working

[Stefan Monnier]

branch: externals/phps-mode
commit b251a1ebc4e13ecb52cb9fb2cb531c8db43fe072
Author: Christian Johansson <address@hidden>
Commit: Christian Johansson <address@hidden>

    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 ()