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 flip newnames=n.
  15 list.
  16 flip.
  17 list.
  18 ])
  19 AT_CHECK([pspp -O format=csv flip.sps], [0], [dnl
  20 Table: Data List
  21 N,A,B,C,D
  22 v,1,2,3,4
  23 w,6,7,8,9
  24 x,11,12,13,14
  25 y,16,17,18,19
  26 z,21,22,23,24
  27
  28 Table: Data List
  29 CASE_LBL,V,W,X,Y,Z
  30 A       ,1.00,6.00,11.00,16.00,21.00
  31 B       ,2.00,7.00,12.00,17.00,22.00
  32 C       ,3.00,8.00,13.00,18.00,23.00
  33 D       ,4.00,9.00,14.00,19.00,24.00
  34
  35 Table: Data List
  36 CASE_LBL,A,B,C,D
  37 V       ,1.00,2.00,3.00,4.00
  38 W       ,6.00,7.00,8.00,9.00
  39 X       ,11.00,12.00,13.00,14.00
  40 Y       ,16.00,17.00,18.00,19.00
  41 Z       ,21.00,22.00,23.00,24.00
  42 ])
  43 AT_CLEANUP
  44
  45 AT_SETUP([FLIP without NEWNAMES])
  46 AT_DATA([flip.sps], [dnl
  47 data list list notable /v1 to v10.
  48 format all(f2).
  49 begin data.
  50 1 2 3 4 5 6 7 8 9 10
  51 4 5 6 7 8 9 10 11 12 13
  52 end data.
  53
  54 list.
  55
  56 flip.
  57 list.
  58 ])
  59 AT_CHECK([pspp -O format=csv flip.sps], [0], [dnl
  60 Table: Data List
  61 v1,v2,v3,v4,v5,v6,v7,v8,v9,v10
  62 1,2,3,4,5,6,7,8,9,10
  63 4,5,6,7,8,9,10,11,12,13
  64
  65 Table: Data List
  66 CASE_LBL,VAR000,VAR001
  67 v1      ,1.00,4.00
  68 v2      ,2.00,5.00
  69 v3      ,3.00,6.00
  70 v4      ,4.00,7.00
  71 v5      ,5.00,8.00
  72 v6      ,6.00,9.00
  73 v7      ,7.00,10.00
  74 v8      ,8.00,11.00
  75 v9      ,9.00,12.00
  76 v10     ,10.00,13.00
  77 ])
  78 AT_CLEANUP