You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
251 lines
11 KiB
EmacsLisp
251 lines
11 KiB
EmacsLisp
;;; test-index.el --- Unit tests for phpinspect.el -*- lexical-binding: t; -*-
|
|
|
|
;; Copyright (C) 2021-2023 Free Software Foundation, Inc.
|
|
|
|
;; Author: Hugo Thunnissen <devel@hugot.nl>
|
|
|
|
;; This program is free software; you can redistribute it and/or modify
|
|
;; it under the terms of the GNU General Public License as published by
|
|
;; the Free Software Foundation, either version 3 of the License, or
|
|
;; (at your option) any later version.
|
|
|
|
;; This program is distributed in the hope that it will be useful,
|
|
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
;; GNU General Public License for more details.
|
|
|
|
;; You should have received a copy of the GNU General Public License
|
|
;; along with this program. If not, see <https://www.gnu.org/licenses/>.
|
|
|
|
;;; Commentary:
|
|
|
|
;;
|
|
|
|
;;; Code:
|
|
(require 'ert)
|
|
(require 'phpinspect-index)
|
|
(require 'phpinspect-parse-context)
|
|
(require 'phpinspect-bmap)
|
|
(require 'phpinspect-parser)
|
|
(require 'phpinspect-test-env
|
|
(expand-file-name "phpinspect-test-env.el"
|
|
(file-name-directory (macroexp-file-name))))
|
|
|
|
|
|
(ert-deftest phpinspect-index-static-methods ()
|
|
(let* ((class-tokens
|
|
`(:root
|
|
(:class
|
|
(:declaration (:word "class") (:word "Potato"))
|
|
(:block
|
|
(:static
|
|
(:function (:declaration (:word "function")
|
|
(:word "staticMethod")
|
|
(:list (:variable "untyped")
|
|
(:comma)
|
|
(:word "array")
|
|
(:variable "things")))
|
|
(:block)))))))
|
|
(index (phpinspect--index-tokens class-tokens))
|
|
(expected-index
|
|
`(phpinspect--root-index
|
|
(imports)
|
|
(classes
|
|
(,(phpinspect--make-type :name "\\Potato" :fully-qualified t)
|
|
phpinspect--indexed-class
|
|
(complete . t)
|
|
(class-name . ,(phpinspect--make-type :name "\\Potato" :fully-qualified t))
|
|
(declaration . (:declaration (:word "class") (:word "Potato")))
|
|
(location . (0 0))
|
|
(imports)
|
|
(methods)
|
|
(static-methods . (,(phpinspect--make-function
|
|
:name "staticMethod"
|
|
:scope '(:public)
|
|
:token '(:function (:declaration (:word "function")
|
|
(:word "staticMethod")
|
|
(:list (:variable "untyped")
|
|
(:comma)
|
|
(:word "array")
|
|
(:variable "things")))
|
|
(:block))
|
|
:arguments `(("untyped" nil)
|
|
("things" ,(phpinspect--make-type :name "\\array"
|
|
:collection t
|
|
:fully-qualified t)))
|
|
:return-type phpinspect--null-type)))
|
|
(static-variables)
|
|
(variables)
|
|
(constants)
|
|
(extends)
|
|
(implements)
|
|
(used-types . (,(phpinspect-intern-name "array")))))
|
|
(used-types)
|
|
(functions))))
|
|
(should (equal expected-index index))))
|
|
|
|
(ert-deftest phpinspect-index-used-types-in-class ()
|
|
(let* ((result (phpinspect--index-tokens
|
|
(phpinspect-parse-string
|
|
"<?php namespace Field; class Potato extends Cheese, Bacon implements Ham, Bagel {
|
|
public function makeThing(): Thing
|
|
{
|
|
if ((new Monkey())->tree() === true) {
|
|
return new ExtendedThing();
|
|
}
|
|
return StaticThing::create(new ThingFactory())->makeThing((((new Potato())->antiPotato(new OtherThing()))));
|
|
}")))
|
|
(used-types (alist-get 'used-types (car (alist-get 'classes result)))))
|
|
(should (equal
|
|
(mapcar #'phpinspect-intern-name
|
|
(sort
|
|
(copy-sequence
|
|
'("Cheese" "Bacon" "Ham" "Bagel" "Monkey" "ExtendedThing"
|
|
"StaticThing" "Thing" "ThingFactory" "Potato" "OtherThing"))
|
|
#'string<))
|
|
(sort used-types (lambda (s1 s2) (string< (phpinspect-name-string s1) (phpinspect-name-string s2))))))))
|
|
|
|
(ert-deftest phpinspect--find-used-types-in-tokens ()
|
|
(let ((blocks `(
|
|
((:block (:word "return")
|
|
(:word "new")
|
|
(:word "Response")
|
|
(:list))
|
|
("Response"))
|
|
((:block (:list (:word "new") (:word "Response"))
|
|
(:object-attrib (:word "someMethod")
|
|
(:list (:word "new")
|
|
(:word "Request"))))
|
|
("Request" "Response")))))
|
|
(dolist (set blocks)
|
|
(let ((result (phpinspect--find-used-types-in-tokens (car set))))
|
|
(should (equal (sort (copy-sequence (cadr set)) #'string-lessp) (sort result #'string-lessp)))))))
|
|
|
|
(ert-deftest phpinspect-index-method-annotations ()
|
|
(let* ((result (phpinspect--index-tokens
|
|
(phpinspect-parse-string
|
|
"<?php
|
|
|
|
/* @method int peel(bool $fast, array $loose)
|
|
* @method Banana duplicate()
|
|
@method hold() **/
|
|
class Banana {}")))
|
|
(class (car (alist-get 'classes result)))
|
|
(methods (alist-get 'methods class)))
|
|
(should (= 3 (length methods)))
|
|
(dolist (method methods)
|
|
(should (member (phpinspect--function-name method)
|
|
'("duplicate" "hold" "peel")))
|
|
|
|
(cond ((string= (phpinspect--function-name method)
|
|
"duplicate")
|
|
(should (phpinspect--type=
|
|
(phpinspect--make-type :name "\\Banana" :fully-qualified t)
|
|
(phpinspect--function-return-type method))))
|
|
((string= (phpinspect--function-name method)
|
|
"peel")
|
|
(should (phpinspect--type=
|
|
(phpinspect--make-type :name "\\int" :fully-qualified t)
|
|
(phpinspect--function-return-type method)))
|
|
|
|
(should (= 2 (length (phpinspect--function-arguments method))))
|
|
(should (phpinspect--type=
|
|
(phpinspect--make-type :name "\\array" :fully-qualified t)
|
|
(car (alist-get
|
|
"loose" (phpinspect--function-arguments method) nil nil #'string=))))
|
|
(should (phpinspect--type=
|
|
(phpinspect--make-type :name "\\bool" :fully-qualified t)
|
|
(car (alist-get
|
|
"fast" (phpinspect--function-arguments method) nil nil #'string=)))))
|
|
((string= (phpinspect--function-name method)
|
|
"hold")
|
|
(should (phpinspect--type=
|
|
(phpinspect--make-type :name "\\void" :fully-qualified t)
|
|
(phpinspect--function-return-type method))))))))
|
|
|
|
(ert-deftest phpinspect-index-tokens-class ()
|
|
(let* ((index1
|
|
(phpinspect--index-tokens
|
|
(phpinspect-test-read-fixture-data "IndexClass1")))
|
|
(index2
|
|
(phpinspect-test-read-fixture-serialization "IndexClass1-indexed"))
|
|
(index1-class (car (alist-get 'classes index1)))
|
|
(index2-class (car (alist-get 'classes index2))))
|
|
|
|
(dolist (key '(class-name imports methods static-methods static-variables variables constants extends implements))
|
|
(should (equal (alist-get key index1-class)
|
|
(alist-get key index2-class))))))
|
|
|
|
(ert-deftest phpinspect-index-bmap-class ()
|
|
(let* ((pctx (phpinspect-make-pctx :incremental t :bmap (phpinspect-make-bmap)))
|
|
(tree))
|
|
(with-temp-buffer
|
|
(insert-file-contents (expand-file-name "IndexClass1.php" phpinspect-test-php-file-directory))
|
|
(setf (phpinspect-pctx-bmap pctx) (phpinspect-make-bmap))
|
|
(phpinspect-with-parse-context pctx (setq tree (phpinspect-parse-current-buffer))))
|
|
(let* ((index1 (phpinspect--index-tokens tree
|
|
nil
|
|
(phpinspect-bmap-make-location-resolver
|
|
(phpinspect-pctx-bmap pctx))))
|
|
(index2
|
|
(phpinspect-test-read-fixture-serialization "IndexClass1-indexed"))
|
|
(index1-class (car (alist-get 'classes index1)))
|
|
(index2-class (car (alist-get 'classes index2))))
|
|
|
|
(dolist (key '(imports methods static-methods static-variables variables constants extends implements))
|
|
(should (equal (alist-get key index1-class)
|
|
(alist-get key index2-class))))
|
|
|
|
(should (alist-get 'location index1-class))
|
|
(should (alist-get 'location index1-class)))))
|
|
|
|
(ert-deftest phpinspect-index-functions ()
|
|
(let* ((code "<?php
|
|
use Example\\Thing;
|
|
|
|
function test_func(): array {}
|
|
|
|
function example(): Thing {}")
|
|
(tokens (phpinspect-parse-string code))
|
|
(index (phpinspect--index-tokens tokens))
|
|
functions)
|
|
|
|
(should (setq functions (alist-get 'functions index)))
|
|
(should (= 2 (length functions)))
|
|
(should (string= "test_func" (phpinspect--function-name (cadr functions))))
|
|
(should (string= "example" (phpinspect--function-name (car functions))))
|
|
|
|
(should (phpinspect--type= (phpinspect--make-type :name "\\array")
|
|
(phpinspect--function-return-type (cadr functions))))
|
|
(should (phpinspect--type= (phpinspect--make-type :name "\\Example\\Thing")
|
|
(phpinspect--function-return-type (car functions))))))
|
|
|
|
(ert-deftest phpinspect-index-functions-in-namespace ()
|
|
(let* ((code "<?php
|
|
namespace Local;
|
|
|
|
use Example\\Thing;
|
|
|
|
function test_func(): array {}
|
|
|
|
function example(Firewall $wall): Thing {}")
|
|
(tokens (phpinspect-parse-string code))
|
|
(index (phpinspect--index-tokens tokens))
|
|
functions)
|
|
|
|
(should (setq functions (alist-get 'functions index)))
|
|
(should (= 2 (length functions)))
|
|
(should (string= "Local\\test_func" (phpinspect--function-name (cadr functions))))
|
|
(should (string= "Local\\example" (phpinspect--function-name (car functions))))
|
|
|
|
(should (phpinspect--type= (phpinspect--make-type :name "\\array")
|
|
(phpinspect--function-return-type (cadr functions))))
|
|
(should (phpinspect--type= (phpinspect--make-type :name "\\Example\\Thing")
|
|
(phpinspect--function-return-type (car functions))))
|
|
(should (= 3 (length (alist-get 'used-types index))))
|
|
(should (member (phpinspect-intern-name "Firewall") (alist-get 'used-types index)))
|
|
(should (member (phpinspect-intern-name "array") (alist-get 'used-types index)))
|
|
(should (member (phpinspect-intern-name "Thing") (alist-get 'used-types index)))
|
|
|
|
(should (alist-get 'used-types index))))
|