@@ -53,10 +53,18 @@
 					 stringValue: @"x"]) &&
 	    R([elem[3] setPrefix: @"objfw-test"
 		    forNamespace: @"urn:objfw:test"]) &&
 	    [[elem[3] string] isEqual: @"<objfw-test:foo>x</objfw-test:foo>"])
 
+	TEST(@"+[elementWithText:]",
+	    (elem[3] = [OFXMLElement elementWithText: @"<foo>"]) &&
+	    [[elem[3] string] isEqual: @"&lt;foo&gt;"])
+
+	TEST(@"+[elementWithComment:]",
+	    (elem[3] = [OFXMLElement elementWithComment: @" comment "]) &&
+	    [[elem[3] string] isEqual: @"<!-- comment -->"])
+
 	TEST(@"-[addAttributeWithName:stringValue:]",
 	    R([elem[0] addAttributeWithName: @"foo"
 				stringValue: @"b&ar"]) &&
 	    [[elem[0] string] isEqual: @"<foo foo='b&amp;ar'/>"] &&
 	    R([elem[1] addAttributeWithName: @"foo"