From: Ben Pfaff <blp@cs.stanford.edu>
Date: Fri, 31 Jul 2015 15:44:41 +0000 (-0700)
Subject: T-TEST: Allow comma to be omitted in GROUPS subcommand.
X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=0445306befa6a3bfba7e2f749dd78097afe00a98;p=pspp

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 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])