From 18fe43b38ffc8d9e87f6e3c4e8f0ca7d476c148d Mon Sep 17 00:00:00 2001
From: Mike Gerwitz <gerwitm@lovullo.com>
Date: Tue, 2 Aug 2016 10:07:45 -0400
Subject: [PATCH] Add up/down _premium_/@round@ support

* insurance.xml (_premium_): Added up/down support for @round@
* test/core/insurance.xml: Associated test cases
---
 core/insurance.xml           | 19 ++++++++-
 core/test/core/insurance.xml | 76 ++++++++++++++++++++++++++++++++++++
 2 files changed, 94 insertions(+), 1 deletion(-)

diff --git a/core/insurance.xml b/core/insurance.xml
index 83a5da05..ac753772 100644
--- a/core/insurance.xml
+++ b/core/insurance.xml
@@ -93,7 +93,24 @@
         </if>
 
         <unless name="@round@" eq="cent">
-          <param-copy name="@values@" />
+          <if name="@round@" eq="up">
+            <c:ceil>
+              <param-copy name="@values@" />
+            </c:ceil>
+          </if>
+
+          <unless name="@round@" eq="up">
+            <if name="@round@" eq="down">
+              <c:floor>
+                <param-copy name="@values@" />
+              </c:floor>
+            </if>
+
+            <unless name="@round@" eq="down">
+              <!-- no rounding -->
+              <param-copy name="@values@" />
+            </unless>
+          </unless>
         </unless>
       </unless>
     </rate-each>
diff --git a/core/test/core/insurance.xml b/core/test/core/insurance.xml
index 386a6aba..7d0a967f 100644
--- a/core/test/core/insurance.xml
+++ b/core/test/core/insurance.xml
@@ -127,6 +127,82 @@
           </t:match-result>
         </t:expect>
       </t:it>
+
+
+      <t:it desc="Performs ceiling when 'up' (low)">
+        <t:premium class="length1"
+                   generates="premRoundCeilLow" index="k"
+                   round="up">
+          <c:value-of name="#1.1" />
+        </t:premium>
+
+        <t:given name="premRoundCeilLow" />
+
+        <t:expect>
+          <t:match-result>
+            <c:eq>
+               <c:value-of name="#2" />
+            </c:eq>
+          </t:match-result>
+        </t:expect>
+      </t:it>
+
+
+      <t:it desc="Performs ceiling when 'up' (high)">
+        <t:premium class="length1"
+                   generates="premRoundCeilHigh" index="k"
+                   round="up">
+          <c:value-of name="#1.7" />
+        </t:premium>
+
+        <t:given name="premRoundCeilHigh" />
+
+        <t:expect>
+          <t:match-result>
+            <c:eq>
+               <c:value-of name="#2" />
+            </c:eq>
+          </t:match-result>
+        </t:expect>
+      </t:it>
+
+
+      <t:it desc="Performs floor when 'down' (low)">
+        <t:premium class="length1"
+                   generates="premRoundFloorLow" index="k"
+                   round="down">
+          <c:value-of name="#1.1" />
+        </t:premium>
+
+        <t:given name="premRoundFloorLow" />
+
+        <t:expect>
+          <t:match-result>
+            <c:eq>
+               <c:value-of name="#1" />
+            </c:eq>
+          </t:match-result>
+        </t:expect>
+      </t:it>
+
+
+      <t:it desc="Performs floor when 'down' (high)">
+        <t:premium class="length1"
+                   generates="premRoundFloorHigh" index="k"
+                   round="down">
+          <c:value-of name="#1.7" />
+        </t:premium>
+
+        <t:given name="premRoundFloorHigh" />
+
+        <t:expect>
+          <t:match-result>
+            <c:eq>
+               <c:value-of name="#1" />
+            </c:eq>
+          </t:match-result>
+        </t:expect>
+      </t:it>
     </t:describe>
   </t:describe>
 </package>