test/spec/spectest43.xml
author ali <ali@juiblex.co.uk>
Wed Oct 10 22:58:48 2012 +0100 (2012-10-10)
changeset 1 fe592b4168f3
permissions -rw-r--r--
Added tag 1.0 for changeset bc8c9a11cbfc
     1 <expr>
     2   <define name="test-one" args="x">
     3     <switch>
     4       <case>
     5 	<eq><x/>1</eq>
     6 	1
     7       </case>
     8       <case>
     9 	<true/>
    10 	2
    11       </case>
    12     </switch>
    13   </define>
    14 
    15   <define name="test-two" args="x">
    16     <switch>
    17       <case>
    18 	<eq><x/>1</eq>
    19 	1
    20       </case>
    21     </switch>
    22   </define>
    23 
    24   <and>
    25     <if>
    26       <eq>
    27 	<test-one>1</test-one>
    28 	<integer>1</integer>
    29       </eq>
    30       <print newline="true">PASS</print>
    31       <expr>
    32 	<print newline="true">FAIL</print>
    33 	<false/>
    34       </expr>
    35     </if>
    36 
    37     <if>
    38       <eq>
    39 	<test-one>2</test-one>
    40 	<integer>2</integer>
    41       </eq>
    42       <print newline="true">PASS</print>
    43       <expr>
    44 	<print newline="true">FAIL</print>
    45 	<false/>
    46       </expr>
    47     </if>
    48 
    49     <if>
    50       <eq>
    51 	<test-two>1</test-two>
    52 	<integer>1</integer>
    53       </eq>
    54       <print newline="true">PASS</print>
    55       <expr>
    56 	<print newline="true">FAIL</print>
    57 	<false/>
    58       </expr>
    59     </if>
    60 
    61     <if>
    62       <eq>
    63 	<test-two>2</test-two>
    64 	<nil/>
    65       </eq>
    66       <print newline="true">PASS</print>
    67       <expr>
    68 	<print newline="true">FAIL</print>
    69 	<false/>
    70       </expr>
    71     </if>
    72   </and>
    73 </expr>