diff options
author | Mike Buland <eichlan@xagasoft.com> | 2012-02-08 00:24:06 -0700 |
---|---|---|
committer | Mike Buland <eichlan@xagasoft.com> | 2012-02-08 00:24:06 -0700 |
commit | a859a39f3455fcbf0575bd7acd25915c40922f92 (patch) | |
tree | 709c900083529913c45e782c430eec82dba9e642 /tests/l.stage | |
parent | 11554a9e5c92a98129b42598495abe7503d9208c (diff) | |
download | stage-a859a39f3455fcbf0575bd7acd25915c40922f92.tar.gz stage-a859a39f3455fcbf0575bd7acd25915c40922f92.tar.bz2 stage-a859a39f3455fcbf0575bd7acd25915c40922f92.tar.xz stage-a859a39f3455fcbf0575bd7acd25915c40922f92.zip |
Committed the tests I've been using.0.05
Good for regressions, I'll have to make some sort of test suite thing
later.
Diffstat (limited to 'tests/l.stage')
-rw-r--r-- | tests/l.stage | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/tests/l.stage b/tests/l.stage new file mode 100644 index 0000000..4c2b8e1 --- /dev/null +++ b/tests/l.stage | |||
@@ -0,0 +1,32 @@ | |||
1 | situation <<start>> | ||
2 | { | ||
3 | enter | ||
4 | { | ||
5 | x = 5; | ||
6 | while x > 0 do | ||
7 | { | ||
8 | display( x ); | ||
9 | x-=1; | ||
10 | } | ||
11 | |||
12 | for each j in [1, 2, 4, 8, 16, 32] do | ||
13 | { | ||
14 | display( j ); | ||
15 | |||
16 | if j == 16 then | ||
17 | { | ||
18 | goto(<<b>>); | ||
19 | } | ||
20 | } | ||
21 | |||
22 | display("Hiya"); | ||
23 | } | ||
24 | } | ||
25 | |||
26 | situation <<b>> | ||
27 | { | ||
28 | enter | ||
29 | { | ||
30 | display("b!"); | ||
31 | } | ||
32 | } | ||