DSLTestCase catch cached script not proceeding error

.gitignore

@@ -1 +1 @@
-DSLScript*.json
+AsyncDSLScript*.json

src/test/cases/AsyncDSLScript.dsl

@@ -0,0 +1,3 @@
+{goop (cc)}
+{gloop (cc)}
+{(set wholeScriptDone true) (cc)}

src/test/cases/AsyncDSLScriptThatWillCache.dsl

@@ -0,0 +1,3 @@
+{goop (cc)}
+{gloop (cc)}
+{(set wholeScriptDone true) (cc)}

src/test/cases/DSL.kiss

@@ -1,4 +1,5 @@
 // TODO make a better position reification scheme here
 (defReaderMacro "goop" [stream] `(Assert.isTrue true))
 (defReaderMacro "gloop" [stream] `(Assert.isFalse false))
+(prop &mut wholeScriptDone false)
 (prop Assert utest.Assert)

src/test/cases/DSLScript.dsl

@@ -1,2 +1,3 @@
 goop
-gloop
+gloop
+(set wholeScriptDone true)

src/test/cases/DSLScriptThatWillCache.dsl

@@ -1,2 +0,0 @@
-goop
-gloop

src/test/cases/DSLTestCase.hx

@@ -8,7 +8,9 @@ import kiss.Prelude;
 
 class DSLTestCase extends Test {
     function testScript() {
-        new DSLScript().run();
+        var script = new DSLScript();
+        script.run();
+        Assert.isTrue(script.wholeScriptDone);
     }
 
     function testFork() {
@@ -19,24 +21,29 @@ class DSLTestCase extends Test {
         var script = new AsyncDSLScript();
         script.run();
         Assert.isFalse(script.ranHscriptInstruction);
+        Assert.isTrue(script.wholeScriptDone);
     }
     
     function testAsyncFromCache() {
         var script = new AsyncDSLScriptThatWillCache();
         script.run();
         var script2 = new AsyncDSLScriptThatWillCache2();
+        script2.run();
         Assert.isTrue(script.ranHscriptInstruction || script2.ranHscriptInstruction);
+        Assert.isFalse(script.ranHscriptInstruction && script2.ranHscriptInstruction);
+        Assert.isTrue(script.wholeScriptDone);
+        Assert.isTrue(script2.wholeScriptDone);
     }
 }
 
 @:build(kiss.EmbeddedScript.build("DSL.kiss", "DSLScript.dsl"))
 class DSLScript extends EmbeddedScript {}
 
-@:build(kiss.AsyncEmbeddedScript.build("", "DSL.kiss", "DSLScript.dsl"))
+@:build(kiss.AsyncEmbeddedScript.build("", "DSL.kiss", "AsyncDSLScript.dsl"))
 class AsyncDSLScript extends AsyncEmbeddedScript {}
 
-@:build(kiss.AsyncEmbeddedScript.build("", "DSL.kiss", "DSLScriptThatWillCache.dsl"))
+@:build(kiss.AsyncEmbeddedScript.build("", "DSL.kiss", "AsyncDSLScriptThatWillCache.dsl"))
 class AsyncDSLScriptThatWillCache extends AsyncEmbeddedScript {}
 
-@:build(kiss.AsyncEmbeddedScript.build("", "DSL.kiss", "DSLScriptThatWillCache.dsl"))
+@:build(kiss.AsyncEmbeddedScript.build("", "DSL.kiss", "AsyncDSLScriptThatWillCache.dsl"))
 class AsyncDSLScriptThatWillCache2 extends AsyncEmbeddedScript {}

test.sh

@@ -15,8 +15,8 @@ elif [ "$KISS_TARGET" = nodejs ]; then
     lix install haxelib:hxnodejs
 fi
 
-if [ -e DSLScript.cache.json ]; then
-    rm DSLScript*.json
+if [ -e AsyncDSLScript.cache.json ]; then
+    rm AsyncDSLScript*.json
 fi
 
 if [ ! -z "$2" ]; then