X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=tests%2Flanguage%2Fstats%2Fautorecode.at;h=8f971aefb7f0fa715d5f5e861e91a12f3628e9a7;hb=d500232dbfbf76be9e525e3e5cdf59505b0cdf32;hp=6f112def33c1427f175366e63cf443371c78eb3c;hpb=805e7e4f88947b7c39ca2890927a50ef5391d956;p=pspp

diff --git a/tests/language/stats/autorecode.at b/tests/language/stats/autorecode.at
index 6f112def33..8f971aefb7 100644
--- 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