branch: externals/phps-mode
commit 9db28d9ae6d57255c1d8c50294566be012d34487
Author: Christian Johansson <christ...@cvj.se>
Commit: Christian Johansson <christ...@cvj.se>
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))
