+++ /dev/null
-------------------------------------------------------------------------\r
--- dqToIntegral.decTest -- round Quad to integral value --\r
--- Copyright (c) IBM Corporation, 2001, 2008. All rights reserved. --\r
-------------------------------------------------------------------------\r
--- Please see the document "General Decimal Arithmetic Testcases" --\r
--- at http://www2.hursley.ibm.com/decimal for the description of --\r
--- these testcases. --\r
--- --\r
--- These testcases are experimental ('beta' versions), and they --\r
--- may contain errors. They are offered on an as-is basis. In --\r
--- particular, achieving the same results as the tests here is not --\r
--- a guarantee that an implementation complies with any Standard --\r
--- or specification. The tests are not exhaustive. --\r
--- --\r
--- Please send comments, suggestions, and corrections to the author: --\r
--- Mike Cowlishaw, IBM Fellow --\r
--- IBM UK, PO Box 31, Birmingham Road, Warwick CV34 5JL, UK --\r
--- mfc@uk.ibm.com --\r
-------------------------------------------------------------------------\r
-version: 2.59\r
-\r
--- This set of tests tests the extended specification 'round-to-integral\r
--- value-exact' operations (from IEEE 854, later modified in 754r).\r
--- All non-zero results are defined as being those from either copy or\r
--- quantize, so those are assumed to have been tested extensively\r
--- elsewhere; the tests here are for integrity, rounding mode, etc.\r
--- Also, it is assumed the test harness will use these tests for both\r
--- ToIntegralExact (which does set Inexact) and the fixed-name\r
--- functions (which do not set Inexact).\r
-\r
--- Note that decNumber implements an earlier definition of toIntegral\r
--- which never sets Inexact; the decTest operator for that is called\r
--- 'tointegral' instead of 'tointegralx'.\r
-\r
-extended: 1\r
-clamp: 1\r
-precision: 34\r
-maxExponent: 6144\r
-minExponent: -6143\r
-rounding: half_even\r
-\r
-dqintx001 tointegralx 0 -> 0\r
-dqintx002 tointegralx 0.0 -> 0\r
-dqintx003 tointegralx 0.1 -> 0 Inexact Rounded\r
-dqintx004 tointegralx 0.2 -> 0 Inexact Rounded\r
-dqintx005 tointegralx 0.3 -> 0 Inexact Rounded\r
-dqintx006 tointegralx 0.4 -> 0 Inexact Rounded\r
-dqintx007 tointegralx 0.5 -> 0 Inexact Rounded\r
-dqintx008 tointegralx 0.6 -> 1 Inexact Rounded\r
-dqintx009 tointegralx 0.7 -> 1 Inexact Rounded\r
-dqintx010 tointegralx 0.8 -> 1 Inexact Rounded\r
-dqintx011 tointegralx 0.9 -> 1 Inexact Rounded\r
-dqintx012 tointegralx 1 -> 1\r
-dqintx013 tointegralx 1.0 -> 1 Rounded\r
-dqintx014 tointegralx 1.1 -> 1 Inexact Rounded\r
-dqintx015 tointegralx 1.2 -> 1 Inexact Rounded\r
-dqintx016 tointegralx 1.3 -> 1 Inexact Rounded\r
-dqintx017 tointegralx 1.4 -> 1 Inexact Rounded\r
-dqintx018 tointegralx 1.5 -> 2 Inexact Rounded\r
-dqintx019 tointegralx 1.6 -> 2 Inexact Rounded\r
-dqintx020 tointegralx 1.7 -> 2 Inexact Rounded\r
-dqintx021 tointegralx 1.8 -> 2 Inexact Rounded\r
-dqintx022 tointegralx 1.9 -> 2 Inexact Rounded\r
--- negatives\r
-dqintx031 tointegralx -0 -> -0\r
-dqintx032 tointegralx -0.0 -> -0\r
-dqintx033 tointegralx -0.1 -> -0 Inexact Rounded\r
-dqintx034 tointegralx -0.2 -> -0 Inexact Rounded\r
-dqintx035 tointegralx -0.3 -> -0 Inexact Rounded\r
-dqintx036 tointegralx -0.4 -> -0 Inexact Rounded\r
-dqintx037 tointegralx -0.5 -> -0 Inexact Rounded\r
-dqintx038 tointegralx -0.6 -> -1 Inexact Rounded\r
-dqintx039 tointegralx -0.7 -> -1 Inexact Rounded\r
-dqintx040 tointegralx -0.8 -> -1 Inexact Rounded\r
-dqintx041 tointegralx -0.9 -> -1 Inexact Rounded\r
-dqintx042 tointegralx -1 -> -1\r
-dqintx043 tointegralx -1.0 -> -1 Rounded\r
-dqintx044 tointegralx -1.1 -> -1 Inexact Rounded\r
-dqintx045 tointegralx -1.2 -> -1 Inexact Rounded\r
-dqintx046 tointegralx -1.3 -> -1 Inexact Rounded\r
-dqintx047 tointegralx -1.4 -> -1 Inexact Rounded\r
-dqintx048 tointegralx -1.5 -> -2 Inexact Rounded\r
-dqintx049 tointegralx -1.6 -> -2 Inexact Rounded\r
-dqintx050 tointegralx -1.7 -> -2 Inexact Rounded\r
-dqintx051 tointegralx -1.8 -> -2 Inexact Rounded\r
-dqintx052 tointegralx -1.9 -> -2 Inexact Rounded\r
--- next two would be NaN using quantize(x, 0)\r
-dqintx053 tointegralx 10E+60 -> 1.0E+61\r
-dqintx054 tointegralx -10E+60 -> -1.0E+61\r
-\r
--- numbers around precision\r
-dqintx060 tointegralx '56267E-17' -> '0' Inexact Rounded\r
-dqintx061 tointegralx '56267E-5' -> '1' Inexact Rounded\r
-dqintx062 tointegralx '56267E-2' -> '563' Inexact Rounded\r
-dqintx063 tointegralx '56267E-1' -> '5627' Inexact Rounded\r
-dqintx065 tointegralx '56267E-0' -> '56267'\r
-dqintx066 tointegralx '56267E+0' -> '56267'\r
-dqintx067 tointegralx '56267E+1' -> '5.6267E+5'\r
-dqintx068 tointegralx '56267E+9' -> '5.6267E+13'\r
-dqintx069 tointegralx '56267E+10' -> '5.6267E+14'\r
-dqintx070 tointegralx '56267E+11' -> '5.6267E+15'\r
-dqintx071 tointegralx '56267E+12' -> '5.6267E+16'\r
-dqintx072 tointegralx '56267E+13' -> '5.6267E+17'\r
-dqintx073 tointegralx '1.23E+96' -> '1.23E+96'\r
-dqintx074 tointegralx '1.23E+6144' -> #47ffd300000000000000000000000000 Clamped\r
-\r
-dqintx080 tointegralx '-56267E-10' -> '-0' Inexact Rounded\r
-dqintx081 tointegralx '-56267E-5' -> '-1' Inexact Rounded\r
-dqintx082 tointegralx '-56267E-2' -> '-563' Inexact Rounded\r
-dqintx083 tointegralx '-56267E-1' -> '-5627' Inexact Rounded\r
-dqintx085 tointegralx '-56267E-0' -> '-56267'\r
-dqintx086 tointegralx '-56267E+0' -> '-56267'\r
-dqintx087 tointegralx '-56267E+1' -> '-5.6267E+5'\r
-dqintx088 tointegralx '-56267E+9' -> '-5.6267E+13'\r
-dqintx089 tointegralx '-56267E+10' -> '-5.6267E+14'\r
-dqintx090 tointegralx '-56267E+11' -> '-5.6267E+15'\r
-dqintx091 tointegralx '-56267E+12' -> '-5.6267E+16'\r
-dqintx092 tointegralx '-56267E+13' -> '-5.6267E+17'\r
-dqintx093 tointegralx '-1.23E+96' -> '-1.23E+96'\r
-dqintx094 tointegralx '-1.23E+6144' -> #c7ffd300000000000000000000000000 Clamped\r
-\r
--- subnormal inputs\r
-dqintx100 tointegralx 1E-299 -> 0 Inexact Rounded\r
-dqintx101 tointegralx 0.1E-299 -> 0 Inexact Rounded\r
-dqintx102 tointegralx 0.01E-299 -> 0 Inexact Rounded\r
-dqintx103 tointegralx 0E-299 -> 0\r
-\r
--- specials and zeros\r
-dqintx120 tointegralx 'Inf' -> Infinity\r
-dqintx121 tointegralx '-Inf' -> -Infinity\r
-dqintx122 tointegralx NaN -> NaN\r
-dqintx123 tointegralx sNaN -> NaN Invalid_operation\r
-dqintx124 tointegralx 0 -> 0\r
-dqintx125 tointegralx -0 -> -0\r
-dqintx126 tointegralx 0.000 -> 0\r
-dqintx127 tointegralx 0.00 -> 0\r
-dqintx128 tointegralx 0.0 -> 0\r
-dqintx129 tointegralx 0 -> 0\r
-dqintx130 tointegralx 0E-3 -> 0\r
-dqintx131 tointegralx 0E-2 -> 0\r
-dqintx132 tointegralx 0E-1 -> 0\r
-dqintx133 tointegralx 0E-0 -> 0\r
-dqintx134 tointegralx 0E+1 -> 0E+1\r
-dqintx135 tointegralx 0E+2 -> 0E+2\r
-dqintx136 tointegralx 0E+3 -> 0E+3\r
-dqintx137 tointegralx 0E+4 -> 0E+4\r
-dqintx138 tointegralx 0E+5 -> 0E+5\r
-dqintx139 tointegralx -0.000 -> -0\r
-dqintx140 tointegralx -0.00 -> -0\r
-dqintx141 tointegralx -0.0 -> -0\r
-dqintx142 tointegralx -0 -> -0\r
-dqintx143 tointegralx -0E-3 -> -0\r
-dqintx144 tointegralx -0E-2 -> -0\r
-dqintx145 tointegralx -0E-1 -> -0\r
-dqintx146 tointegralx -0E-0 -> -0\r
-dqintx147 tointegralx -0E+1 -> -0E+1\r
-dqintx148 tointegralx -0E+2 -> -0E+2\r
-dqintx149 tointegralx -0E+3 -> -0E+3\r
-dqintx150 tointegralx -0E+4 -> -0E+4\r
-dqintx151 tointegralx -0E+5 -> -0E+5\r
--- propagating NaNs\r
-dqintx152 tointegralx NaN808 -> NaN808\r
-dqintx153 tointegralx sNaN080 -> NaN80 Invalid_operation\r
-dqintx154 tointegralx -NaN808 -> -NaN808\r
-dqintx155 tointegralx -sNaN080 -> -NaN80 Invalid_operation\r
-dqintx156 tointegralx -NaN -> -NaN\r
-dqintx157 tointegralx -sNaN -> -NaN Invalid_operation\r
-\r
--- examples\r
-rounding: half_up\r
-dqintx200 tointegralx 2.1 -> 2 Inexact Rounded\r
-dqintx201 tointegralx 100 -> 100\r
-dqintx202 tointegralx 100.0 -> 100 Rounded\r
-dqintx203 tointegralx 101.5 -> 102 Inexact Rounded\r
-dqintx204 tointegralx -101.5 -> -102 Inexact Rounded\r
-dqintx205 tointegralx 10E+5 -> 1.0E+6\r
-dqintx206 tointegralx 7.89E+77 -> 7.89E+77\r
-dqintx207 tointegralx -Inf -> -Infinity\r
-\r
-\r
--- all rounding modes\r
-rounding: half_even\r
-dqintx210 tointegralx 55.5 -> 56 Inexact Rounded\r
-dqintx211 tointegralx 56.5 -> 56 Inexact Rounded\r
-dqintx212 tointegralx 57.5 -> 58 Inexact Rounded\r
-dqintx213 tointegralx -55.5 -> -56 Inexact Rounded\r
-dqintx214 tointegralx -56.5 -> -56 Inexact Rounded\r
-dqintx215 tointegralx -57.5 -> -58 Inexact Rounded\r
-\r
-rounding: half_up\r
-\r
-dqintx220 tointegralx 55.5 -> 56 Inexact Rounded\r
-dqintx221 tointegralx 56.5 -> 57 Inexact Rounded\r
-dqintx222 tointegralx 57.5 -> 58 Inexact Rounded\r
-dqintx223 tointegralx -55.5 -> -56 Inexact Rounded\r
-dqintx224 tointegralx -56.5 -> -57 Inexact Rounded\r
-dqintx225 tointegralx -57.5 -> -58 Inexact Rounded\r
-\r
-rounding: half_down\r
-\r
-dqintx230 tointegralx 55.5 -> 55 Inexact Rounded\r
-dqintx231 tointegralx 56.5 -> 56 Inexact Rounded\r
-dqintx232 tointegralx 57.5 -> 57 Inexact Rounded\r
-dqintx233 tointegralx -55.5 -> -55 Inexact Rounded\r
-dqintx234 tointegralx -56.5 -> -56 Inexact Rounded\r
-dqintx235 tointegralx -57.5 -> -57 Inexact Rounded\r
-\r
-rounding: up\r
-\r
-dqintx240 tointegralx 55.3 -> 56 Inexact Rounded\r
-dqintx241 tointegralx 56.3 -> 57 Inexact Rounded\r
-dqintx242 tointegralx 57.3 -> 58 Inexact Rounded\r
-dqintx243 tointegralx -55.3 -> -56 Inexact Rounded\r
-dqintx244 tointegralx -56.3 -> -57 Inexact Rounded\r
-dqintx245 tointegralx -57.3 -> -58 Inexact Rounded\r
-\r
-rounding: down\r
-\r
-dqintx250 tointegralx 55.7 -> 55 Inexact Rounded\r
-dqintx251 tointegralx 56.7 -> 56 Inexact Rounded\r
-dqintx252 tointegralx 57.7 -> 57 Inexact Rounded\r
-dqintx253 tointegralx -55.7 -> -55 Inexact Rounded\r
-dqintx254 tointegralx -56.7 -> -56 Inexact Rounded\r
-dqintx255 tointegralx -57.7 -> -57 Inexact Rounded\r
-\r
-rounding: ceiling\r
-\r
-dqintx260 tointegralx 55.3 -> 56 Inexact Rounded\r
-dqintx261 tointegralx 56.3 -> 57 Inexact Rounded\r
-dqintx262 tointegralx 57.3 -> 58 Inexact Rounded\r
-dqintx263 tointegralx -55.3 -> -55 Inexact Rounded\r
-dqintx264 tointegralx -56.3 -> -56 Inexact Rounded\r
-dqintx265 tointegralx -57.3 -> -57 Inexact Rounded\r
-\r
-rounding: floor\r
-\r
-dqintx270 tointegralx 55.7 -> 55 Inexact Rounded\r
-dqintx271 tointegralx 56.7 -> 56 Inexact Rounded\r
-dqintx272 tointegralx 57.7 -> 57 Inexact Rounded\r
-dqintx273 tointegralx -55.7 -> -56 Inexact Rounded\r
-dqintx274 tointegralx -56.7 -> -57 Inexact Rounded\r
-dqintx275 tointegralx -57.7 -> -58 Inexact Rounded\r
-\r
--- Int and uInt32 edge values for testing conversions\r
-dqintx300 tointegralx -2147483646 -> -2147483646\r
-dqintx301 tointegralx -2147483647 -> -2147483647\r
-dqintx302 tointegralx -2147483648 -> -2147483648\r
-dqintx303 tointegralx -2147483649 -> -2147483649\r
-dqintx304 tointegralx 2147483646 -> 2147483646\r
-dqintx305 tointegralx 2147483647 -> 2147483647\r
-dqintx306 tointegralx 2147483648 -> 2147483648\r
-dqintx307 tointegralx 2147483649 -> 2147483649\r
-dqintx308 tointegralx 4294967294 -> 4294967294\r
-dqintx309 tointegralx 4294967295 -> 4294967295\r
-dqintx310 tointegralx 4294967296 -> 4294967296\r
-dqintx311 tointegralx 4294967297 -> 4294967297\r
-\r