aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSergey Poznyakoff <gray@gnu.org>2016-07-16 12:43:14 +0300
committerSergey Poznyakoff <gray@gnu.org>2016-07-16 12:43:58 +0300
commit1c1e7a987f643aae50bf8b45928650bb384e5c6d (patch)
tree30bf8f603df2618d76d07756bf7dced0d9548e3b
parent529fed25f92e04d694c30b3fc6bc8645e2703f4e (diff)
downloadgrecs-1c1e7a987f643aae50bf8b45928650bb384e5c6d.tar.gz
grecs-1c1e7a987f643aae50bf8b45928650bb384e5c6d.tar.bz2
Complement 529fed25
* tests/gcfpeek.c: New options: -strcat -stradj * tests/locus02.at: Use these.
-rw-r--r--tests/gcfpeek.c4
-rw-r--r--tests/locus02.at4
2 files changed, 7 insertions, 1 deletions
diff --git a/tests/gcfpeek.c b/tests/gcfpeek.c
index 8e71c62..3dbd12b 100644
--- a/tests/gcfpeek.c
+++ b/tests/gcfpeek.c
@@ -74,6 +74,10 @@ main(int argc, char **argv)
usage(progname, stderr, 1);
} else if (strncmp(arg, "-root=", 6) == 0)
root_path = arg + 6;
+ else if (strcmp(arg, "-strcat") == 0)
+ grecs_parser_options |= GRECS_OPTION_QUOTED_STRING_CONCAT;
+ else if (strcmp(arg, "-stradj") == 0)
+ grecs_parser_options |= GRECS_OPTION_ADJUST_STRING_LOCATIONS;
else if (strcmp(arg, "-h") == 0)
usage(progname, stdout, 0);
else if (arg[0] == '-')
diff --git a/tests/locus02.at b/tests/locus02.at
index d88cba6..4587be0 100644
--- a/tests/locus02.at
+++ b/tests/locus02.at
@@ -23,9 +23,11 @@ string "concatenated"
" strings";
])
-AT_CHECK([gcfpeek -nopath -locus test.cf .string],
+AT_CHECK([gcfpeek -nopath -locus -strcat test.cf .string
+gcfpeek -nopath -locus -strcat -stradj test.cf .string],
[0],
[test.cf:2.8-4.17: "concatenated quoted strings"
+test.cf:2.9-4.16: "concatenated quoted strings"
])
AT_CLEANUP

Return to:

Send suggestions and report system problems to the System administrator.