[elpa] externals/phps-mode 6fc8967 4/4: Updated version and removed native tokens test

[Christian Johansson]

branch: externals/phps-mode
commit 6fc8967d421cbcaf198ec096c9af6ca002978d0f
Author: Christian Johansson <christian@cvj.se>
Commit: Christian Johansson <christian@cvj.se>

    Updated version and removed native tokens test
---
 phps-mode-test.el | 70 +++++++++++++++++++++++++++----------------------------
 phps-mode.el      |  4 ++--
 2 files changed, 37 insertions(+), 37 deletions(-)

diff --git a/phps-mode-test.el b/phps-mode-test.el
index d21a20b..c499d8c 100644
--- a/phps-mode-test.el
+++ b/phps-mode-test.el
@@ -119,41 +119,41 @@
      (phps-mode)
      ,@body
 
-     (let ((lexer-tokens phps-mode-lex-analyzer--tokens))
-       (setq phps-mode-test--native-tokens nil)
-       (with-temp-buffer
-         (let ((filename (expand-file-name "lexer-test.tmp"))
-               (filename2 (expand-file-name "lexer-test2.tmp")))
-           (insert "<?php ini_set('display_errors', false); 
ini_set('error_reporting', false); if (function_exists('token_get_all')) { 
$tokens = token_get_all(file_get_contents(\"lexer-test2.tmp\")); echo \"'(\"; 
foreach ($tokens as $token) { echo \"\n  \"; if (is_array($token)) { echo 
token_name($token[0]); } else { echo '\"' . $token . '\"'; }} echo \"\n)\";}")
-           (write-file filename)
-           (kill-region (point-min) (point-max))
-           (insert ,source)
-           (write-file filename2)
-           (kill-region (point-min) (point-max))
-
-           (let* ((native-tokens
-                   (call-process
-                    "php"
-                    nil
-                    t
-                    t
-                    (concat "-f" filename))))
-             (when (= native-tokens 0)
-               ;; (message "native-tokens: %S %s" native-tokens 
(buffer-substring-no-properties (point-min) (point-max)))
-               (let ((tokens (eval (car (read-from-string 
(buffer-substring-no-properties (point-min) (point-max)))))))
-                 (setq
-                  phps-mode-test--native-tokens
-                  tokens)
-                 (let ((trimmed-tokens))
-                   (dolist (token lexer-tokens)
-                     (push (car token) trimmed-tokens)
-                     )
-                   (setq trimmed-tokens (reverse trimmed-tokens))
-                   (should
-                    (equal
-                     trimmed-tokens
-                     phps-mode-test--native-tokens))
-                   (message "Native tokens matches elisp tokens"))))))))
+     ;; (let ((lexer-tokens phps-mode-lex-analyzer--tokens))
+     ;;   (setq phps-mode-test--native-tokens nil)
+     ;;   (with-temp-buffer
+     ;;     (let ((filename (expand-file-name "lexer-test.tmp"))
+     ;;           (filename2 (expand-file-name "lexer-test2.tmp")))
+     ;;       (insert "<?php ini_set('display_errors', false); 
ini_set('error_reporting', false); if (function_exists('token_get_all')) { 
$tokens = token_get_all(file_get_contents(\"lexer-test2.tmp\")); echo \"'(\"; 
foreach ($tokens as $token) { echo \"\n  \"; if (is_array($token)) { echo 
token_name($token[0]); } else { echo '\"' . $token . '\"'; }} echo \"\n)\";}")
+     ;;       (write-file filename)
+     ;;       (kill-region (point-min) (point-max))
+     ;;       (insert ,source)
+     ;;       (write-file filename2)
+     ;;       (kill-region (point-min) (point-max))
+
+     ;;       (let* ((native-tokens
+     ;;               (call-process
+     ;;                "php"
+     ;;                nil
+     ;;                t
+     ;;                t
+     ;;                (concat "-f" filename))))
+     ;;         (when (= native-tokens 0)
+     ;;           ;; (message "native-tokens: %S %s" native-tokens 
(buffer-substring-no-properties (point-min) (point-max)))
+     ;;           (let ((tokens (eval (car (read-from-string 
(buffer-substring-no-properties (point-min) (point-max)))))))
+     ;;             (setq
+     ;;              phps-mode-test--native-tokens
+     ;;              tokens)
+     ;;             (let ((trimmed-tokens))
+     ;;               (dolist (token lexer-tokens)
+     ;;                 (push (car token) trimmed-tokens)
+     ;;                 )
+     ;;               (setq trimmed-tokens (reverse trimmed-tokens))
+     ;;               (should
+     ;;                (equal
+     ;;                 trimmed-tokens
+     ;;                 phps-mode-test--native-tokens))
+     ;;               (message "Native tokens matches elisp tokens"))))))))
      
      (kill-buffer test-buffer)
      (when ,title
diff --git a/phps-mode.el b/phps-mode.el
index 23b09e2..6597646 100644
--- a/phps-mode.el
+++ b/phps-mode.el
@@ -5,8 +5,8 @@
 ;; Author: Christian Johansson <christian@cvj.se>
 ;; Maintainer: Christian Johansson <christian@cvj.se>
 ;; Created: 3 Mar 2018
-;; Modified: 31 Oct 2021
-;; Version: 0.4.9
+;; Modified: 1 Nov 2021
+;; Version: 0.4.10
 ;; Keywords: tools, convenience
 ;; URL: https://github.com/cjohansson/emacs-phps-mode