pintos-os.org Git - pspp/blob - tests/language/xforms/select-if.at

   1 AT_BANNER([FILTER])
   2
   3 AT_SETUP([FILTER])
   4 AT_DATA([filter.sps], [dnl
   5 data list notable /X 1-2.
   6 begin data.
   7 1
   8 2
   9 3
  10 4
  11 5
  12 6
  13 7
  14 8
  15 9
  16 10
  17 end data.
  18 compute FILTER_$ = mod(x,2).
  19
  20 filter by filter_$.
  21 list.
  22 filter off.
  23 list.
  24 compute filter_$ = 1 - filter_$.
  25 filter by filter_$.
  26 list.
  27 ])
  28 AT_CHECK([pspp -o pspp.csv filter.sps])
  29 AT_CHECK([cat pspp.csv], [0], [dnl
  30 Table: Data List
  31 X,FILTER_$
  32 1,1.00
  33 3,1.00
  34 5,1.00
  35 7,1.00
  36 9,1.00
  37
  38 Table: Data List
  39 X,FILTER_$
  40 1,1.00
  41 2,.00
  42 3,1.00
  43 4,.00
  44 5,1.00
  45 6,.00
  46 7,1.00
  47 8,.00
  48 9,1.00
  49 10,.00
  50
  51 Table: Data List
  52 X,FILTER_$
  53 2,1.00
  54 4,1.00
  55 6,1.00
  56 8,1.00
  57 10,1.00
  58 ])
  59 AT_CLEANUP