pintos-os.org Git - pspp/blob - tests/language/stats/flip.at

   1 AT_BANNER([FLIP command])
   2
   3 AT_SETUP([FLIP with NEWNAMES])
   4 AT_DATA([flip.sps], [dnl
   5 data list notable /N 1 (a) a b c d 2-9.
   6 list.
   7 begin data.
   8 v 1 2 3 4 5
   9 w 6 7 8 910
  10 x1112131415
  11 y1617181920
  12 z2122232425
  13 end data.
  14 temporary.
  15 compute e = a.
  16 flip newnames=n.
  17 list.
  18 flip.
  19 list.
  20 ])
  21 AT_CHECK([pspp -O format=csv flip.sps], [0], [dnl
  22 Table: Data List
  23 N,a,b,c,d
  24 v,1,2,3,4
  25 w,6,7,8,9
  26 x,11,12,13,14
  27 y,16,17,18,19
  28 z,21,22,23,24
  29
  30 flip.sps:12: warning: FLIP: FLIP ignores TEMPORARY.  Temporary transformations will be made permanent.
  31
  32 Table: Data List
  33 CASE_LBL,v,w,x,y,z
  34 a       ,1.00,6.00,11.00,16.00,21.00
  35 b       ,2.00,7.00,12.00,17.00,22.00
  36 c       ,3.00,8.00,13.00,18.00,23.00
  37 d       ,4.00,9.00,14.00,19.00,24.00
  38 e       ,1.00,6.00,11.00,16.00,21.00
  39
  40 Table: Data List
  41 CASE_LBL,a,b,c,d,e
  42 v       ,1.00,2.00,3.00,4.00,1.00
  43 w       ,6.00,7.00,8.00,9.00,6.00
  44 x       ,11.00,12.00,13.00,14.00,11.00
  45 y       ,16.00,17.00,18.00,19.00,16.00
  46 z       ,21.00,22.00,23.00,24.00,21.00
  47 ])
  48 AT_CLEANUP
  49
  50 AT_SETUP([FLIP without NEWNAMES])
  51 AT_DATA([flip.sps], [dnl
  52 data list list notable /v1 to v10.
  53 format all(f2).
  54 begin data.
  55 1 2 3 4 5 6 7 8 9 10
  56 4 5 6 7 8 9 10 11 12 13
  57 end data.
  58
  59 list.
  60
  61 flip.
  62 list.
  63 ])
  64 AT_CHECK([pspp -O format=csv flip.sps], [0], [dnl
  65 Table: Data List
  66 v1,v2,v3,v4,v5,v6,v7,v8,v9,v10
  67 1,2,3,4,5,6,7,8,9,10
  68 4,5,6,7,8,9,10,11,12,13
  69
  70 Table: Data List
  71 CASE_LBL,VAR000,VAR001
  72 v1      ,1.00,4.00
  73 v2      ,2.00,5.00
  74 v3      ,3.00,6.00
  75 v4      ,4.00,7.00
  76 v5      ,5.00,8.00
  77 v6      ,6.00,9.00
  78 v7      ,7.00,10.00
  79 v8      ,8.00,11.00
  80 v9      ,9.00,12.00
  81 v10     ,10.00,13.00
  82 ])
  83 AT_CLEANUP
  84
  85
  86
  87
  88 AT_SETUP([FLIP badly formed])
  89
  90 AT_DATA([flip.sps], [dnl
  91 data list notable /N 1 (a) a b c d 2-9.
  92
  93 flip newnames=n.
  94 list.
  95 flip.
  96 ])
  97
  98 AT_CHECK([pspp -O format=csv flip.sps], [1], [ignore])
  99
 100 AT_CLEANUP
 101
 102
 103
 104 AT_SETUP([FLIP with invalid variable names])
 105
 106 AT_DATA([flip.sps], [dnl
 107 data list notable list /N (a3) a b c d *.
 108 begin data.
 109 ""   1  2  3  4
 110 BY   1  2  3  4
 111 end data.
 112
 113 flip newnames=n.
 114
 115 list.
 116 ])
 117
 118 AT_CHECK([pspp -O format=csv flip.sps], [0], [dnl
 119 Table: Data List
 120 CASE_LBL,v,BY1
 121 a       ,1.00,1.00
 122 b       ,2.00,2.00
 123 c       ,3.00,3.00
 124 d       ,4.00,4.00
 125 ])
 126
 127 AT_CLEANUP