tame/core/test/core/vector/table.xml

383 lines
10 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="Table Querying Specs">
<import package="../../spec" />
<import package="../../../base" />
<import package="../../../vector/table" />
<t:create-table name="test-table"
desc="Dummy table for query testing">
<t:table-column name="a"
index="0"
desc="Column A" />
<t:table-column name="b"
index="1"
desc="Column B" />
<t:table-column name="c"
index="2"
desc="Column C" />
<t:table-rows>
<t:table-row>
<t:table-value const="1" />
<t:table-value const="11" />
<t:table-value const="111" />
</t:table-row>
<t:table-row>
<t:table-value const="1" />
<t:table-value const="12" />
<t:table-value const="121" />
</t:table-row>
<t:table-row>
<t:table-value const="2" />
<t:table-value const="21" />
<t:table-value const="111" />
</t:table-row>
</t:table-rows>
</t:create-table>
<t:create-table name="test-table-seq"
desc="Dummy sequential table for query testing">
<t:table-column name="a"
index="0"
desc="Column A" />
<t:table-column name="b"
index="1"
desc="Column B" />
<t:table-rows>
<t:table-row>
<t:table-value const="1" />
<t:table-value const="1" />
</t:table-row>
<t:table-row>
<t:table-value const="2" />
<t:table-value const="1" />
</t:table-row>
<t:table-row>
<t:table-value const="2" />
<t:table-value const="2" />
</t:table-row>
<t:table-row>
<t:table-value const="5" />
<t:table-value const="1" />
</t:table-row>
<t:table-row>
<t:table-value const="5" />
<t:table-value const="2" />
</t:table-row>
<t:table-row>
<t:table-value const="5" />
<t:table-value const="3" />
</t:table-row>
<t:table-row>
<t:table-value const="7" />
<t:table-value const="1" />
</t:table-row>
<t:table-row>
<t:table-value const="7" />
<t:table-value const="2" />
</t:table-row>
<t:table-row>
<t:table-value const="7" />
<t:table-value const="3" />
</t:table-row>
<t:table-row>
<t:table-value const="7" />
<t:table-value const="4" />
</t:table-row>
</t:table-rows>
</t:create-table>
<t:describe name="_query-first-field_">
<t:it desc="returns first row of multi-row result">
<t:given>
<t:query-first-field table="test-table" field="c">
<t:where-eq field="a">
<c:value-of name="#1" />
</t:where-eq>
</t:query-first-field>
</t:given>
<t:expect>
<t:match-result eq="111" />
</t:expect>
</t:it>
<t:it desc="returns first row of single-row result">
<t:given>
<t:query-first-field table="test-table" field="c">
<t:where-eq field="a">
<c:value-of name="#1" />
</t:where-eq>
<t:where-eq field="b">
<c:value-of name="#12" />
</t:where-eq>
</t:query-first-field>
</t:given>
<t:expect>
<t:match-result eq="121" />
</t:expect>
</t:it>
</t:describe>
<t:describe name="_query-field_">
<t:describe name="with predicates">
<t:it desc="returns vector of field values">
<t:given>
<c:length-of>
<t:query-field table="test-table" field="c">
<t:where-eq field="a">
<c:value-of name="#1" />
</t:where-eq>
</t:query-field>
</c:length-of>
</t:given>
<t:expect>
<t:match-result eq="2" />
</t:expect>
</t:it>
<t:it desc="returns vector of field values even for single result">
<t:given>
<c:car>
<t:query-field table="test-table" field="c">
<t:where-eq field="a">
<c:value-of name="#1" />
</t:where-eq>
<t:where-eq field="b">
<c:value-of name="#11" />
</t:where-eq>
</t:query-field>
</c:car>
</t:given>
<t:expect>
<t:match-result eq="111" />
</t:expect>
</t:it>
</t:describe>
<t:describe name="with no predicates">
<t:it desc="returns vector of all field values">
<t:given>
<c:length-of>
<t:query-field table="test-table" field="c" />
</c:length-of>
</t:given>
<t:expect>
<t:match-result eq="3" />
</t:expect>
</t:it>
</t:describe>
<!-- TODO: tried using inline-template here but id generation was not
working as expected -->
<t:describe name="with CMP_OP_LT">
<t:it desc="matches less than a given value">
<t:given>
<c:let>
<c:values>
<c:value name="results" type="integer" set="vector">
<t:query-field table="test-table-seq" field="a">
<t:where-lt field="a">
<c:value-of name="#5" />
</t:where-lt>
</t:query-field>
</c:value>
</c:values>
<c:sum of="results" />
</c:let>
</t:given>
<t:expect>
<!-- 1 + 2 + 2 -->
<t:match-result eq="5" />
</t:expect>
</t:it>
</t:describe>
<t:describe name="with CMP_OP_LTE">
<t:it desc="matches less than or equal to a given value">
<t:given>
<c:let>
<c:values>
<c:value name="results" type="integer" set="vector">
<t:query-field table="test-table-seq" field="a">
<t:where-lte field="a">
<c:value-of name="#5" />
</t:where-lte>
</t:query-field>
</c:value>
</c:values>
<c:sum of="results" />
</c:let>
</t:given>
<t:expect>
<!-- 1 + 2 + 2 + 5 + 5 + 5 -->
<t:match-result eq="20" />
</t:expect>
</t:it>
</t:describe>
<t:describe name="with CMP_OP_GT">
<t:it desc="matches greater than a given value">
<t:given>
<c:let>
<c:values>
<c:value name="results" type="integer" set="vector">
<t:query-field table="test-table-seq" field="a">
<t:where-gt field="a">
<c:value-of name="#5" />
</t:where-gt>
</t:query-field>
</c:value>
</c:values>
<c:sum of="results" />
</c:let>
</t:given>
<t:expect>
<!-- 7 + 7 + 7 + 7 -->
<t:match-result eq="28" />
</t:expect>
</t:it>
</t:describe>
<t:describe name="with CMP_OP_GTE">
<t:it desc="matches greater than or equal to a given value">
<t:given>
<c:let>
<c:values>
<c:value name="results" type="integer" set="vector">
<t:query-field table="test-table-seq" field="a">
<t:where-gte field="a">
<c:value-of name="#5" />
</t:where-gte>
</t:query-field>
</c:value>
</c:values>
<c:sum of="results" />
</c:let>
</t:given>
<t:expect>
<!-- 5 + 5 + 5 + 7 + 7 + 7 + 7 -->
<t:match-result eq="43" />
</t:expect>
</t:it>
</t:describe>
</t:describe>
<t:describe name="_query-row_">
<t:describe name="with predicates">
<t:it desc="returns vector of rows">
<t:given>
<c:length-of>
<t:query-row table="test-table">
<t:where-eq field="a">
<c:value-of name="#1" />
</t:where-eq>
</t:query-row>
</c:length-of>
</t:given>
<t:expect>
<t:match-result eq="2" />
</t:expect>
</t:it>
<t:it desc="returns vector of rows even for single result">
<t:given>
<c:let>
<c:values>
<c:value name="first_row" type="integer" set="vector">
<c:car>
<t:query-row table="test-table">
<t:where-eq field="a">
<c:value-of name="#1" />
</t:where-eq>
<t:where-eq field="b">
<c:value-of name="#11" />
</t:where-eq>
</t:query-row>
</c:car>
</c:value>
</c:values>
<c:sum of="first_row" />
</c:let>
</t:given>
<t:expect>
<t:match-result eq="123" />
</t:expect>
</t:it>
</t:describe>
<t:describe name="with no predicates">
<t:it desc="returns vector of all rows">
<t:given>
<c:length-of>
<t:query-row table="test-table" />
</c:length-of>
</t:given>
<t:expect>
<t:match-result eq="3" />
</t:expect>
</t:it>
</t:describe>
</t:describe>
</package>