Aggregate: Fixed bug when attempting to create duplicate variable

[pspp] / tests / language / stats / aggregate.at

diff --git a/tests/language/stats/aggregate.at b/tests/language/stats/aggregate.at
index 3c10d3ad40fdc8a3e0a2daebd1e3e11a89c4a94c..da078f84d1ff298bf4355bf774c21216416ce46f 100644 (file)
--- a/tests/language/stats/aggregate.at
+++ b/tests/language/stats/aggregate.at
@@ -249,3 +249,43 @@ x,cn,y,sum,mean,median
 ])
 
 AT_CLEANUP
+
+
+AT_SETUP([AGGREGATE buggy duplicate variables])
+dnl Test for a bug which crashed when duplicated
+dnl variables were attempted.
+AT_DATA([dup-variables.sps],
+  [DATA LIST NOTABLE LIST /x * .
+begin data
+1
+1
+1
+1
+2
+2
+2
+3
+3
+3
+3
+3
+3
+end data.
+
+AGGREGATE OUTFILE=* MODE=ADDVARIABLES
+       /BREAK= x
+       /N_BREAK = N.
+
+AGGREGATE OUTFILE=* MODE=ADDVARIABLES
+       /BREAK= x
+       /N_BREAK = N.
+])
+
+AT_CHECK([pspp -O format=csv dup-variables.sps], [1],
+["dup-variables.sps:24: error: AGGREGATE: Variable name N_BREAK is not unique within the aggregate file dictionary, which contains the aggregate variables and the break variables."
+
+dup-variables.sps:24: error: Stopping syntax file processing here to avoid a cascade of dependent command failures.
+])
+
+
+AT_CLEANUP
\ No newline at end of file