------------------------------------------------------------------------
-- abs0.decTest -- decimal absolute value (simplified)                --
-- Copyright (c) IBM Corporation, 1981, 2008.  All rights reserved.   --
------------------------------------------------------------------------
-- Please see the document "General Decimal Arithmetic Testcases"     --
-- at http://www2.hursley.ibm.com/decimal for the description of      --
-- these testcases.                                                   --
--                                                                    --
-- These testcases are experimental ('beta' versions), and they       --
-- may contain errors.  They are offered on an as-is basis.  In       --
-- particular, achieving the same results as the tests here is not    --
-- a guarantee that an implementation complies with any Standard      --
-- or specification.  The tests are not exhaustive.                   --
--                                                                    --
-- Please send comments, suggestions, and corrections to the author:  --
--   Mike Cowlishaw, IBM Fellow                                       --
--   IBM UK, PO Box 31, Birmingham Road, Warwick CV34 5JL, UK         --
--   mfc@uk.ibm.com                                                   --
------------------------------------------------------------------------
version: 2.58

-- This set of tests primarily tests the existence of the operator.
-- Additon, subtraction, rounding, and more overflows are tested
-- elsewhere.

extended:    0
precision:   9
rounding:    half_up
maxExponent: 999
minexponent: -999

abs001 abs '1'      -> '1'
abs002 abs '-1'     -> '1'
abs003 abs '1.00'   -> '1.00'
abs004 abs '-1.00'  -> '1.00'
abs005 abs '0'      -> '0'
abs006 abs '0.00'   -> '0'
abs007 abs '00.0'   -> '0'
abs008 abs '00.00'  -> '0'
abs009 abs '00'     -> '0'

abs010 abs '-2'     -> '2'
abs011 abs '2'      -> '2'
abs012 abs '-2.00'  -> '2.00'
abs013 abs '2.00'   -> '2.00'
abs014 abs '-0'     -> '0'
abs015 abs '-0.00'  -> '0'
abs016 abs '-00.0'  -> '0'
abs017 abs '-00.00' -> '0'
abs018 abs '-00'    -> '0'

abs020 abs '-2000000' -> '2000000'
abs021 abs '2000000'  -> '2000000'
precision: 7
abs022 abs '-2000000' -> '2000000'
abs023 abs '2000000'  -> '2000000'
precision: 6
abs024 abs '-2000000' -> '2.00000E+6' Rounded
abs025 abs '2000000'  -> '2.00000E+6' Rounded
precision: 3
abs026 abs '-2000000' -> '2.00E+6' Rounded
abs027 abs '2000000'  -> '2.00E+6' Rounded

abs030 abs '+0.1'            -> '0.1'
abs031 abs '-0.1'            -> '0.1'
abs032 abs '+0.01'           -> '0.01'
abs033 abs '-0.01'           -> '0.01'
abs034 abs '+0.001'          -> '0.001'
abs035 abs '-0.001'          -> '0.001'
abs036 abs '+0.000001'       -> '0.000001'
abs037 abs '-0.000001'       -> '0.000001'
abs038 abs '+0.000000000001' -> '1E-12'
abs039 abs '-0.000000000001' -> '1E-12'

-- examples from decArith
precision: 9
abs040 abs '2.1'     ->  '2.1'
abs041 abs '-100'    ->  '100'
abs042 abs '101.5'   ->  '101.5'
abs043 abs '-101.5'  ->  '101.5'

-- more fixed, potential LHS swaps/overlays if done by subtract 0
precision: 9
abs060 abs '-56267E-10'  -> '0.0000056267'
abs061 abs '-56267E-5'   -> '0.56267'
abs062 abs '-56267E-2'   -> '562.67'
abs063 abs '-56267E-1'   -> '5626.7'
abs065 abs '-56267E-0'   -> '56267'

-- overflow tests [underflow not possible]
maxexponent: 999999999
minexponent: -999999999
precision: 3
abs120 abs 9.999E+999999999 -> ? Inexact Lost_digits Overflow Rounded

-- lostDigits checks
maxexponent: 999
minexponent: -999
precision: 9
abs301 abs 12345678000  -> 1.23456780E+10 Rounded
abs302 abs 1234567800   -> 1.23456780E+9 Rounded
abs303 abs 1234567890   -> 1.23456789E+9 Rounded
abs304 abs 1234567891   -> 1.23456789E+9 Inexact Lost_digits Rounded
abs305 abs 12345678901  -> 1.23456789E+10 Inexact Lost_digits Rounded
abs306 abs 1234567896   -> 1.23456790E+9 Inexact Lost_digits Rounded

precision: 15
-- still checking for [no] lostDigits
abs321 abs 12345678000  -> 12345678000
abs322 abs 1234567800   -> 1234567800
abs323 abs 1234567890   -> 1234567890
abs324 abs 1234567891   -> 1234567891
abs325 abs 12345678901  -> 12345678901
abs326 abs 1234567896   -> 1234567896

-- Null tests
abs400 abs  # -> ? Invalid_operation