T-TEST: Allow comma to be omitted in GROUPS subcommand.

Reported by Douglas Bonett and Friedrich Beckmann.

diff --git a/src/language/stats/t-test-parser.c b/src/language/stats/t-test-parser.c
index 138969f8bf4f3d3437733fc53e9d2a34393b2c97..660997e95c25ffa4b7af3c452a7771f8a4f7f80a 100644 (file)
--- 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 9212fa771db4c815b161f0e7bd8a2d652a730440..0ad76faa53fded93d8d582d8c2adac19b2589a78 100644 (file)
--- 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])