diff options
author | Sergey Poznyakoff <gray@gnu.org> | 2016-07-16 12:43:14 +0300 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org> | 2016-07-16 12:43:58 +0300 |
commit | 1c1e7a987f643aae50bf8b45928650bb384e5c6d (patch) | |
tree | 30bf8f603df2618d76d07756bf7dced0d9548e3b | |
parent | 529fed25f92e04d694c30b3fc6bc8645e2703f4e (diff) | |
download | grecs-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.c | 4 | ||||
-rw-r--r-- | tests/locus02.at | 4 |
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) | |||
74 | usage(progname, stderr, 1); | 74 | usage(progname, stderr, 1); |
75 | } else if (strncmp(arg, "-root=", 6) == 0) | 75 | } else if (strncmp(arg, "-root=", 6) == 0) |
76 | root_path = arg + 6; | 76 | root_path = arg + 6; |
77 | else if (strcmp(arg, "-strcat") == 0) | ||
78 | grecs_parser_options |= GRECS_OPTION_QUOTED_STRING_CONCAT; | ||
79 | else if (strcmp(arg, "-stradj") == 0) | ||
80 | grecs_parser_options |= GRECS_OPTION_ADJUST_STRING_LOCATIONS; | ||
77 | else if (strcmp(arg, "-h") == 0) | 81 | else if (strcmp(arg, "-h") == 0) |
78 | usage(progname, stdout, 0); | 82 | usage(progname, stdout, 0); |
79 | else if (arg[0] == '-') | 83 | 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" | |||
23 | " strings"; | 23 | " strings"; |
24 | ]) | 24 | ]) |
25 | 25 | ||
26 | AT_CHECK([gcfpeek -nopath -locus test.cf .string], | 26 | AT_CHECK([gcfpeek -nopath -locus -strcat test.cf .string |
27 | gcfpeek -nopath -locus -strcat -stradj test.cf .string], | ||
27 | [0], | 28 | [0], |
28 | [test.cf:2.8-4.17: "concatenated quoted strings" | 29 | [test.cf:2.8-4.17: "concatenated quoted strings" |
30 | test.cf:2.9-4.16: "concatenated quoted strings" | ||
29 | ]) | 31 | ]) |
30 | 32 | ||
31 | AT_CLEANUP | 33 | AT_CLEANUP |