1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/test/spec/spectest11.xml	Wed Oct 10 22:58:48 2012 +0100
     1.3 @@ -0,0 +1,71 @@
     1.4 +<expr>
     1.5 +  <define name="pi">3.14</define>
     1.6 +
     1.7 +  <define name="times-two" args="x">
     1.8 +    <multiply><get name="x"/>2</multiply>
     1.9 +  </define>
    1.10 +
    1.11 +  <and>
    1.12 +    <if>
    1.13 +      <eq>
    1.14 +	<pi/>
    1.15 +	<float>3.14</float>
    1.16 +      </eq>
    1.17 +      <print newline="true">PASS</print>
    1.18 +      <expr>
    1.19 +	<print newline="true">FAIL</print>
    1.20 +	<false/>
    1.21 +      </expr>
    1.22 +    </if>
    1.23 +
    1.24 +    <if>
    1.25 +      <eq>
    1.26 +	<times-two>10</times-two>
    1.27 +	<integer>20</integer>
    1.28 +      </eq>
    1.29 +      <print newline="true">PASS</print>
    1.30 +      <expr>
    1.31 +	<print newline="true">FAIL</print>
    1.32 +	<false/>
    1.33 +      </expr>
    1.34 +    </if>
    1.35 +
    1.36 +    <if>
    1.37 +      <eq>
    1.38 +	<times-two>
    1.39 +	  2
    1.40 +	  <set name="x">4</set>
    1.41 +	</times-two>
    1.42 +	<integer>8</integer>
    1.43 +      </eq>
    1.44 +      <print newline="true">PASS</print>
    1.45 +      <expr>
    1.46 +	<print newline="true">FAIL</print>
    1.47 +	<false/>
    1.48 +      </expr>
    1.49 +    </if>
    1.50 +
    1.51 +    <print newline="true">
    1.52 +	<string>Times two returns: </string>
    1.53 +	<times-two>
    1.54 +	  2
    1.55 +	  <define name="x">5</define>
    1.56 +	</times-two>
    1.57 +    </print>
    1.58 +
    1.59 +    <if>
    1.60 +      <eq>
    1.61 +	<times-two>
    1.62 +	  2
    1.63 +	  <define name="x">5</define>
    1.64 +	</times-two>
    1.65 +	<integer>10</integer>
    1.66 +      </eq>
    1.67 +      <print newline="true">PASS</print>
    1.68 +      <expr>
    1.69 +	<print newline="true">FAIL</print>
    1.70 +	<false/>
    1.71 +      </expr>
    1.72 +    </if>
    1.73 +  </and>
    1.74 +</expr>