pintos-os.org Git - pspp/blob - tests/language/dictionary/vector.at

   1 dnl PSPP - a program for statistical analysis.
   2 dnl Copyright (C) 2017 Free Software Foundation, Inc.
   3 dnl
   4 dnl This program is free software: you can redistribute it and/or modify
   5 dnl it under the terms of the GNU General Public License as published by
   6 dnl the Free Software Foundation, either version 3 of the License, or
   7 dnl (at your option) any later version.
   8 dnl
   9 dnl This program is distributed in the hope that it will be useful,
  10 dnl but WITHOUT ANY WARRANTY; without even the implied warranty of
  11 dnl MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12 dnl GNU General Public License for more details.
  13 dnl
  14 dnl You should have received a copy of the GNU General Public License
  15 dnl along with this program.  If not, see <http://www.gnu.org/licenses/>.
  16 dnl
  17 AT_BANNER([VECTOR])
  18
  19 AT_SETUP([VECTOR short form])
  20 AT_DATA([vector.sps], [dnl
  21 data list notable/x 1.
  22 vector v(4).
  23 display vector.
  24 ])
  25 AT_CHECK([pspp -o pspp.csv vector.sps])
  26 AT_CHECK([cat pspp.csv], [0], [dnl
  27 Table: Vectors
  28 Vector and Position,,Variable,Print Format
  29 v,1,v1,F8.2
  30 ,2,v2,F8.2
  31 ,3,v3,F8.2
  32 ,4,v4,F8.2
  33 ])
  34 AT_CLEANUP
  35
  36 AT_SETUP([VECTOR short form with format specification])
  37 AT_DATA([vector.sps], [dnl
  38 data list notable/x 1.
  39 vector #vec(4, comma10.2)
  40       /#svec(3, a8).
  41 display vector.
  42 ])
  43 AT_CHECK([pspp -o pspp.csv vector.sps])
  44 AT_CHECK([cat pspp.csv], [0], [dnl
  45 Table: Vectors
  46 Vector and Position,,Variable,Print Format
  47 #vec,1,#vec1,COMMA10.2
  48 ,2,#vec2,COMMA10.2
  49 ,3,#vec3,COMMA10.2
  50 ,4,#vec4,COMMA10.2
  51 #svec,1,#svec1,A8
  52 ,2,#svec2,A8
  53 ,3,#svec3,A8
  54 ])
  55 AT_CLEANUP
  56
  57 AT_SETUP([VECTOR short form in INPUT PROGRAM])
  58 AT_DATA([vector.sps], [dnl
  59 input program.
  60 vector x(5).
  61 data list notable/x5 x2 x3 x1 x4 1-5.
  62 end input program.
  63 display vector.
  64 ])
  65 AT_CHECK([pspp -o pspp.csv vector.sps])
  66 AT_CHECK([cat pspp.csv], [0], [dnl
  67 Table: Vectors
  68 Vector and Position,,Variable,Print Format
  69 x,1,x1,F8.2
  70 ,2,x2,F8.2
  71 ,3,x3,F8.2
  72 ,4,x4,F8.2
  73 ,5,x5,F8.2
  74 ])
  75 AT_CLEANUP
  76
  77 AT_SETUP([VECTOR long form])
  78 AT_DATA([vector.sps], [dnl
  79 data list notable/u w x y z 1-5.
  80 vector a=u to y.
  81 vector b=x to z.
  82 vector c=all.
  83 display vector.
  84 ])
  85 AT_CHECK([pspp -o pspp.csv vector.sps])
  86 AT_CHECK([cat pspp.csv], [0], [dnl
  87 Table: Vectors
  88 Vector and Position,,Variable,Print Format
  89 a,1,u,F1.0
  90 ,2,w,F1.0
  91 ,3,x,F1.0
  92 ,4,y,F1.0
  93 b,1,x,F1.0
  94 ,2,y,F1.0
  95 ,3,z,F1.0
  96 c,1,u,F1.0
  97 ,2,w,F1.0
  98 ,3,x,F1.0
  99 ,4,y,F1.0
 100 ,5,z,F1.0
 101 ])
 102 AT_CLEANUP