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.
110 lines
3.6 KiB
EmacsLisp
110 lines
3.6 KiB
EmacsLisp
;;; phpinspect-test.el --- Unit tests for phpinslect.el -*- lexical-binding: t; -*-
|
|
|
|
;; Copyright (C) 2021 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)
|
|
|
|
(defvar phpinspect-test-php-file-directory
|
|
(concat
|
|
(file-name-directory
|
|
(or load-file-name
|
|
buffer-file-name))
|
|
"/fixtures")
|
|
"Directory with syntax trees of example PHP files.")
|
|
|
|
(defun phpinspect-test-read-fixture-tree (name)
|
|
(with-temp-buffer
|
|
(insert-file-contents-literally (concat phpinspect-test-php-file-directory "/" name ".el"))
|
|
(read (current-buffer))))
|
|
|
|
(defun phpinspect-test-parse-fixture-code (name)
|
|
(phpinspect-parse-file
|
|
(concat phpinspect-test-php-file-directory "/" name ".php")))
|
|
|
|
(ert-deftest phpinspect-parse-namespaced-class ()
|
|
"Test phpinspect-parse on a namespaced class"
|
|
(should
|
|
(equal (phpinspect-test-read-fixture-tree "NamespacedClass")
|
|
(phpinspect-test-parse-fixture-code "NamespacedClass"))))
|
|
|
|
(ert-deftest phpinspect-parse-block ()
|
|
"Test phpinspect-parse for php blocks"
|
|
(should
|
|
(equal (phpinspect-test-read-fixture-tree "Block")
|
|
(phpinspect-test-parse-fixture-code "Block"))))
|
|
|
|
(ert-deftest phpinspect-parse-functions ()
|
|
"Test phpinspect-parse for php functions"
|
|
(should
|
|
(equal (phpinspect-test-read-fixture-tree "Functions")
|
|
(phpinspect-test-parse-fixture-code "Functions"))))
|
|
|
|
(ert-deftest phpinspect-parse-namespaced-functions ()
|
|
"Test phpinspect-parse for php blocks"
|
|
(should
|
|
(equal (phpinspect-test-read-fixture-tree "NamespacedFunctions")
|
|
(phpinspect-test-parse-fixture-code "NamespacedFunctions"))))
|
|
|
|
(ert-deftest phpinspect-parse-variable ()
|
|
"Test phpinspect-parse for php blocks"
|
|
(should
|
|
(equal (phpinspect-test-read-fixture-tree "Variable")
|
|
(phpinspect-test-parse-fixture-code "Variable"))))
|
|
|
|
(ert-deftest phpinspect-parse-word ()
|
|
"Test phpinspect-parse for php blocks"
|
|
(should
|
|
(equal (phpinspect-test-read-fixture-tree "Word")
|
|
(phpinspect-test-parse-fixture-code "Word"))))
|
|
|
|
(ert-deftest phpinspect-parse-array ()
|
|
"Test phpinspect-parse for php blocks"
|
|
(should
|
|
(equal (phpinspect-test-read-fixture-tree "Array")
|
|
(phpinspect-test-parse-fixture-code "Array"))))
|
|
|
|
|
|
(ert-deftest phpinspect-parse-short-function ()
|
|
"Test phpinspect-parse for php blocks"
|
|
(should
|
|
(equal (phpinspect-test-read-fixture-tree "ShortFunction")
|
|
(phpinspect-test-parse-fixture-code "ShortFunction"))))
|
|
|
|
(ert-deftest phpinspect-parse-two-short-functions ()
|
|
"Test phpinspect-parse for php blocks"
|
|
(should
|
|
(equal (phpinspect-test-read-fixture-tree "TwoShortFunctions")
|
|
(phpinspect-test-parse-fixture-code "TwoShortFunctions"))))
|
|
|
|
(ert-deftest phpinspect-parse-small-namespaced-class ()
|
|
"Test phpinspect-parse for php blocks"
|
|
(should
|
|
(equal (phpinspect-test-read-fixture-tree "SmallNamespacedClass")
|
|
(phpinspect-test-parse-fixture-code "SmallNamespacedClass"))))
|
|
|
|
|
|
(provide 'phpinspect-test)
|
|
;;; phpinspect-test.el ends here
|