316 lines
9.4 KiB
XML
316 lines
9.4 KiB
XML
<?xml version="1.0"?>
|
|
<!--
|
|
Copyright (C) 2014-2023 Ryan Specialty, LLC.
|
|
|
|
This file is part of tame-core.
|
|
|
|
tame-core is free software: you can redistribute it and/or modify it
|
|
under the terms of the GNU General Public License as
|
|
published by the Free Software Foundation, either version 3 of the
|
|
License, or (at your option) any later version.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
GNU General Public License for more details.
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
along with this program. If not, see <http://www.gnu.org/licenses/>.
|
|
-->
|
|
<package xmlns="http://www.lovullo.com/rater"
|
|
xmlns:c="http://www.lovullo.com/calc"
|
|
xmlns:t="http://www.lovullo.com/rater/apply-template"
|
|
desc="Test numeric computations dealing with rounding">
|
|
|
|
|
|
<import package="../../../test/spec" />
|
|
|
|
<import package="../../../base" />
|
|
<import package="../../../numeric/round" />
|
|
|
|
|
|
<const name="VALUE_LOW" sym="\check{v}"
|
|
value="5.1" type="float"
|
|
desc="Low-decimal value" />
|
|
<const name="VALUE_MID" sym="\bar{v}"
|
|
value="5.5" type="float"
|
|
desc="High-decimal value" />
|
|
<const name="VALUE_HIGH" sym="\hat{v}"
|
|
value="5.7" type="float"
|
|
desc="High-decimal value" />
|
|
|
|
<const name="VALUE_FLOOR" sym="\lfloor v\rfloor"
|
|
value="5" type="float"
|
|
desc="Floor of decimal value" />
|
|
<const name="VALUE_CEIL" sym="\lceil v\rceil"
|
|
value="6" type="float"
|
|
desc="Ceiling of decimal value" />
|
|
|
|
<!-- used to test @index; same constant value as above -->
|
|
<const name="VALUE_VEC" sym="V"
|
|
type="float"
|
|
desc="Vector of values">
|
|
<item value="0" desc="Unused (see VALUE_VEC_INDEX)" />
|
|
<item value="5.5" desc="Same as VALUE_MID" />
|
|
</const>
|
|
<const name="VALUE_VEC_INDEX" sym="\nu"
|
|
value="1" type="integer"
|
|
desc="Index of test value within vector" />
|
|
|
|
<const name="VALUE_LARGE" sym="\Omega"
|
|
value="1234.56" type="float"
|
|
desc="Value to test rounding offsets" />
|
|
|
|
<const name="VALUE_STEP" sym="s"
|
|
value="43.46" type="integer"
|
|
desc="Test arbitrary step" />
|
|
|
|
|
|
<!--
|
|
Eliminate let-round repetition for initial expectations
|
|
-->
|
|
<template name="_expect-let-round_"
|
|
desc="Short-hand rounding expectation">
|
|
<param name="@name@" desc="Value to round" />
|
|
|
|
<!-- choose *one* -->
|
|
<param name="@high@" desc="Round high" />
|
|
<param name="@low@" desc="Round high" />
|
|
<param name="@nearest@" desc="Round near" />
|
|
|
|
<!-- take whatever we're given and use that as the expected value -->
|
|
<param name="@__expect@" desc="Expected value">
|
|
<param-value name="@high@" />
|
|
<param-value name="@low@" />
|
|
<param-value name="@nearest@" />
|
|
</param>
|
|
|
|
|
|
<!-- round based on the provided template param -->
|
|
<t:given>
|
|
<if name="@high@">
|
|
<t:let-round name="@name@" high="rounded_high">
|
|
<c:value-of name="rounded_high" />
|
|
</t:let-round>
|
|
</if>
|
|
|
|
<if name="@low@">
|
|
<t:let-round name="@name@" low="rounded_low">
|
|
<c:value-of name="rounded_low" />
|
|
</t:let-round>
|
|
</if>
|
|
|
|
<if name="@nearest@">
|
|
<t:let-round name="@name@" nearest="rounded_nearest">
|
|
<c:value-of name="rounded_nearest" />
|
|
</t:let-round>
|
|
</if>
|
|
</t:given>
|
|
|
|
<t:expect>
|
|
<t:match-result>
|
|
<c:eq>
|
|
<c:value-of name="@__expect@" />
|
|
</c:eq>
|
|
</t:match-result>
|
|
</t:expect>
|
|
</template>
|
|
|
|
|
|
|
|
<t:describe name="_let-round_">
|
|
<t:describe name="high">
|
|
<t:it desc="rounds up low decimals">
|
|
<t:expect-let-round name="VALUE_LOW"
|
|
high="VALUE_CEIL" />
|
|
</t:it>
|
|
<t:it desc="rounds up high decimals">
|
|
<t:expect-let-round name="VALUE_HIGH"
|
|
high="VALUE_CEIL" />
|
|
</t:it>
|
|
<t:it desc="rounds up halves">
|
|
<t:expect-let-round name="VALUE_MID"
|
|
high="VALUE_CEIL" />
|
|
</t:it>
|
|
<t:it desc="leaves integers unchanged">
|
|
<t:expect-let-round name="VALUE_FLOOR"
|
|
high="VALUE_FLOOR" />
|
|
<t:expect-let-round name="VALUE_CEIL"
|
|
high="VALUE_CEIL" />
|
|
</t:it>
|
|
</t:describe>
|
|
|
|
|
|
<t:describe name="low">
|
|
<t:it desc="rounds down low decimals">
|
|
<t:expect-let-round name="VALUE_LOW"
|
|
low="VALUE_FLOOR" />
|
|
</t:it>
|
|
<t:it desc="rounds down high decimals">
|
|
<t:expect-let-round name="VALUE_HIGH"
|
|
low="VALUE_FLOOR" />
|
|
</t:it>
|
|
<t:it desc="rounds down halves">
|
|
<t:expect-let-round name="VALUE_MID"
|
|
low="VALUE_FLOOR" />
|
|
</t:it>
|
|
<t:it desc="leaves integers unchanged">
|
|
<t:expect-let-round name="VALUE_FLOOR"
|
|
low="VALUE_FLOOR" />
|
|
<t:expect-let-round name="VALUE_CEIL"
|
|
low="VALUE_CEIL" />
|
|
</t:it>
|
|
</t:describe>
|
|
|
|
|
|
<t:describe name="nearest">
|
|
<t:it desc="rounds down low decimals">
|
|
<t:expect-let-round name="VALUE_LOW"
|
|
nearest="VALUE_FLOOR" />
|
|
</t:it>
|
|
<t:it desc="rounds up high decimals">
|
|
<t:expect-let-round name="VALUE_HIGH"
|
|
nearest="VALUE_CEIL" />
|
|
</t:it>
|
|
<t:it desc="rounds up halves">
|
|
<t:expect-let-round name="VALUE_MID"
|
|
nearest="VALUE_CEIL" />
|
|
</t:it>
|
|
<t:it desc="leaves integers unchanged">
|
|
<t:expect-let-round name="VALUE_FLOOR"
|
|
nearest="VALUE_FLOOR" />
|
|
<t:expect-let-round name="VALUE_CEIL"
|
|
nearest="VALUE_CEIL" />
|
|
</t:it>
|
|
</t:describe>
|
|
|
|
|
|
<t:describe name="with multiple names">
|
|
<t:it desc="produces each value">
|
|
<t:given>
|
|
<t:let-round name="VALUE_MID"
|
|
low="round_low"
|
|
high="round_high"
|
|
nearest="round_near">
|
|
<c:sum>
|
|
<c:value-of name="round_low" />
|
|
<c:value-of name="round_high" />
|
|
<c:value-of name="round_near" />
|
|
</c:sum>
|
|
</t:let-round>
|
|
</t:given>
|
|
|
|
<t:expect>
|
|
<!-- VALUE_FLOOR + VALUE_CEIL + VALUE_CEIL -->
|
|
<t:match-result eq="17" />
|
|
</t:expect>
|
|
</t:it>
|
|
</t:describe>
|
|
|
|
|
|
<t:describe name="with name index">
|
|
<t:it desc="produces respective rounded value">
|
|
<t:given>
|
|
<t:let-round name="VALUE_VEC"
|
|
index="VALUE_VEC_INDEX"
|
|
low="round_low"
|
|
high="round_high"
|
|
nearest="round_near">
|
|
<c:sum>
|
|
<c:value-of name="round_low" />
|
|
<c:value-of name="round_high" />
|
|
<c:value-of name="round_near" />
|
|
</c:sum>
|
|
</t:let-round>
|
|
</t:given>
|
|
|
|
<t:expect>
|
|
<!-- VALUE_FLOOR + VALUE_CEIL + VALUE_CEIL -->
|
|
<t:match-result eq="17" />
|
|
</t:expect>
|
|
</t:it>
|
|
</t:describe>
|
|
</t:describe>
|
|
|
|
|
|
<t:describe name="with a non-zero exp N">
|
|
<t:it desc="rounds before decimal point with positive exp">
|
|
<t:given>
|
|
<t:let-round name="VALUE_LARGE"
|
|
exp="#2"
|
|
low="round_low">
|
|
<c:value-of name="round_low" />
|
|
</t:let-round>
|
|
</t:given>
|
|
|
|
<!-- 1234.56 moved over two dec places = 12.3456; round that -->
|
|
<t:expect>
|
|
<t:match-result eq="1200" />
|
|
</t:expect>
|
|
</t:it>
|
|
|
|
|
|
<t:it desc="rounds after decimal point with negative exp">
|
|
<t:given>
|
|
<t:let-round name="VALUE_LARGE"
|
|
exp="#-1"
|
|
low="round_low">
|
|
<c:value-of name="round_low" />
|
|
</t:let-round>
|
|
</t:given>
|
|
|
|
<!-- 1234.56 moved over one dec place = 12345.6; round that -->
|
|
<t:expect>
|
|
<t:match-result eq="1234.50" />
|
|
</t:expect>
|
|
</t:it>
|
|
</t:describe>
|
|
|
|
|
|
<t:describe name="with a non-zero step N">
|
|
<t:it desc="rounds to the nearest arbitrary step">
|
|
<t:given>
|
|
<t:let-round name="VALUE_STEP"
|
|
step="#15"
|
|
low="round_low"
|
|
high="round_high">
|
|
<c:sum>
|
|
<c:value-of name="round_low" />
|
|
<c:value-of name="round_high" />
|
|
</c:sum>
|
|
</t:let-round>
|
|
</t:given>
|
|
|
|
<t:expect>
|
|
<!-- 30 + 45 -->
|
|
<t:match-result eq="75" />
|
|
</t:expect>
|
|
</t:it>
|
|
</t:describe>
|
|
|
|
|
|
<t:describe name="with both step and exp">
|
|
<t:it desc="steps after exponentiation">
|
|
<t:given>
|
|
<t:let-round name="VALUE_STEP"
|
|
step="#15"
|
|
exp="#-1"
|
|
low="round_low"
|
|
high="round_high">
|
|
<c:sum>
|
|
<c:value-of name="round_low" />
|
|
<c:value-of name="round_high" />
|
|
</c:sum>
|
|
</t:let-round>
|
|
</t:given>
|
|
|
|
<!-- 43.46 * 10^-1 = 434.6 / 15 = 28.973; ceil/floor that, then undo
|
|
step/exp to yield final result -->
|
|
<t:expect>
|
|
<!-- 42 + 43.5 -->
|
|
<t:match-result eq="85.5" />
|
|
</t:expect>
|
|
</t:it>
|
|
</t:describe>
|
|
</package>
|