Add test for PHP 7.4 arrow function

Author: zonuexe

php-mode-test.el

@@ -973,4 +973,8 @@ Meant for `php-mode-test-issue-503'."
    (goto-char (point-min))
    (should (eq (php-mode-test-in-function-p nil) nil))))
 
+(ert-deftest php-mode-test-php74-arrow-fn ()
+  "Test highlighting arrow funcsion (short closure syntax) added in PHP 7.4."
+  (with-php-mode-test ("7.4/arrow-function.php" :faces t)))
+
 ;;; php-mode-test.el ends here

tests/7.4/arrow-function.php

@@ -0,0 +1,16 @@
+<?php
+
+/**
+ * GitHub-Issue: https://github.com/emacs-php/php-mode/issues/506
+ *
+ * @see https://wiki.php.net/rfc/arrow_functions_v2
+ */
+
+$fn1 = fn($x) => $x + $y;
+
+$fn2 = [
+    fn($x) => $x + $y
+];
+
+$z = 1;
+$fn3 = fn($x) => fn($y) => $x * $y + $z;

tests/7.4/arrow-function.php.faces

@@ -0,0 +1,64 @@
+;; -*- mode: emacs-lisp -*-
+(("<?php" . php-php-tag)
+ ("\n\n")
+ ("/**\n * GitHub-Issue: " . font-lock-doc-face)
+ ("https://github.com/emacs-php/php-mode/issues/506" link font-lock-doc-face)
+ ("\n *\n * " . font-lock-doc-face)
+ ("@see" php-doc-annotation-tag font-lock-doc-face)
+ (" " . font-lock-doc-face)
+ ("https://wiki.php.net/rfc/arrow_functions_v2" link font-lock-doc-face)
+ ("\n */" . font-lock-doc-face)
+ ("\n\n")
+ ("$" . php-variable-sigil)
+ ("fn1" . php-variable-name)
+ (" = ")
+ ("fn" . php-keyword)
+ ("(")
+ ("$" . php-variable-sigil)
+ ("x" . php-variable-name)
+ (") => ")
+ ("$" . php-variable-sigil)
+ ("x" . php-variable-name)
+ (" + ")
+ ("$" . php-variable-sigil)
+ ("y" . php-variable-name)
+ (";\n\n")
+ ("$" . php-variable-sigil)
+ ("fn2" . php-variable-name)
+ (" = [\n    ")
+ ("fn" . php-keyword)
+ ("(")
+ ("$" . php-variable-sigil)
+ ("x" . php-variable-name)
+ (") => ")
+ ("$" . php-variable-sigil)
+ ("x" . php-variable-name)
+ (" + ")
+ ("$" . php-variable-sigil)
+ ("y" . php-variable-name)
+ ("\n];\n\n")
+ ("$" . php-variable-sigil)
+ ("z" . php-variable-name)
+ (" = 1;\n")
+ ("$" . php-variable-sigil)
+ ("fn3" . php-variable-name)
+ (" = ")
+ ("fn" . php-keyword)
+ ("(")
+ ("$" . php-variable-sigil)
+ ("x" . php-variable-name)
+ (") => ")
+ ("fn" . php-keyword)
+ ("(")
+ ("$" . php-variable-sigil)
+ ("y" . php-variable-name)
+ (") => ")
+ ("$" . php-variable-sigil)
+ ("x" . php-variable-name)
+ (" * ")
+ ("$" . php-variable-sigil)
+ ("y" . php-variable-name)
+ (" + ")
+ ("$" . php-variable-sigil)
+ ("z" . php-variable-name)
+ (";\n"))