[xml] Improve XML tests, test core:encoding/entity.

core/encoding/entity/entity.odin

@@ -115,7 +115,14 @@ decode_xml :: proc(input: string, options := XML_Decode_Options{}, allocator :=
 
 				We don't need to check if we need to write a `<`, because if it isn't CDATA or a comment,
 				it couldn't have been part of an XML tag body to be decoded here.
+
+				Keep in mind that we could already *be* inside a CDATA tag.
+				If so, write `>` as a literal and continue.
 			*/
+			if in_data {
+				write_rune(&builder, '<')
+				continue
+			}
 			in_data = _handle_xml_special(&t, &builder, options) or_return
 
 		case ']':

core/encoding/entity/example/entity_example.odin

@@ -50,6 +50,7 @@ _main :: proc() {
 	using fmt
 
 	options := xml.Options{ flags = { .Ignore_Unsupported, .Intern_Comments, .Unbox_CDATA, .Decode_SGML_Entities }}
+
 	doc, _ := xml.parse(#load("test.html"), options)
 
 	defer xml.destroy(doc)

core/encoding/entity/example/test.html

@@ -22,7 +22,7 @@
 		</div>
 		<!-- EXPECTED: Foozle]! © BOX ® /BOX42&;1234& -->
 		<div>
-			&verbar; &vert; &VerticalLine; &fjlig; &grave; &bsol; &reg; &rhov; &CounterClockwiseContourIntegral;
+			&verbar; &vert; &VerticalLine; &fjlig; &grave; &bsol; &reg; &rhov; &CounterClockwiseContourIntegral; &bsemi;
 		</div>
 	</body>
 </html>