test/spec/spectest11.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="pi">3.14</define>
     3 
     4   <define name="times-two" args="x">
     5     <multiply><get name="x"/>2</multiply>
     6   </define>
     7 
     8   <and>
     9     <if>
    10       <eq>
    11 	<pi/>
    12 	<float>3.14</float>
    13       </eq>
    14       <print newline="true">PASS</print>
    15       <expr>
    16 	<print newline="true">FAIL</print>
    17 	<false/>
    18       </expr>
    19     </if>
    20 
    21     <if>
    22       <eq>
    23 	<times-two>10</times-two>
    24 	<integer>20</integer>
    25       </eq>
    26       <print newline="true">PASS</print>
    27       <expr>
    28 	<print newline="true">FAIL</print>
    29 	<false/>
    30       </expr>
    31     </if>
    32 
    33     <if>
    34       <eq>
    35 	<times-two>
    36 	  2
    37 	  <set name="x">4</set>
    38 	</times-two>
    39 	<integer>8</integer>
    40       </eq>
    41       <print newline="true">PASS</print>
    42       <expr>
    43 	<print newline="true">FAIL</print>
    44 	<false/>
    45       </expr>
    46     </if>
    47 
    48     <print newline="true">
    49 	<string>Times two returns: </string>
    50 	<times-two>
    51 	  2
    52 	  <define name="x">5</define>
    53 	</times-two>
    54     </print>
    55 
    56     <if>
    57       <eq>
    58 	<times-two>
    59 	  2
    60 	  <define name="x">5</define>
    61 	</times-two>
    62 	<integer>10</integer>
    63       </eq>
    64       <print newline="true">PASS</print>
    65       <expr>
    66 	<print newline="true">FAIL</print>
    67 	<false/>
    68       </expr>
    69     </if>
    70   </and>
    71 </expr>