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 | |||
