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