Autorecode: Add the /GROUP subcommand

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

diff --git a/tests/language/stats/autorecode.at b/tests/language/stats/autorecode.at
index 6f112def33c1427f175366e63cf443371c78eb3c..8f971aefb7f0fa715d5f5e861e91a12f3628e9a7 100644 (file)
--- a/tests/language/stats/autorecode.at
+++ b/tests/language/stats/autorecode.at
@@ -107,3 +107,36 @@ new,Format: F8.2,,3
 ])
 
 AT_CLEANUP
+
+
+AT_SETUP([AUTORECODE group subcommand])
+AT_DATA([ar-group.sps],
+[data list notable list /x * y *.
+begin data.
+11 10
+12 12 
+13 15
+14 11
+15 12
+16 18
+end data.
+
+autorecode 
+       x y into a b
+       /group.
+
+list.
+])
+
+AT_CHECK([pspp -O format=csv ar-group.sps], [0],
+[Table: Data List
+x,y,a,b
+11.00,10.00,2.00,1.00
+12.00,12.00,3.00,3.00
+13.00,15.00,4.00,6.00
+14.00,11.00,5.00,2.00
+15.00,12.00,6.00,3.00
+16.00,18.00,7.00,8.00
+])
+
+AT_CLEANUP