Handle events in text interpolation; capture text events in choice lines; improve test script

test/tests/choice function.lua

@@ -1,14 +1,17 @@
 local _={}
+_[18]={}
+_[17]={}
+_[16]={}
 _[15]={}
-_[14]={}
-_[13]={}
-_[12]={}
-_[11]={}
-_[10]={data="ok",tags=_[15]}
-_[9]={data="neol",tags=_[14]}
-_[8]={data="oh",tags=_[13]}
-_[7]={data="neol",tags=_[12]}
-_[6]={data="ho",tags=_[11]}
+_[14]={tags=_[18],text="neol"}
+_[13]={tags=_[15],text="oh"}
+_[12]={tags=_[17],text="neol"}
+_[11]={tags=_[16],text="ho"}
+_[10]={tags=_[15],text="ok"}
+_[9]={_[14]}
+_[8]={_[13]}
+_[7]={_[12]}
+_[6]={_[11]}
 _[5]={_[10]}
 _[4]={_[6],_[7],_[8],_[9]}
 _[3]={"return"}
@@ -16,22 +19,22 @@ _[2]={"text",_[5]}
 _[1]={"choice",_[4]}
 return {_[1],_[2],_[3]}
 --[[
-{ "choice", { {
-      data = "ho",
-      tags = {}
-    }, {
-      data = "neol",
-      tags = {}
-    }, {
-      data = "oh",
-      tags = {}
-    }, {
-      data = "neol",
-      tags = {}
-    } } }
+{ "choice", { { {
+        tags = {},
+        text = "ho"
+      } }, { {
+        tags = {},
+        text = "neol"
+      } }, { {
+        tags = {},
+        text = "oh"
+      } }, { {
+        tags = {},
+        text = "neol"
+      } } } }
 { "text", { {
-      data = "ok",
-      tags = {}
+      tags = {},
+      text = "ok"
     } } }
 { "return" }
 ]]--