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

test/tests/interrupt callback nested paragraph.lua

@@ -1,12 +1,14 @@
 local _={}
+_[14]={}
+_[13]={}
 _[12]={}
-_[11]={}
-_[10]={}
-_[9]={data="no",tags=_[12]}
-_[8]={data="in interrupt: 5",tags=_[11]}
-_[7]={data="before: 2",tags=_[10]}
-_[6]={_[8],_[9]}
-_[5]={_[7]}
+_[11]={tags=_[14],text="no"}
+_[10]={tags=_[13],text="5"}
+_[9]={tags=_[13],text="in interrupt: "}
+_[8]={tags=_[12],text="2"}
+_[7]={tags=_[12],text="before: "}
+_[6]={_[9],_[10],_[11]}
+_[5]={_[7],_[8]}
 _[4]={"return"}
 _[3]={"text",_[6]}
 _[2]={"wait",0}
@@ -14,16 +16,22 @@ _[1]={"text",_[5]}
 return {_[1],_[2],_[3],_[4]}
 --[[
 { "text", { {
-      data = "before: 2",
-      tags = {}
+      tags = <1>{},
+      text = "before: "
+    }, {
+      tags = <table 1>,
+      text = "2"
     } } }
 { "wait", 0 }
 { "text", { {
-      data = "in interrupt: 5",
-      tags = {}
+      tags = <1>{},
+      text = "in interrupt: "
     }, {
-      data = "no",
-      tags = {}
+      tags = <table 1>,
+      text = "5"
+    }, {
+      tags = {},
+      text = "no"
     } } }
 { "return" }
 ]]--