From 0445306befa6a3bfba7e2f749dd78097afe00a98 Mon Sep 17 00:00:00 2001 From: Ben Pfaff Date: Fri, 31 Jul 2015 08:44:41 -0700 Subject: [PATCH] T-TEST: Allow comma to be omitted in GROUPS subcommand. Reported by Douglas Bonett and Friedrich Beckmann. --- src/language/stats/t-test-parser.c | 3 ++- tests/language/stats/t-test.at | 2 +- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/src/language/stats/t-test-parser.c b/src/language/stats/t-test-parser.c index 138969f8bf..660997e95c 100644 --- a/src/language/stats/t-test-parser.c +++ b/src/language/stats/t-test-parser.c @@ -100,8 +100,9 @@ cmd_t_test (struct lexer *lexer, struct dataset *ds) value_init (&gval0, var_get_width (gvar)); parse_value (lexer, &gval0, gvar); cut = true; - if (lex_match (lexer, T_COMMA)) + if (lex_token (lexer) != T_RPAREN) { + lex_match (lexer, T_COMMA); value_init (&gval1, var_get_width (gvar)); parse_value (lexer, &gval1, gvar); cut = false; diff --git a/tests/language/stats/t-test.at b/tests/language/stats/t-test.at index 9212fa771d..0ad76faa53 100644 --- a/tests/language/stats/t-test.at +++ b/tests/language/stats/t-test.at @@ -658,7 +658,7 @@ end data. TEMPORARY. SELECT IF x < 7. -t-test /groups=ind(1,2) /var x. +t-test /groups=ind(1 2) /var x. ]) AT_CHECK([pspp -o temporary.csv temporary.sps]) AT_CHECK([cat temporary.csv], [0], [expout]) -- 2.30.2