[elpa] externals/phps-mode 9db28d9 185/405: Added verbose flag for unit tests

[Stefan Monnier]

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

    Added verbose flag for unit tests
---
 phps-mode-functions.el      | 10 ++++++++--
 phps-mode-test-functions.el |  4 ++--
 2 files changed, 10 insertions(+), 4 deletions(-)

diff --git a/phps-mode-functions.el b/phps-mode-functions.el
index d4b833f..09deb3b 100644
--- a/phps-mode-functions.el
+++ b/phps-mode-functions.el
@@ -34,6 +34,10 @@
 (defvar phps-mode-functions-lines-indent nil
   "The indentation of each line in buffer, nil if none.")
 
+(defvar phps-mode-functions-verbose nil
+  "Verbose messaging, default nil.")
+
+
 ;; NOTE Also format white-space inside the line, i.e. after function 
declarations?
 
 ;; TODO Add support for automatic parenthesis, bracket, square-bracket, 
single-quote and double-quote encapsulations
@@ -44,7 +48,8 @@
   (if (boundp 'phps-mode-lexer-tokens)
       (save-excursion
         (goto-char (point-min))
-        (message "\nCalculation indentation for all lines in buffer:\n\n%s" 
(buffer-substring-no-properties (point-min) (point-max)))
+        (when phps-mode-functions-verbose
+          (message "\nCalculation indentation for all lines in buffer:\n\n%s" 
(buffer-substring-no-properties (point-min) (point-max))))
         (let ((in-scripting nil)
               (in-heredoc nil)
               (in-inline-control-structure nil)
@@ -337,7 +342,8 @@
                           (setq column-level-start (1+ column-level-start))))
                                  
 
-                      (message "Process line ending.   nesting: %s-%s, 
line-number: %s-%s,     indent: %s.%s,  token: %s" nesting-start nesting-end 
token-start-line-number token-end-line-number column-level-start tuning-level 
token)
+                      (when phps-mode-functions-verbose
+                        (message "Process line ending. nesting: %s-%s, 
line-number: %s-%s,     indent: %s.%s,  token: %s" nesting-start nesting-end 
token-start-line-number token-end-line-number column-level-start tuning-level 
token))
                       
                       
                       ;; (message "new line %s or last token at %s, %s %s.%s 
(%s - %s) = %s %s %s %s %s [%s %s] %s %s %s" token-start-line-number token 
next-token column-level tuning-level nesting-start nesting-end 
round-bracket-level square-bracket-level curly-bracket-level 
alternative-control-structure-level inline-control-structure-level 
first-token-is-nesting-decrease first-token-is-nesting-increase in-assignment 
in-assignment-level in-class-declaration-level)
diff --git a/phps-mode-test-functions.el b/phps-mode-test-functions.el
index 8147892..f3bdf87 100644
--- a/phps-mode-test-functions.el
+++ b/phps-mode-test-functions.el
@@ -30,10 +30,9 @@
 
 
 (autoload 'phps-mode-test-with-buffer "phps-mode-test")
+(autoload 'phps-mode-functions-verbose "phps-mode-functions")
 (autoload 'phps-mode-functions-indent-line "phps-mode-functions")
 (autoload 'phps-mode-functions-get-lines-indent "phps-mode-functions")
-(autoload 'phps-mode-functions-get-current-line-data "phps-mode-functions")
-(autoload 'hash-table-values "subr-x")
 (autoload 'should "ert")
 
 (defun phps-mode-test-functions--hash-to-list (hash-table)
@@ -439,6 +438,7 @@
 
 (defun phps-mode-test-functions ()
   "Run test for functions."
+  (setq phps-mode-functions-verbose t)
   (phps-mode-test-functions-get-lines-indent)
   (phps-mode-test-functions-indent-line))