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

test/tests/string escaping.lua

@@ -1,16 +1,23 @@
 local _={}
-_[17]={}
-_[16]={}
-_[15]={}
-_[14]={}
-_[13]={data="escaping expressions abc and stuff \\ and quotes \"",tags=_[17]}
-_[12]={data="other codes \n \\ \9",tags=_[16]}
-_[11]={data="quote \"",tags=_[15]}
-_[10]={data="expression a",tags=_[14]}
-_[9]={_[13]}
-_[8]={_[12]}
-_[7]={_[11]}
-_[6]={_[10]}
+_[24]={}
+_[23]={}
+_[22]={}
+_[21]={}
+_[20]={tags=_[24],text="escaping expressions abc and stuff \\ and quotes \""}
+_[19]={tags=_[23],text="\9"}
+_[18]={tags=_[23],text=" "}
+_[17]={tags=_[23],text="\\"}
+_[16]={tags=_[23],text=" "}
+_[15]={tags=_[23],text="\n"}
+_[14]={tags=_[23],text="other codes "}
+_[13]={tags=_[22],text="\""}
+_[12]={tags=_[22],text="quote "}
+_[11]={tags=_[21],text="a"}
+_[10]={tags=_[21],text="expression "}
+_[9]={_[20]}
+_[8]={_[14],_[15],_[16],_[17],_[18],_[19]}
+_[7]={_[12],_[13]}
+_[6]={_[10],_[11]}
 _[5]={"return"}
 _[4]={"text",_[9]}
 _[3]={"text",_[8]}
@@ -19,20 +26,41 @@ _[1]={"text",_[6]}
 return {_[1],_[2],_[3],_[4],_[5]}
 --[[
 { "text", { {
-      data = "expression a",
-      tags = {}
+      tags = <1>{},
+      text = "expression "
+    }, {
+      tags = <table 1>,
+      text = "a"
     } } }
 { "text", { {
-      data = 'quote "',
-      tags = {}
+      tags = <1>{},
+      text = "quote "
+    }, {
+      tags = <table 1>,
+      text = '"'
     } } }
 { "text", { {
-      data = "other codes \n \\ \t",
-      tags = {}
+      tags = <1>{},
+      text = "other codes "
+    }, {
+      tags = <table 1>,
+      text = "\n"
+    }, {
+      tags = <table 1>,
+      text = " "
+    }, {
+      tags = <table 1>,
+      text = "\\"
+    }, {
+      tags = <table 1>,
+      text = " "
+    }, {
+      tags = <table 1>,
+      text = "\t"
     } } }
 { "text", { {
-      data = 'escaping expressions abc and stuff \\ and quotes "',
-      tags = {}
+      tags = {},
+      text = 'escaping expressions abc and stuff \\ and quotes "'
     } } }
 { "return" }
 ]]--