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