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.
103 lines
3.9 KiB
EmacsLisp
103 lines
3.9 KiB
EmacsLisp
|
|
(require 'phpinspect-bmap)
|
|
|
|
(ert-deftest phpinspect-bmap-overlay ()
|
|
(let ((bmap (phpinspect-make-bmap))
|
|
(bmap2 (phpinspect-make-bmap))
|
|
(bmap3 (phpinspect-make-bmap)))
|
|
|
|
(phpinspect-bmap-register bmap 10 20 'token)
|
|
(phpinspect-bmap-register bmap2 20 24 'token2)
|
|
(phpinspect-bmap-register bmap3 40 50 'token3)
|
|
|
|
(should (phpinspect-bmap-token-starting-at bmap 10))
|
|
|
|
(phpinspect-bmap-overlay
|
|
bmap bmap3 (phpinspect-bmap-token-starting-at bmap3 40) 10)
|
|
|
|
(should (phpinspect-bmap-token-starting-at bmap 50))
|
|
|
|
(phpinspect-bmap-overlay
|
|
bmap2 bmap (phpinspect-bmap-token-starting-at bmap 10) -3)
|
|
|
|
(phpinspect-bmap-overlay
|
|
bmap2 bmap (phpinspect-bmap-token-starting-at bmap 50) 5)
|
|
|
|
|
|
(should (eq 'token2 (phpinspect-meta-token
|
|
(phpinspect-bmap-token-starting-at bmap2 20))))
|
|
(should (eq 'token (phpinspect-meta-token
|
|
(phpinspect-bmap-token-starting-at bmap2 7))))
|
|
|
|
(should (phpinspect-bmap-token-meta bmap 'token))
|
|
(should (phpinspect-bmap-token-meta bmap2 'token2))
|
|
(should (phpinspect-bmap-token-meta bmap2 'token))
|
|
(should (phpinspect-bmap-token-meta bmap2 'token3))))
|
|
|
|
(ert-deftest phpinspect-bmap-nest-parent ()
|
|
(let ((bmap (phpinspect-make-bmap)))
|
|
(phpinspect-bmap-register bmap 10 20 'child)
|
|
(phpinspect-bmap-register bmap 5 25 'parent)
|
|
(phpinspect-bmap-register bmap 2 30 'granny)
|
|
|
|
(let ((child (phpinspect-bmap-token-meta bmap 'child))
|
|
(parent (phpinspect-bmap-token-meta bmap 'parent)))
|
|
(should (eq 'parent (phpinspect-meta-token
|
|
(phpinspect-meta-parent child))))
|
|
(should (eq 'granny (phpinspect-meta-token (phpinspect-meta-parent parent)))))))
|
|
|
|
|
|
(ert-deftest phpinspect-bmap-tokens-overlapping ()
|
|
(let ((bmap (phpinspect-make-bmap)))
|
|
(phpinspect-bmap-register bmap 9 200 'node1)
|
|
(phpinspect-bmap-register bmap 20 200 'node2)
|
|
(phpinspect-bmap-register bmap 9 20 'node3)
|
|
(phpinspect-bmap-register bmap 21 44 'node4)
|
|
|
|
(setq result (phpinspect-bmap-tokens-overlapping bmap 22))
|
|
(should (equal '(node4 node2 node1) (mapcar #'phpinspect-meta-token result)))))
|
|
|
|
(ert-deftest phpinspect-bmap-tokens-overlapping-overlayed ()
|
|
(let ((bmap (phpinspect-make-bmap))
|
|
(bmap2 (phpinspect-make-bmap))
|
|
(bmap3 (phpinspect-make-bmap)))
|
|
(phpinspect-bmap-register bmap 9 200 'token1)
|
|
(phpinspect-bmap-register bmap 20 200 'token2)
|
|
(phpinspect-bmap-register bmap 9 20 'token3)
|
|
(phpinspect-bmap-register bmap 21 44 'token4)
|
|
|
|
(phpinspect-bmap-register bmap2 200 230 'token5)
|
|
(phpinspect-bmap-register bmap3 300 305 'token6)
|
|
|
|
;; Should start at 220 of bmap2
|
|
(phpinspect-bmap-overlay
|
|
bmap2 bmap3 (phpinspect-bmap-token-starting-at bmap3 300) -80)
|
|
|
|
(setq result (phpinspect-bmap-tokens-overlapping bmap2 220))
|
|
(should (equal '(token6 token5) (mapcar #'phpinspect-meta-token result)))
|
|
|
|
(phpinspect-bmap-overlay
|
|
bmap bmap2 (phpinspect-bmap-token-starting-at bmap2 200) 20)
|
|
|
|
(setq result (phpinspect-bmap-tokens-overlapping bmap 240))
|
|
(should (equal '(token6 token5) (mapcar #'phpinspect-meta-token result)))
|
|
|
|
(setq result (phpinspect-bmap-tokens-overlapping bmap 22))
|
|
(should (equal '(token4 token2 token1) (mapcar #'phpinspect-meta-token result)))))
|
|
|
|
(ert-deftest phpinspect-bmap-register ()
|
|
(let* ((bmap (phpinspect-make-bmap))
|
|
(token1 `(:word "foo"))
|
|
(token2 `(:word "bar"))
|
|
(token3 `(:block ,token1 ,token2))
|
|
(token4 `(:list ,token3)))
|
|
(phpinspect-bmap-register bmap 10 20 token1)
|
|
(phpinspect-bmap-register bmap 20 30 token2)
|
|
(phpinspect-bmap-register bmap 9 31 token3)
|
|
(phpinspect-bmap-register bmap 8 32 token4)
|
|
|
|
(should (phpinspect-bmap-token-meta bmap token1))
|
|
(should (phpinspect-bmap-token-meta bmap token2))
|
|
(should (phpinspect-bmap-token-meta bmap token3))
|
|
(should (phpinspect-bmap-token-meta bmap token4))))
|