' . print_r($search_ids, true) . '';\n}" "Alternative indentation on line echo" (phps-mode-test-lex-analyzer--alternative-indentation-whole-buffer) (let ((buffer-contents (buffer-substring-no-properties (point-min) (point-max)))) (should (equal buffer-contents "' . print_r($store_vars, true) . '';\n echo 'search_ids:
' . print_r($search_ids, true) . '';\n}" )))) (phps-mode-test--with-buffer "\n'def',\n);" "Alternative indentation on lines after lines ending with T_DOUBLE_ARROW" (phps-mode-test-lex-analyzer--alternative-indentation-whole-buffer) (let ((buffer-contents (buffer-substring-no-properties (point-min) (point-max)))) (should (equal buffer-contents "\n 'def',\n);" )))) (phps-mode-test--with-buffer " true,\n\n);" "Alternative indentation after comma ended double arrow assignment" (phps-mode-test-lex-analyzer--alternative-indentation-whole-buffer) (let ((buffer-contents (buffer-substring-no-properties (point-min) (point-max)))) (should (equal buffer-contents " true,\n \n);" )))) (phps-mode-test--with-buffer "getResponseBodyDecoded();\n // TODO Here\n" "Line after multi-line assignment with object-operator" (phps-mode-test-lex-analyzer--alternative-indentation-whole-buffer) (let ((buffer-contents (buffer-substring-no-properties (point-min) (point-max)))) (should (equal buffer-contents "$applications =\n $transaction->getResponseBodyDecoded();\n// TODO Here\n" )))) (phps-mode-test--with-buffer "
' . print_r($decodedData, true) . '
' . print_r($decodedData, true) . '
My paragraph
\n\n" 0 0 0 0 0 )))) (should (equal '(2 2 1 0) (nth 0 (phps-mode-lex-analyzer--get-inline-html-indentation "\nMy paragraph
\n\n" 2 2 0 0 0 )))) (should (equal '(0) (nth 0 (phps-mode-lex-analyzer--get-inline-html-indentation "" 0 0 0 0 0 )))) (should (equal '(0 1 2 1 0) (nth 0 (phps-mode-lex-analyzer--get-inline-html-indentation "\n" 0 0 0 0 0 )))) ) (defun phps-mode-test-lex-analyzer--bookkeeping () "Test the bookkeeping." (phps-mode-test--with-buffer " $value) {\n if ($key || $value) {\n echo 'Hit';\n }\n}\nfor ($i = 0; $i < count($items); $i++) {\n if ($i) {\n echo 'Hit';\n }\n}\nif ($a = 123) {\n if ($a) {\n echo 'Hit';\n }\n}\nwhile ($b = 123) {\n if ($a) {\n echo 'Hit';\n }\n}\ndo {\n echo 'Hit';\n} while ($c = 456);\n" "Bookkeeping of conditional assignments" (should (equal (phps-mode-test--hash-to-list (phps-mode-lex-analyzer--get-bookkeeping) t) (list (list " id $items" 1) (list (list 36 42) 1) (list (list 70 76) 1) (list " id $item" 1) (list (list 80 85) 1) (list (list 97 102) 1) (list (list 143 149) 1) (list " id $key" 1) (list (list 153 157) 1) (list " id $value" 1) (list (list 161 167) 1) (list (list 179 183) 1) (list (list 187 193) 1) (list " id $i" 1) (list (list 230 232) 1) (list (list 238 240) 1) (list (list 249 255) 1) (list (list 258 260) 1) (list (list 274 276) 1) (list " id $a" 1) (list (list 312 314) 1) (list (list 332 334) 1) (list " id $b" 1) (list (list 373 375) 1) (list (list 393 395) 1) (list " id $c" 1) (list (list 457 459) 1))))) (phps-mode-test--with-buffer "var1) {\n echo 'Hit';\n }\n if (self::$var1) {\n echo 'Miss';\n }\n if (self::$var2) {\n echo 'Hit';\n }\n if ($this->var3) {\n echo 'Hit';\n }\n if ($this->var4) {\n echo 'Hit';\n }\n if ($this->var5) {\n echo 'Miss';\n }\n if (paren1) {\n echo 'Hit';\n }\n }\n}\n\nif ($this) {\n echo 'Miss';\n}\nif (self) {\n echo 'Miss';\n}\nif (paren1) {\n echo 'Miss';\n}" "Bookkeeping of class properties" ;; (message "Bookkeeping: %s" (phps-mode-test--hash-to-list (phps-mode-lex-analyzer--get-bookkeeping) t)) (should (equal (phps-mode-test--hash-to-list (phps-mode-lex-analyzer--get-bookkeeping) t) (list (list " class myParent id $var1" 1) (list (list 93 98) 1) (list " class myParent static id $var2" 1) (list (list 127 132) 1) (list " class myParent id $var3" 1) (list (list 145 150) 1) (list " class myParent id $var4" 1) (list (list 160 165) 1) (list " class myParent function __construct id $this" 1) (list (list 208 213) 1) (list (list 263 268) 1) (list (list 270 274) 1) (list (list 330 335) 0) (list (list 392 397) 1) (list (list 447 452) 1) (list (list 454 458) 1) (list (list 508 513) 1) (list (list 515 519) 1) (list (list 569 574) 1) (list (list 576 580) 0) (list (list 688 693) 0))))) (phps-mode-test--with-buffer "random();\n $this->random['abc'] = 123;\n }\n}" "Method calls should be avoied in bookkeeping" ;; (message "Bookkeeping: %s" (phps-mode-test--hash-to-list (phps-mode-lex-analyzer--get-bookkeeping) t)) (should (equal (phps-mode-test--hash-to-list (phps-mode-lex-analyzer--get-bookkeeping) t) (list (list " class myClass function __construct id $this" 1) (list (list 89 94) 1) (list (list 114 119) 1))))) (phps-mode-test--with-buffer " &$item2) {\n if ($item) {\n echo 'Hit';\n }\n}" "Bookkeeping of foreach reference variable declaration" (should (equal (phps-mode-test--hash-to-list (phps-mode-lex-analyzer--get-bookkeeping) t) (list (list " id $items" 1) (list (list 7 13) 1) (list (list 41 47) 1) (list " id $item" 1) (list (list 52 57) 1) (list (list 69 74) 1) (list (list 115 121) 1) (list " id $key" 1) (list (list 125 129) 1) (list " id $item2" 1) (list (list 134 140) 1) (list (list 152 157) 1))))) (phps-mode-test--with-buffer " $x + $y;\n$z = 1;\n$fn = fn($x2) => fn($y2) => $x2 * $y2 + $z;\nfn(array $x3) => $x3;\n$x4 = 4;\nstatic fn(): int => $x4;\nfn($x5 = 42) => $x5;\nfn(&$x6) => $x6;\nfn&($x7) => $x7;\nfn($x8, ...$rest) => $rest;" "Bookkeeping in arrow functions" (should (equal (phps-mode-test--hash-to-list (phps-mode-lex-analyzer--get-bookkeeping) t) (list (list " id $y" 1) (list (list 7 9) 1) (list " id $fn1" 1) (list (list 15 19) 1) (list " arrow function 1 id $x" 1) (list (list 25 27) 1) (list (list 32 34) 1) (list (list 37 39) 1) (list " id $z" 1) (list (list 41 43) 1) (list " id $fn" 1) (list (list 49 52) 1) (list " arrow function 2 id $x2" 1) (list (list 58 61) 1) (list " arrow function 2 id $y2" 1) (list (list 69 72) 1) (list (list 77 80) 1) (list (list 83 86) 1) (list (list 89 91) 1) (list " arrow function 3 id $x3" 1) (list (list 102 105) 1) (list (list 110 113) 1) (list " id $x4" 1) (list (list 115 118) 1) (list (list 144 147) 1) (list " arrow function 5 id $x5" 1) (list (list 152 155) 1) (list (list 165 168) 1) (list " arrow function 6 id $x6" 1) (list (list 174 177) 1) (list (list 182 185) 1) (list " arrow function 7 id $x7" 1) (list (list 191 194) 1) (list (list 199 202) 1) (list " arrow function 8 id $x8" 1) (list (list 207 210) 1) (list " arrow function 8 id $rest" 1) (list (list 215 220) 1) (list (list 225 230) 1))))) (phps-mode-test--with-buffer " 'random');\nif ($z->name) {\n echo 'Hit';\n}" "Bookkeeping object properties." (should (equal (phps-mode-test--hash-to-list (phps-mode-lex-analyzer--get-bookkeeping) t) (list (list " id $z" 1) (list (list 7 9) 1) (list (list 52 54) 1))))) (phps-mode-test--with-buffer " $page)\n{\n if (isset($pages)) {\n if ($a) {\n echo 'Hit';\n }\n if ($uri) {\n echo 'Hit';\n }\n if ($page) {\n echo 'Hit';\n }\n }\n}\n" "Bookkeeping of foreach variable inside if (isset()) block" (should (equal (phps-mode-test--hash-to-list (phps-mode-lex-analyzer--get-bookkeeping) t) '((" id $a" 1) ((8 10) 1) ((38 40) 1) (" id $uri" 1) ((44 48) 1) (" id $page" 1) ((52 57) 1) (" defined 1 id $pages" 1) ((75 81) 1) ((98 100) 1) ((150 154) 1) ((204 209) 1))))) (phps-mode-test--with-buffer "