Tmain: add a case for testing $nth and &nth fields value of readtags

Signed-off-by: Masatake YAMATO <[email protected]>

Author: masatake

Tmain/readtags-qualifier-nth-field.d/exit-expected.txt

@@ -0,0 +1 @@
+0

Tmain/readtags-qualifier-nth-field.d/input.c

@@ -0,0 +1,5 @@
+/* ctags --options=NONE --sort=yes--kinds-C=+z --fields=+o output.tags */
+int z(int y, int x)
+{
+	return 0;
+}

Tmain/readtags-qualifier-nth-field.d/output.tags

@@ -0,0 +1,14 @@
+!_TAG_FILE_FORMAT	2	/extended format; --format=1 will not append ;" to lines/
+!_TAG_FILE_SORTED	1	/0=unsorted, 1=sorted, 2=foldcase/
+!_TAG_OUTPUT_EXCMD	mixed	/number, pattern, mixed, or combineV2/
+!_TAG_OUTPUT_FILESEP	slash	/slash or backslash/
+!_TAG_OUTPUT_MODE	u-ctags	/u-ctags or e-ctags/
+!_TAG_PATTERN_LENGTH_LIMIT	96	/0 for no limit/
+!_TAG_PROC_CWD	/home/jet/var/ctags-github/Tmain/readtags-qualifier-nth-field.d/	//
+!_TAG_PROGRAM_AUTHOR	Universal Ctags Team	//
+!_TAG_PROGRAM_NAME	Universal Ctags	/Derived from Exuberant Ctags/
+!_TAG_PROGRAM_URL	https://ctags.io/	/official site/
+!_TAG_PROGRAM_VERSION	5.9.0	//
+x	input.c	/^int z(int y, int x)$/;"	z	function:z	typeref:typename:int	file:	nth:1
+y	input.c	/^int z(int y, int x)$/;"	z	function:z	typeref:typename:int	file:	nth:0
+z	input.c	/^int z(int y, int x)$/;"	f	typeref:typename:int

Tmain/readtags-qualifier-nth-field.d/run.sh

@@ -0,0 +1,25 @@
+#!/bin/sh
+
+# Copyright: 2016 Masatake YAMATO
+# License: GPL-2
+
+READTAGS=$3
+
+. ../utils.sh
+
+#V="valgrind --leak-check=full -v"
+V=
+
+if ! [ -x "${READTAGS}" ]; then
+    skip "no readtags"
+fi
+
+if ! ( "${READTAGS}" -h | grep -q -e -Q ); then
+    skip "no qualifier function in readtags"
+fi
+
+${V} ${READTAGS} -e -t output.tags \
+	 -Q '(eq? $kind "z")' \
+	 -S '(<> $nth &nth)' \
+	 -F '(list $name ":" $nth #t)' \
+	 -l

Tmain/readtags-qualifier-nth-field.d/stderr-expected.txt

@@ -0,0 +1,2 @@
+y:0
+x:1