pintos-os.org Git - pspp/blob - tests/language/xforms/select-if.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 AT_BANNER([FILTER])
  17
  18 AT_SETUP([FILTER])
  19 AT_DATA([filter.sps], [dnl
  20 data list notable /X 1-2.
  21 begin data.
  22 1
  23 2
  24 3
  25 4
  26 5
  27 6
  28 7
  29 8
  30 9
  31 10
  32 end data.
  33 compute FILTER_$ = mod(x,2).
  34
  35 filter by filter_$.
  36 list.
  37 filter off.
  38 list.
  39 compute filter_$ = 1 - filter_$.
  40 filter by filter_$.
  41 list.
  42 ])
  43 AT_CHECK([pspp -o pspp.csv filter.sps])
  44 AT_CHECK([cat pspp.csv], [0], [dnl
  45 Table: Data List
  46 X,FILTER_$
  47 1,1.00
  48 3,1.00
  49 5,1.00
  50 7,1.00
  51 9,1.00
  52
  53 Table: Data List
  54 X,FILTER_$
  55 1,1.00
  56 2,.00
  57 3,1.00
  58 4,.00
  59 5,1.00
  60 6,.00
  61 7,1.00
  62 8,.00
  63 9,1.00
  64 10,.00
  65
  66 Table: Data List
  67 X,FILTER_$
  68 2,1.00
  69 4,1.00
  70 6,1.00
  71 8,1.00
  72 10,1.00
  73 ])
  74 AT_CLEANUP