From 95b6394d56fe347634a207f2e65a3ef9cfe05ca8 Mon Sep 17 00:00:00 2001
From: Ben Pfaff <blp@cs.stanford.edu>
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 <embar@super.lt>.
Reported by Chuck Kralowec <chuck.kralowec@gmail.com>.
---
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 73602bd669..4858a25706 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 80519fab2c..90b7ba9e59 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