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

test/tests/flush.lua

@@ -1,12 +1,14 @@
 local _={}
-_[17]={}
+_[19]={}
+_[18]={}
+_[17]={tags=_[19],text="d"}
 _[16]={}
-_[15]={}
+_[15]={tags=_[18],text="b"}
 _[14]={}
-_[13]={data="d",tags=_[17]}
-_[12]={data="c",tags=_[16]}
-_[11]={data="b",tags=_[15]}
-_[10]={data="a",tags=_[14]}
+_[13]={_[17]}
+_[12]={tags=_[16],text="c"}
+_[11]={_[15]}
+_[10]={tags=_[14],text="a"}
 _[9]={_[13]}
 _[8]={_[12]}
 _[7]={_[11]}
@@ -19,20 +21,20 @@ _[1]={"text",_[6]}
 return {_[1],_[2],_[3],_[4],_[5]}
 --[[
 { "text", { {
-      data = "a",
-      tags = {}
-    } } }
-{ "choice", { {
-      data = "b",
-      tags = {}
+      tags = {},
+      text = "a"
     } } }
+{ "choice", { { {
+        tags = {},
+        text = "b"
+      } } } }
 { "text", { {
-      data = "c",
-      tags = {}
-    } } }
-{ "choice", { {
-      data = "d",
-      tags = {}
+      tags = {},
+      text = "c"
     } } }
+{ "choice", { { {
+        tags = {},
+        text = "d"
+      } } } }
 { "return" }
 ]]--