xref: /Universal-ctags/Tmain/readtags-qualifier-op-string-append.d/run.sh (revision 1e6fda5c39afabf3307fab5bedd584577282297a) 
1#!/bin/sh
2
3# Copyright: 2021 Masatake YAMATO
4# License: GPL-2
5
6READTAGS=$3
7
8. ../utils.sh
9
10#V="valgrind --leak-check=full -v"
11V=
12
13if ! [ -x "${READTAGS}" ]; then
14    skip "no readtags"
15fi
16
17if ! ( "${READTAGS}" -h | grep -q -e -S ); then
18    skip "no qualifier function in readtags"
19fi
20
21r()
22{
23	echo ';; ' "$1"
24	${V} ${READTAGS} -e -t output.tags -Q "$1" -l
25}
26
27r '(eq? $scope-name (string-append "ab" $name "cy"))'
28r '(eq? $scope-name (concat "ab" "p" "cy"))'
29r '(eq? $scope-name (concat (concat "a" "b") $name (concat "c" "y")))'
30r '(eq? $scope-name (concat (concat "a" "b" $name) (concat "c" "y")))'
31r '(eq? $scope-name (concat (concat (concat "a" "b" $name) (concat "c" "y"))))'
32r '((string->regexp (concat (concat (concat "a" "b" $name) (concat "c" "y")))) (or $scope-name ""))'
33r '((string->regexp (concat (concat (concat "a" "b" "p") (concat "c" "y")))) (or $scope-name ""))'
34r '((printX (string->regexp (concat (concat (concat "a" "b" "p") (concat "c" "y"))))) (or $scope-name ""))'
35