| 1 | ------------------------------------------------------------------------
|
|---|
| 2 | -- invert.decTest -- digitwise logical INVERT --
|
|---|
| 3 | -- Copyright (c) IBM Corporation, 1981, 2008. All rights reserved. --
|
|---|
| 4 | ------------------------------------------------------------------------
|
|---|
| 5 | -- Please see the document "General Decimal Arithmetic Testcases" --
|
|---|
| 6 | -- at http://www2.hursley.ibm.com/decimal for the description of --
|
|---|
| 7 | -- these testcases. --
|
|---|
| 8 | -- --
|
|---|
| 9 | -- These testcases are experimental ('beta' versions), and they --
|
|---|
| 10 | -- may contain errors. They are offered on an as-is basis. In --
|
|---|
| 11 | -- particular, achieving the same results as the tests here is not --
|
|---|
| 12 | -- a guarantee that an implementation complies with any Standard --
|
|---|
| 13 | -- or specification. The tests are not exhaustive. --
|
|---|
| 14 | -- --
|
|---|
| 15 | -- Please send comments, suggestions, and corrections to the author: --
|
|---|
| 16 | -- Mike Cowlishaw, IBM Fellow --
|
|---|
| 17 | -- IBM UK, PO Box 31, Birmingham Road, Warwick CV34 5JL, UK --
|
|---|
| 18 | -- mfc@uk.ibm.com --
|
|---|
| 19 | ------------------------------------------------------------------------
|
|---|
| 20 | version: 2.59
|
|---|
| 21 |
|
|---|
| 22 | extended: 1
|
|---|
| 23 | precision: 9
|
|---|
| 24 | rounding: half_up
|
|---|
| 25 | maxExponent: 999
|
|---|
| 26 | minExponent: -999
|
|---|
| 27 |
|
|---|
| 28 | -- Sanity check (truth table), and examples from decArith
|
|---|
| 29 | invx001 invert 0 -> 111111111
|
|---|
| 30 | invx002 invert 1 -> 111111110
|
|---|
| 31 | invx003 invert 10 -> 111111101
|
|---|
| 32 | invx004 invert 111111111 -> 0
|
|---|
| 33 | invx005 invert 000000000 -> 111111111
|
|---|
| 34 | invx006 invert 101010101 -> '10101010'
|
|---|
| 35 | -- and at msd and msd-1
|
|---|
| 36 | invx007 invert 000000000 -> 111111111
|
|---|
| 37 | invx009 invert 100000000 -> 11111111
|
|---|
| 38 | invx011 invert 000000000 -> 111111111
|
|---|
| 39 | invx013 invert 010000000 -> 101111111
|
|---|
| 40 |
|
|---|
| 41 | -- Various lengths
|
|---|
| 42 | -- 123456789 123456789
|
|---|
| 43 | invx021 invert 111111111 -> 0
|
|---|
| 44 | invx022 invert 111111111111 -> 0
|
|---|
| 45 | invx023 invert 11111111 -> 100000000
|
|---|
| 46 | invx025 invert 1111111 -> 110000000
|
|---|
| 47 | invx026 invert 111111 -> 111000000
|
|---|
| 48 | invx027 invert 11111 -> 111100000
|
|---|
| 49 | invx028 invert 1111 -> 111110000
|
|---|
| 50 | invx029 invert 111 -> 111111000
|
|---|
| 51 | invx031 invert 11 -> 111111100
|
|---|
| 52 | invx032 invert 1 -> 111111110
|
|---|
| 53 | invx033 invert 111111111111 -> 0
|
|---|
| 54 | invx034 invert 11111111111 -> 0
|
|---|
| 55 | invx035 invert 1111111111 -> 0
|
|---|
| 56 | invx036 invert 111111111 -> 0
|
|---|
| 57 |
|
|---|
| 58 | invx080 invert 011111111 -> 100000000
|
|---|
| 59 | invx081 invert 101111111 -> 10000000
|
|---|
| 60 | invx082 invert 110111111 -> 1000000
|
|---|
| 61 | invx083 invert 111011111 -> 100000
|
|---|
| 62 | invx084 invert 111101111 -> 10000
|
|---|
| 63 | invx085 invert 111110111 -> 1000
|
|---|
| 64 | invx086 invert 111111011 -> 100
|
|---|
| 65 | invx087 invert 111111101 -> 10
|
|---|
| 66 | invx088 invert 111111110 -> 1
|
|---|
| 67 | invx089 invert 011111011 -> 100000100
|
|---|
| 68 | invx090 invert 101111101 -> 10000010
|
|---|
| 69 | invx091 invert 110111110 -> 1000001
|
|---|
| 70 | invx092 invert 111011101 -> 100010
|
|---|
| 71 | invx093 invert 111101011 -> 10100
|
|---|
| 72 | invx094 invert 111110111 -> 1000
|
|---|
| 73 | invx095 invert 111101011 -> 10100
|
|---|
| 74 | invx096 invert 111011101 -> 100010
|
|---|
| 75 | invx097 invert 110111110 -> 1000001
|
|---|
| 76 | invx098 invert 101111101 -> 10000010
|
|---|
| 77 | invx099 invert 011111011 -> 100000100
|
|---|
| 78 |
|
|---|
| 79 | -- non-0/1 should not be accepted, nor should signs
|
|---|
| 80 | invx220 invert 111111112 -> NaN Invalid_operation
|
|---|
| 81 | invx221 invert 333333333 -> NaN Invalid_operation
|
|---|
| 82 | invx222 invert 555555555 -> NaN Invalid_operation
|
|---|
| 83 | invx223 invert 777777777 -> NaN Invalid_operation
|
|---|
| 84 | invx224 invert 999999999 -> NaN Invalid_operation
|
|---|
| 85 | invx225 invert 222222222 -> NaN Invalid_operation
|
|---|
| 86 | invx226 invert 444444444 -> NaN Invalid_operation
|
|---|
| 87 | invx227 invert 666666666 -> NaN Invalid_operation
|
|---|
| 88 | invx228 invert 888888888 -> NaN Invalid_operation
|
|---|
| 89 | invx229 invert 999999999 -> NaN Invalid_operation
|
|---|
| 90 | invx230 invert 999999999 -> NaN Invalid_operation
|
|---|
| 91 | invx231 invert 999999999 -> NaN Invalid_operation
|
|---|
| 92 | invx232 invert 999999999 -> NaN Invalid_operation
|
|---|
| 93 | -- a few randoms
|
|---|
| 94 | invx240 invert 567468689 -> NaN Invalid_operation
|
|---|
| 95 | invx241 invert 567367689 -> NaN Invalid_operation
|
|---|
| 96 | invx242 invert -631917772 -> NaN Invalid_operation
|
|---|
| 97 | invx243 invert -756253257 -> NaN Invalid_operation
|
|---|
| 98 | invx244 invert 835590149 -> NaN Invalid_operation
|
|---|
| 99 | -- test MSD
|
|---|
| 100 | invx250 invert 200000000 -> NaN Invalid_operation
|
|---|
| 101 | invx251 invert 300000000 -> NaN Invalid_operation
|
|---|
| 102 | invx252 invert 400000000 -> NaN Invalid_operation
|
|---|
| 103 | invx253 invert 500000000 -> NaN Invalid_operation
|
|---|
| 104 | invx254 invert 600000000 -> NaN Invalid_operation
|
|---|
| 105 | invx255 invert 700000000 -> NaN Invalid_operation
|
|---|
| 106 | invx256 invert 800000000 -> NaN Invalid_operation
|
|---|
| 107 | invx257 invert 900000000 -> NaN Invalid_operation
|
|---|
| 108 | -- test MSD-1
|
|---|
| 109 | invx270 invert 021000000 -> NaN Invalid_operation
|
|---|
| 110 | invx271 invert 030100000 -> NaN Invalid_operation
|
|---|
| 111 | invx272 invert 040010000 -> NaN Invalid_operation
|
|---|
| 112 | invx273 invert 050001000 -> NaN Invalid_operation
|
|---|
| 113 | invx274 invert 160000100 -> NaN Invalid_operation
|
|---|
| 114 | invx275 invert 170000010 -> NaN Invalid_operation
|
|---|
| 115 | invx276 invert 180000000 -> NaN Invalid_operation
|
|---|
| 116 | invx277 invert 190000000 -> NaN Invalid_operation
|
|---|
| 117 | -- test LSD
|
|---|
| 118 | invx280 invert 000000002 -> NaN Invalid_operation
|
|---|
| 119 | invx281 invert 000000003 -> NaN Invalid_operation
|
|---|
| 120 | invx282 invert 000000004 -> NaN Invalid_operation
|
|---|
| 121 | invx283 invert 000000005 -> NaN Invalid_operation
|
|---|
| 122 | invx284 invert 101000006 -> NaN Invalid_operation
|
|---|
| 123 | invx285 invert 100100007 -> NaN Invalid_operation
|
|---|
| 124 | invx286 invert 100010008 -> NaN Invalid_operation
|
|---|
| 125 | invx287 invert 100001009 -> NaN Invalid_operation
|
|---|
| 126 | -- test Middie
|
|---|
| 127 | invx288 invert 000020000 -> NaN Invalid_operation
|
|---|
| 128 | invx289 invert 000030001 -> NaN Invalid_operation
|
|---|
| 129 | invx290 invert 000040000 -> NaN Invalid_operation
|
|---|
| 130 | invx291 invert 000050000 -> NaN Invalid_operation
|
|---|
| 131 | invx292 invert 101060000 -> NaN Invalid_operation
|
|---|
| 132 | invx293 invert 100170010 -> NaN Invalid_operation
|
|---|
| 133 | invx294 invert 100080100 -> NaN Invalid_operation
|
|---|
| 134 | invx295 invert 100091000 -> NaN Invalid_operation
|
|---|
| 135 | -- signs
|
|---|
| 136 | invx296 invert -100001000 -> NaN Invalid_operation
|
|---|
| 137 | invx299 invert 100001000 -> 11110111
|
|---|
| 138 |
|
|---|
| 139 | -- Nmax, Nmin, Ntiny
|
|---|
| 140 | invx341 invert 9.99999999E+999 -> NaN Invalid_operation
|
|---|
| 141 | invx342 invert 1E-999 -> NaN Invalid_operation
|
|---|
| 142 | invx343 invert 1.00000000E-999 -> NaN Invalid_operation
|
|---|
| 143 | invx344 invert 1E-1007 -> NaN Invalid_operation
|
|---|
| 144 | invx345 invert -1E-1007 -> NaN Invalid_operation
|
|---|
| 145 | invx346 invert -1.00000000E-999 -> NaN Invalid_operation
|
|---|
| 146 | invx347 invert -1E-999 -> NaN Invalid_operation
|
|---|
| 147 | invx348 invert -9.99999999E+999 -> NaN Invalid_operation
|
|---|
| 148 |
|
|---|
| 149 | -- A few other non-integers
|
|---|
| 150 | invx361 invert 1.0 -> NaN Invalid_operation
|
|---|
| 151 | invx362 invert 1E+1 -> NaN Invalid_operation
|
|---|
| 152 | invx363 invert 0.0 -> NaN Invalid_operation
|
|---|
| 153 | invx364 invert 0E+1 -> NaN Invalid_operation
|
|---|
| 154 | invx365 invert 9.9 -> NaN Invalid_operation
|
|---|
| 155 | invx366 invert 9E+1 -> NaN Invalid_operation
|
|---|
| 156 |
|
|---|
| 157 | -- All Specials are in error
|
|---|
| 158 | invx788 invert -Inf -> NaN Invalid_operation
|
|---|
| 159 | invx794 invert Inf -> NaN Invalid_operation
|
|---|
| 160 | invx821 invert NaN -> NaN Invalid_operation
|
|---|
| 161 | invx841 invert sNaN -> NaN Invalid_operation
|
|---|
| 162 | -- propagating NaNs
|
|---|
| 163 | invx861 invert NaN1 -> NaN Invalid_operation
|
|---|
| 164 | invx862 invert +NaN2 -> NaN Invalid_operation
|
|---|
| 165 | invx863 invert NaN3 -> NaN Invalid_operation
|
|---|
| 166 | invx864 invert NaN4 -> NaN Invalid_operation
|
|---|
| 167 | invx865 invert NaN5 -> NaN Invalid_operation
|
|---|
| 168 | invx871 invert sNaN11 -> NaN Invalid_operation
|
|---|
| 169 | invx872 invert sNaN12 -> NaN Invalid_operation
|
|---|
| 170 | invx873 invert sNaN13 -> NaN Invalid_operation
|
|---|
| 171 | invx874 invert sNaN14 -> NaN Invalid_operation
|
|---|
| 172 | invx875 invert sNaN15 -> NaN Invalid_operation
|
|---|
| 173 | invx876 invert NaN16 -> NaN Invalid_operation
|
|---|
| 174 | invx881 invert +NaN25 -> NaN Invalid_operation
|
|---|
| 175 | invx882 invert -NaN26 -> NaN Invalid_operation
|
|---|
| 176 | invx883 invert -sNaN27 -> NaN Invalid_operation
|
|---|
