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

test/tests/function assignement.lua

@@ -1,18 +1,20 @@
 local _={}
+_[23]={}
+_[22]={}
 _[21]={}
 _[20]={}
 _[19]={}
-_[18]={}
-_[17]={}
-_[16]={data="3",tags=_[21]}
-_[15]={data="v2=ok",tags=_[20]}
-_[14]={data="50",tags=_[19]}
-_[13]={data="v=50",tags=_[18]}
-_[12]={data="5",tags=_[17]}
-_[11]={_[16]}
-_[10]={_[15]}
-_[9]={_[14]}
-_[8]={_[13]}
+_[18]={tags=_[23],text="3"}
+_[17]={tags=_[22],text="ok"}
+_[16]={tags=_[22],text="v2="}
+_[15]={tags=_[21],text="50"}
+_[14]={tags=_[20],text="50"}
+_[13]={tags=_[20],text="v="}
+_[12]={tags=_[19],text="5"}
+_[11]={_[18]}
+_[10]={_[16],_[17]}
+_[9]={_[15]}
+_[8]={_[13],_[14]}
 _[7]={_[12]}
 _[6]={"return"}
 _[5]={"text",_[11]}
@@ -23,24 +25,30 @@ _[1]={"text",_[7]}
 return {_[1],_[2],_[3],_[4],_[5],_[6]}
 --[[
 { "text", { {
-      data = "5",
-      tags = {}
+      tags = {},
+      text = "5"
     } } }
 { "text", { {
-      data = "v=50",
-      tags = {}
+      tags = <1>{},
+      text = "v="
+    }, {
+      tags = <table 1>,
+      text = "50"
     } } }
 { "text", { {
-      data = "50",
-      tags = {}
+      tags = {},
+      text = "50"
     } } }
 { "text", { {
-      data = "v2=ok",
-      tags = {}
+      tags = <1>{},
+      text = "v2="
+    }, {
+      tags = <table 1>,
+      text = "ok"
     } } }
 { "text", { {
-      data = "3",
-      tags = {}
+      tags = {},
+      text = "3"
     } } }
 { "return" }
 ]]--