From 95b6394d56fe347634a207f2e65a3ef9cfe05ca8 Mon Sep 17 00:00:00 2001 From: Ben Pfaff Date: Sat, 29 Jan 2011 10:02:32 -0800 Subject: [PATCH] q2c: T_RPAREN should be T_LPAREN for matching a left parenthesis. Also add a test for this case on the T-TEST command, where the bug was first reported. Bug #32061. Reported by Mindaugas . Reported by Chuck Kralowec . --- src/language/lexer/q2c.c | 4 ++-- tests/language/stats/t-test.at | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/src/language/lexer/q2c.c b/src/language/lexer/q2c.c index 73602bd6..4858a257 100644 --- a/src/language/lexer/q2c.c +++ b/src/language/lexer/q2c.c @@ -1,5 +1,5 @@ /* PSPP - a program for statistical analysis. - Copyright (C) 1997-9, 2000, 2008, 2010 Free Software Foundation, Inc. + Copyright (C) 1997-9, 2000, 2008, 2010, 2011 Free Software Foundation, Inc. This program is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by @@ -1498,7 +1498,7 @@ dump_specifier_parse (const specifier *spec, const subcommand *sbc) } else { - dump (1, "if (!lex_match (lexer, T_RPAREN))"); + dump (1, "if (!lex_match (lexer, T_LPAREN))"); dump (1, "{"); dump (0, "msg (SE, _(\"`(' expected after %s " "specifier of %s subcommand.\"));", diff --git a/tests/language/stats/t-test.at b/tests/language/stats/t-test.at index 80519fab..90b7ba9e 100644 --- a/tests/language/stats/t-test.at +++ b/tests/language/stats/t-test.at @@ -1,4 +1,4 @@ -AT_BANNER([T-TEST]) +/AT_BANNER([T-TEST]) AT_SETUP([T-TEST /PAIRS]) AT_DATA([t-test.sps], [dnl @@ -93,7 +93,7 @@ begin data. end data. -t-test /MISSING=analysis /PAIRS a c with b d (PAIRED). +t-test /MISSING=analysis /PAIRS a c with b d (PAIRED) /CRITERIA=CIN(0.95). ]) AT_CHECK([pspp -o missing.csv missing.sps]) AT_CHECK([cat missing.csv], [0], [expout]) -- 2.30.2