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

   1 AT_BANNER([SORT VARIABLES])
   2
   3 AT_SETUP([SORT VARIABLES])
   4 # This reverses the order of its input lines.
   5 # From the GNU sed manual.
   6 tac () {
   7     sed -n '1! G
   8 $ p
   9 h'
  10 }
  11
  12 test_sort () {
  13     cat > sort-variables.sps <<EOF
  14 DATA LIST FREE/$1.
  15 $2
  16 SORT VARIABLES $3.
  17 DISPLAY NAMES.
  18 SORT VARIABLES $3(D).
  19 DISPLAY NAMES.
  20 EOF
  21     AT_CHECK_UNQUOTED([pspp -O format=csv sort-variables.sps], [0],
  22 [Variable
  23 `for var in $4; do echo $var; done`
  24
  25 Variable
  26 `for var in $4; do echo $var; done | tac`
  27 ])
  28 }
  29
  30 test_sort 'x100 c b x99 a y400 y5' '' NAME 'a b c x99 x100 y5 y400'
  31 test_sort 'c(a10) a(a5) b' '' TYPE 'b a c'
  32 test_sort 'a (datetime) b (f) c (a5) d (a2) e (a1)' '' FORMAT 'e d c b a'
  33 test_sort 'a b c' \
  34     'VARIABLE LABEL a "hi there".' \
  35     LABEL 'b c a'
  36 test_sort 'a b c' \
  37     'VALUE LABELS a 123 "xyzzy".' \
  38     VALUES 'b c a'
  39 test_sort 'a b c' \
  40     'MISSING VALUES a (123).' \
  41     MISSING 'b c a'
  42 test_sort 'a b c' \
  43     'VARIABLE LEVEL a (SCALE) b (ORDINAL) c (NOMINAL).' \
  44     MEASURE 'c b a'
  45 test_sort 'b n i s t p' \
  46     'VARIABLE ROLE /INPUT i /TARGET t /BOTH b /NONE n /PARTITION p /SPLIT s.' \
  47     ROLE 'i t b n p s'
  48 test_sort 'c10 c5 c15 c9' \
  49     'VARIABLE WIDTH c10(10) c5(5) c15(15) c9(9).' \
  50     COLUMNS 'c5 c9 c10 c15'
  51 test_sort 'c l r' \
  52     'VARIABLE ALIGNMENT c (CENTER) l (LEFT) r (RIGHT).' \
  53     ALIGNMENT 'l r c'
  54 test_sort 'az ax ay ab' \
  55     'VARIABLE ATTRIBUTE VARIABLES=az ATTRIBUTE=key("z").
  56      VARIABLE ATTRIBUTE VARIABLES=ax ATTRIBUTE=key("x").
  57      VARIABLE ATTRIBUTE VARIABLES=ay ATTRIBUTE=key("y").
  58      VARIABLE ATTRIBUTE VARIABLES=ab ATTRIBUTE=key("b").' \
  59     'ATTRIBUTE key' 'ab ax ay az'
  60 AT_CLEANUP