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/g.stage | |
parent | 11554a9e5c92a98129b42598495abe7503d9208c (diff) | |
download | stage-883c473bac949def867b8834d01e661fe357040e.tar.gz stage-883c473bac949def867b8834d01e661fe357040e.tar.bz2 stage-883c473bac949def867b8834d01e661fe357040e.tar.xz stage-883c473bac949def867b8834d01e661fe357040e.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/g.stage')
-rw-r--r-- | tests/g.stage | 36 |
1 files changed, 36 insertions, 0 deletions
diff --git a/tests/g.stage b/tests/g.stage new file mode 100644 index 0000000..05ca5ad --- /dev/null +++ b/tests/g.stage | |||
@@ -0,0 +1,36 @@ | |||
1 | situation <<start>> | ||
2 | { | ||
3 | setup | ||
4 | { | ||
5 | display("pre start"); | ||
6 | a(); | ||
7 | display("post start"); | ||
8 | } | ||
9 | enter | ||
10 | { | ||
11 | display("Start::Enter"); | ||
12 | } | ||
13 | } | ||
14 | |||
15 | function a() | ||
16 | { | ||
17 | display("pre a"); | ||
18 | b(); | ||
19 | display("post a"); | ||
20 | } | ||
21 | |||
22 | function b() | ||
23 | { | ||
24 | display("pre b"); | ||
25 | goto( <<2>> ); | ||
26 | display("post b"); | ||
27 | } | ||
28 | |||
29 | situation <<2>> | ||
30 | { | ||
31 | enter | ||
32 | { | ||
33 | display("pre 2"); | ||
34 | } | ||
35 | } | ||
36 | |||