Test insertion of direct DOM DocumentFragment.

src/DOMite-Tests.js

@@ -355,6 +355,35 @@ messageSends: ["at:", "testedClass", "<<", "newStream", "createElement:", "asser
 }),
 $globals.DOMiteTest);
 
+$core.addMethod(
+$core.method({
+selector: "testInsertDomNodeInRawDomFragment",
+protocol: 'testing',
+fn: function (){
+var self=this;
+var d,f;
+//>>excludeStart("ctx", pragmas.excludeDebugContexts);
+return $core.withContext(function($ctx1) {
+//>>excludeEnd("ctx");
+d=$recv(self._testedClass())._at_("#fixture");
+f=$recv(document)._createDocumentFragment();
+$recv(f)._appendChild_($recv(document)._createElement_("script"));
+$recv(d).__lt_lt(f);
+self._assertBodyEndsWith_(">sentinel<script></script></div>");
+return self;
+//>>excludeStart("ctx", pragmas.excludeDebugContexts);
+}, function($ctx1) {$ctx1.fill(self,"testInsertDomNodeInRawDomFragment",{d:d,f:f},$globals.DOMiteTest)});
+//>>excludeEnd("ctx");
+},
+//>>excludeStart("ide", pragmas.excludeIdeData);
+args: [],
+source: "testInsertDomNodeInRawDomFragment\x0a\x09| d f |\x0a\x09d := self testedClass at: '#fixture'.\x0a\x09f := document createDocumentFragment.\x0a\x09f appendChild: (document createElement: 'script').\x0a\x09d << f.\x0a\x09self assertBodyEndsWith: '>sentinel<script></script></div>'",
+referencedClasses: [],
+//>>excludeEnd("ide");
+messageSends: ["at:", "testedClass", "createDocumentFragment", "appendChild:", "createElement:", "<<", "assertBodyEndsWith:"]
+}),
+$globals.DOMiteTest);
+
 $core.addMethod(
 $core.method({
 selector: "testInsertElement",

src/DOMite-Tests.st

@@ -83,6 +83,15 @@ testInsertDomNodeInFragment
 	self assertBodyEndsWith: '>sentinel<script></script></div>'
 !
 
+testInsertDomNodeInRawDomFragment
+	| d f |
+	d := self testedClass at: '#fixture'.
+	f := document createDocumentFragment.
+	f appendChild: (document createElement: 'script').
+	d << f.
+	self assertBodyEndsWith: '>sentinel<script></script></div>'
+!
+
 testInsertElement
 	| d |
 	d := self testedClass at: 'html body div#fixture'.