test/idb/get.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="x">1</define>
     3   <define name=".product" args="a b c d">
     4     <add>
     5       <multiply>
     6 	<a/>
     7 	<b/>
     8       </multiply>
     9       <multiply>
    10 	<c/>
    11 	<d/>
    12       </multiply>
    13     </add>
    14   </define>
    15 
    16   <and>
    17     <if>
    18       <eq>
    19 	<get name="x"/>
    20 	<get>x</get>
    21       </eq>
    22       <print newline="true">PASS</print>
    23       <expr>
    24 	<print newline="true">FAIL</print>
    25 	<false/>
    26       </expr>
    27     </if>
    28 
    29     <if>
    30       <eq>
    31 	<expr>
    32 	  <set name="x">1</set>
    33 	  <add><x/>1</add>
    34 	  <x/>
    35 	</expr>
    36 	<expr>
    37 	  <set name="x">1</set>
    38 	  <add><get>x</get>1</add>
    39 	  <x/>
    40 	</expr>
    41       </eq>
    42       <expr>
    43 	<print newline="true">FAIL</print>
    44 	<false/>
    45       </expr>
    46       <print newline="true">PASS</print>
    47     </if>
    48 
    49     <if>
    50       <eq>
    51 	<define name=".net">4.5.50709</define>
    52 	<get>.net</get>
    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 	<expr>
    64 	  <define name="closure"/>
    65 	  <set name="closure">
    66 	    <get>.product</get>
    67 	  </set>
    68 	  <closure>1 2 3 4</closure>
    69 	</expr>
    70 	14
    71       </eq>
    72       <print newline="true">PASS</print>
    73       <expr>
    74 	<print newline="true">FAIL</print>
    75 	<false/>
    76       </expr>
    77     </if>
    78 
    79   </and>
    80 </expr>