X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=tests%2Flanguage%2Fstats%2Fflip.at;h=06fb969fa56c7406cd8a5606beab21ccf7bba988;hb=5dbf5abcbed01f04422d4dead1c0ae0bb7efde4f;hp=6ebacfd8dcd98e04464f6999b01fc4b5f87d58d6;hpb=5aee303c40fc10d689756324133ed46de4fe62fa;p=pspp

diff --git a/tests/language/stats/flip.at b/tests/language/stats/flip.at
index 6ebacfd8dc..06fb969fa5 100644
--- a/tests/language/stats/flip.at
+++ b/tests/language/stats/flip.at
@@ -1,8 +1,24 @@
+dnl PSPP - a program for statistical analysis.
+dnl Copyright (C) 2017 Free Software Foundation, Inc.
+dnl 
+dnl This program is free software: you can redistribute it and/or modify
+dnl it under the terms of the GNU General Public License as published by
+dnl the Free Software Foundation, either version 3 of the License, or
+dnl (at your option) any later version.
+dnl 
+dnl This program is distributed in the hope that it will be useful,
+dnl but WITHOUT ANY WARRANTY; without even the implied warranty of
+dnl MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+dnl GNU General Public License for more details.
+dnl 
+dnl You should have received a copy of the GNU General Public License
+dnl along with this program.  If not, see <http://www.gnu.org/licenses/>.
+dnl
 AT_BANNER([FLIP command])
 
 AT_SETUP([FLIP with NEWNAMES])
 AT_DATA([flip.sps], [dnl
-data list notable /N 1 (a) A B C D 2-9.
+data list notable /N 1 (a) a b c d 2-9.
 list.
 begin data.
 v 1 2 3 4 5
@@ -11,6 +27,8 @@ x1112131415
 y1617181920
 z2122232425
 end data.
+temporary.
+compute e = a.
 flip newnames=n.
 list.
 flip.
@@ -18,27 +36,30 @@ list.
 ])
 AT_CHECK([pspp -O format=csv flip.sps], [0], [dnl
 Table: Data List
-N,A,B,C,D
+N,a,b,c,d
 v,1,2,3,4
 w,6,7,8,9
 x,11,12,13,14
 y,16,17,18,19
 z,21,22,23,24
 
+flip.sps:12: warning: FLIP: FLIP ignores TEMPORARY.  Temporary transformations will be made permanent.
+
 Table: Data List
-CASE_LBL,V,W,X,Y,Z
-A       ,1.00,6.00,11.00,16.00,21.00
-B       ,2.00,7.00,12.00,17.00,22.00
-C       ,3.00,8.00,13.00,18.00,23.00
-D       ,4.00,9.00,14.00,19.00,24.00
+CASE_LBL,v,w,x,y,z
+a       ,1.00,6.00,11.00,16.00,21.00
+b       ,2.00,7.00,12.00,17.00,22.00
+c       ,3.00,8.00,13.00,18.00,23.00
+d       ,4.00,9.00,14.00,19.00,24.00
+e       ,1.00,6.00,11.00,16.00,21.00
 
 Table: Data List
-CASE_LBL,A,B,C,D
-V       ,1.00,2.00,3.00,4.00
-W       ,6.00,7.00,8.00,9.00
-X       ,11.00,12.00,13.00,14.00
-Y       ,16.00,17.00,18.00,19.00
-Z       ,21.00,22.00,23.00,24.00
+CASE_LBL,a,b,c,d,e
+v       ,1.00,2.00,3.00,4.00,1.00
+w       ,6.00,7.00,8.00,9.00,6.00
+x       ,11.00,12.00,13.00,14.00,11.00
+y       ,16.00,17.00,18.00,19.00,16.00
+z       ,21.00,22.00,23.00,24.00,21.00
 ])
 AT_CLEANUP
 
@@ -76,3 +97,47 @@ v9      ,9.00,12.00
 v10     ,10.00,13.00
 ])
 AT_CLEANUP
+
+
+
+
+AT_SETUP([FLIP badly formed])
+
+AT_DATA([flip.sps], [dnl
+data list notable /N 1 (a) a b c d 2-9.
+
+flip newnames=n.
+list.
+flip.
+])
+
+AT_CHECK([pspp -O format=csv flip.sps], [1], [ignore])
+
+AT_CLEANUP
+
+
+
+AT_SETUP([FLIP with invalid variable names])
+
+AT_DATA([flip.sps], [dnl
+data list notable list /N (a3) a b c d *.
+begin data.
+""   1  2  3  4
+BY   1  2  3  4
+end data.
+
+flip newnames=n.
+
+list.
+])
+
+AT_CHECK([pspp -O format=csv flip.sps], [0], [dnl
+Table: Data List
+CASE_LBL,v,BY1
+a       ,1.00,1.00
+b       ,2.00,2.00
+c       ,3.00,3.00
+d       ,4.00,4.00
+])
+
+AT_CLEANUP