pintos-os.org Git - pspp/blob - tests/language/dictionary/missing-values.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([MISSING VALUES])
  17
  18 AT_SETUP([MISSING VALUES valid cases])
  19 AT_DATA([missing-values.sps], [dnl
  20 DATA LIST NOTABLE/str1 1-5 (A) str2 6-8 (A) date1 9-19 (DATE) num1 20-25
  21                   longstr 26-36 (A).
  22
  23 * Numeric missing values.
  24 MISSING VALUES date1 num1 (1).
  25 DISPLAY DICTIONARY date1 num1.
  26 MISSING VALUES date1 num1 (1, 2).
  27 DISPLAY DICTIONARY date1 num1.
  28 MISSING VALUES date1 num1 (1, 2, 3).
  29 DISPLAY DICTIONARY date1 num1.
  30 MISSING VALUES date1 num1 (9999998, 9999984, 3).
  31 DISPLAY DICTIONARY date1 num1.
  32
  33 * Numeric missing values using the first variable's format.
  34 MISSING VALUES num1 date1 ('1').
  35 DISPLAY DICTIONARY date1 num1.
  36 MISSING VALUES num1 date1 ('1', '2').
  37 DISPLAY DICTIONARY date1 num1.
  38 MISSING VALUES num1 date1 ('1', '2', '3').
  39 DISPLAY DICTIONARY date1 num1.
  40 MISSING VALUES date1 num1 ('06-AUG-05').
  41 DISPLAY DICTIONARY date1 num1.
  42 MISSING VALUES date1 num1 ('06-AUG-05', '01-OCT-78').
  43 DISPLAY DICTIONARY date1 num1.
  44 MISSING VALUES date1 num1 ('06-AUG-05', '01-OCT-78', '14-FEB-81').
  45 DISPLAY DICTIONARY date1 num1.
  46
  47 * Ranges of numeric missing values.
  48 MISSING VALUES num1 (1 THRU 2).
  49 DISPLAY DICTIONARY num1.
  50 MISSING VALUES num1 (LO THRU 2).
  51 DISPLAY DICTIONARY num1.
  52 MISSING VALUES num1 (LOWEST THRU 2).
  53 DISPLAY DICTIONARY num1.
  54 MISSING VALUES num1 (1 THRU HI).
  55 DISPLAY DICTIONARY num1.
  56 MISSING VALUES num1 (1 THRU HIGHEST).
  57 DISPLAY DICTIONARY num1.
  58
  59 * A range of numeric missing values, plus an individual value.
  60 MISSING VALUES num1 (1 THRU 2, 3).
  61 DISPLAY DICTIONARY num1.
  62 MISSING VALUES num1 (LO THRU 2, 3).
  63 DISPLAY DICTIONARY num1.
  64 MISSING VALUES num1 (LOWEST THRU 2, 3).
  65 DISPLAY DICTIONARY num1.
  66 MISSING VALUES num1 (1 THRU HI, -1).
  67 DISPLAY DICTIONARY num1.
  68 MISSING VALUES num1 (1 THRU HIGHEST, -1).
  69 DISPLAY DICTIONARY num1.
  70
  71 * String missing values.
  72 MISSING VALUES str1 str2 longstr ('abc  ','def').
  73 DISPLAY DICTIONARY str1 str2 longstr.
  74
  75 * May mix variable types when clearing missing values.
  76 MISSING VALUES ALL ().
  77 DISPLAY DICTIONARY
  78 ])
  79 AT_CHECK([pspp -o pspp.csv missing-values.sps])
  80 AT_CHECK([sed -n '/^$/p; /^@<:@^"@:>@*"@<:@^"@:>@*$/N; s/^\(@<:@a-z0-9@:>@*\),".*Missing Values: \(.*\)",@<:@0-9@:>@*$/\1: \2/p; s/^\(@<:@a-z0-9@:>@*\),Format: @<:@A-Z0-9.@:>@*,@<:@0-9@:>@*$/\1: none/p' pspp.csv
  81 ], [0], [dnl
  82 date1: 1
  83 num1: 1
  84
  85 date1: 1; 2
  86 num1: 1; 2
  87
  88 date1: 1; 2; 3
  89 num1: 1; 2; 3
  90
  91 date1: 9999998; 9999984; 3
  92 num1: 9999998; 9999984; 3
  93
  94 date1: 1
  95 num1: 1
  96
  97 date1: 1; 2
  98 num1: 1; 2
  99
 100 date1: 1; 2; 3
 101 num1: 1; 2; 3
 102
 103 date1: 13342665600
 104 num1: 13342665600
 105
 106 date1: 13342665600; 12495427200
 107 num1: 13342665600; 12495427200
 108
 109 date1: 13342665600; 12495427200; 12570336000
 110 num1: 13342665600; 12495427200; 12570336000
 111
 112 num1: 1 THRU 2
 113
 114 num1: LOWEST THRU 2
 115
 116 num1: LOWEST THRU 2
 117
 118 num1: 1 THRU HIGHEST
 119
 120 num1: 1 THRU HIGHEST
 121
 122 num1: 1 THRU 2; 3
 123
 124 num1: LOWEST THRU 2; 3
 125
 126 num1: LOWEST THRU 2; 3
 127
 128 num1: 1 THRU HIGHEST; -1
 129
 130 num1: 1 THRU HIGHEST; -1
 131
 132 str1: ""abc  ""; ""def  ""
 133 str2: ""abc""; ""def""
 134 longstr: ""abc     ""; ""def     ""
 135
 136 str1: none
 137 str2: none
 138 date1: none
 139 num1: none
 140 longstr: none
 141 ])
 142 AT_CLEANUP
 143
 144 AT_SETUP([MISSING VALUES invalid cases])
 145 AT_DATA([missing-values.sps], [dnl
 146 DATA LIST NOTABLE/str1 1-5 (A) str2 6-8 (A) date1 9-19 (DATE) num1 20-25
 147                   longstr 26-36 (A).
 148
 149 * Too long for str2.
 150 MISSING VALUES str1 str2 longstr ('abcde').
 151
 152 * Long string missing value longer than 8 bytes.
 153 MISSING VALUES longstr ('abcdefghijk').
 154
 155 * No string ranges.
 156 MISSING VALUES str1 ('a' THRU 'z').
 157
 158 * Mixing string and numeric variables.
 159 MISSING VALUES str1 num1 ('123').
 160
 161 * Too many values.
 162 MISSING VALUES num1 (1, 2, 3, 4).
 163 MISSING VALUES num1 (1 THRU 2, 3 THRU 4).
 164 MISSING VALUES num1 (1, 2 THRU 3, 4).
 165 MISSING VALUES str1 ('abc', 'def', 'ghi', 'jkl').
 166
 167 * Bad range.
 168 MISSING VALUES num1 (2 THRU 1).
 169 ])
 170 AT_CHECK([pspp -O format=csv missing-values.sps], [1], [dnl
 171 missing-values.sps:5: error: MISSING VALUES: Missing values provided are too long to assign to variable of width 3.
 172
 173 missing-values.sps:8: error: MISSING VALUES: Truncating missing value to maximum acceptable length (8 bytes).
 174
 175 missing-values.sps:11.26-11.29: error: MISSING VALUES: Syntax error at `THRU': expecting string.
 176
 177 missing-values.sps:11: error: MISSING VALUES: THRU is not a variable name.
 178
 179 missing-values.sps:14: error: MISSING VALUES: Cannot mix numeric variables (e.g. num1) and string variables (e.g. str1) within a single list.
 180
 181 missing-values.sps:17: error: MISSING VALUES: Too many numeric missing values.  At most three individual values or one value and one range are allowed.
 182
 183 missing-values.sps:18: error: MISSING VALUES: Too many numeric missing values.  At most three individual values or one value and one range are allowed.
 184
 185 missing-values.sps:19: error: MISSING VALUES: Too many numeric missing values.  At most three individual values or one value and one range are allowed.
 186
 187 missing-values.sps:20: error: MISSING VALUES: Too many string missing values.  At most three individual values are allowed.
 188
 189 missing-values.sps:23: warning: MISSING VALUES: The high end of the range (1) is below the low end (2).  The range will be treated as if reversed.
 190 ])
 191 AT_CLEANUP