Committed the tests I've been using.0.05

Good for regressions, I'll have to make some sort of test suite thing
later.

7 files changed, 138 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 @@
+situation <<start>>
+{
+        setup
+        {
+                display("pre start");
+                a();
+                display("post start");
+        }
+        enter
+        {
+                display("Start::Enter");
+        }
+}
+
+function a()
+{
+        display("pre a");
+        b();
+        display("post a");
+}
+
+function b()
+{
+        display("pre b");
+        goto( <<2>> );
+        display("post b");
+}
+
+situation <<2>>
+{
+        enter
+        {
+                display("pre 2");
+        }
+}
+
diff --git a/tests/i.stage b/tests/i.stage
new file mode 100644
index 0000000..8c2e7fe
--- /dev/null
+++ b/tests/i.stage
@@ -0,0 +1,17 @@
+situation <<start>>
+{
+        enter
+        {
+                if true then
+                {
+                        display("True");
+                }
+                else
+                {
+                        display("False");
+                }
+
+                display("Done");
+        }
+}
+
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 @@
+situation <<start>>
+{
+        enter
+        {
+                x = 5;
+                while x > 0 do
+                {
+                        display( x );
+                        x-=1;
+                }
+
+                for each j in [1, 2, 4, 8, 16, 32] do
+                {
+                        display( j );
+
+                        if j == 16 then
+                        {
+                                goto(<<b>>);
+                        }
+                }
+
+                display("Hiya");
+        }
+}
+
+situation <<b>>
+{
+        enter
+        {
+                display("b!");
+        }
+}
diff --git a/opttest.stage b/tests/opttest.stage
index 325a197..325a197 100644
--- a/opttest.stage
+++ b/tests/opttest.stage
diff --git a/tests/r.stage b/tests/r.stage
new file mode 100644
index 0000000..c2d9e1f
--- /dev/null
+++ b/tests/r.stage
@@ -0,0 +1,24 @@
+
+game.start = <<a>>;
+
+situation <<a>>
+{
+        setup
+        {
+                x = 3;
+
+                my_fun( x );
+
+                display("About to end" + x);
+
+                exit();
+        }
+}
+
+function my_fun( a )
+{
+        display( a );
+        return();
+        display( "hello" );
+}
+
diff --git a/tests/t.stage b/tests/t.stage
new file mode 100644
index 0000000..c97fe4f
--- /dev/null
+++ b/tests/t.stage
@@ -0,0 +1,29 @@
+
+situation <<start>>
+{
+        setup
+        {
+                display("Hi");
+        }
+        enter
+        {
+                display("start pre");
+                goAhead();
+                display("start post");
+        }
+}
+
+function goAhead()
+{
+        display("goAhead() pre");
+        goto( <<next>> );
+        display("goAhead() post");
+}
+
+situation <<next>>
+{
+        enter
+        {
+                display("This is next.");
+        }
+}
diff --git a/test.stage b/tests/test.stage
index cc765a4..cc765a4 100644
--- a/test.stage
+++ b/tests/test.stage