emacs-elpa-diffs
[Top][All Lists]
Advanced
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/phps-mode 16d8056 144/405: Foundation for new indentati

From: Stefan Monnier
Subject: [elpa] externals/phps-mode 16d8056 144/405: Foundation for new indentation tests completed
Date: Sat, 13 Jul 2019 10:00:01 -0400 (EDT) 
branch: externals/phps-mode
commit 16d80562391d6778223183eaa3bfe80458a6e51b
Author: Christian Johansson <address@hidden>
Commit: Christian Johansson <address@hidden>

    Foundation for new indentation tests completed
---
 phps-mode-test-functions.el | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/phps-mode-test-functions.el b/phps-mode-test-functions.el
index f8d39ab..31fe1ac 100644
--- a/phps-mode-test-functions.el
+++ b/phps-mode-test-functions.el
@@ -36,6 +36,15 @@
 (autoload 'hash-table-values "subr-x")
 (autoload 'should "ert")
 
+(defun phps-mode-test-functions--hash-to-list (hash-table)
+  "Return a list that represent the HASH-TABLE.  Each element is a list: (list 
key value)."
+  (let (result)
+    (maphash
+     (lambda (k v)
+       (push (list k v) result))
+     hash-table)
+    (nreverse result)))
+
 (defun phps-mode-test-functions-get-lines-indent ()
   "Test `phps-mode-functions-get-lines-indent' function."
 
@@ -44,7 +53,7 @@
   (phps-mode-test-with-buffer
    "<html><head><title><?php\nif ($myCondition) {\nif ($mySeconCondition) 
{\necho $title;\n}\n} ?></title><body>Bla bla</body></html>"
    (goto-char 15)
-   (should (equal '((0 0) (0 0) (1 0) (2 0) (1 0) (0 0)) (hash-table-values 
(phps-mode-functions-get-lines-indent)))))
+   (should (equal '((1 (0 0)) (2 (0 0)) (3 (1 0)) (4 (2 0)) (5 (1 0)) (6 (0 
0))) (phps-mode-test-functions--hash-to-list 
(phps-mode-functions-get-lines-indent)))))
 
   (phps-mode-test-with-buffer
    "<html><head><title><?php\nif ($myCondition) {\nif ($mySeconCondition) 
{\necho $title;\n\n} ?></title><body>Bla bla</body></html>"
reply via email to
[Prev in Thread] Current Thread [Next in Thread]