From 1c1e7a987f643aae50bf8b45928650bb384e5c6d Mon Sep 17 00:00:00 2001 From: Sergey Poznyakoff Date: Sat, 16 Jul 2016 12:43:14 +0300 Subject: Complement 529fed25 * tests/gcfpeek.c: New options: -strcat -stradj * tests/locus02.at: Use these. --- tests/gcfpeek.c | 4 ++++ tests/locus02.at | 4 +++- 2 files changed, 7 insertions(+), 1 deletion(-) 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 -- cgit v1.2.1