Do not use PlatformDom >>> newXxx in tests.

src/DOMite-Tests.js

@@ -57,7 +57,7 @@ var self=this;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 return $core.withContext(function($ctx1) {
 //>>excludeEnd("ctx");
-self["@fixtureDiv"]=$recv($globals.PlatformDom)._newElement_("div");
+self["@fixtureDiv"]=$recv(document)._createElement_("div");
 $recv($recv(document)._body())._appendChild_(self["@fixtureDiv"]);
 $recv(self["@fixtureDiv"])._setAttribute_to_("id","fixture");
 $recv(self["@fixtureDiv"])._innerHTML_("sentinel");
@@ -68,10 +68,10 @@ return self;
 },
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
-source: "setUp\x0a\x09fixtureDiv := PlatformDom newElement: 'div'.\x0a\x09document body appendChild: fixtureDiv.\x0a\x09fixtureDiv setAttribute: 'id' to: 'fixture'.\x0a\x09fixtureDiv innerHTML: 'sentinel'",
-referencedClasses: ["PlatformDom"],
+source: "setUp\x0a\x09fixtureDiv := document createElement: 'div'.\x0a\x09document body appendChild: fixtureDiv.\x0a\x09fixtureDiv setAttribute: 'id' to: 'fixture'.\x0a\x09fixtureDiv innerHTML: 'sentinel'",
+referencedClasses: [],
 //>>excludeEnd("ide");
-messageSends: ["newElement:", "appendChild:", "body", "setAttribute:to:", "innerHTML:"]
+messageSends: ["createElement:", "appendChild:", "body", "setAttribute:to:", "innerHTML:"]
 }),
 $globals.DOMiteTest);
 
@@ -280,7 +280,7 @@ var d;
 return $core.withContext(function($ctx1) {
 //>>excludeEnd("ctx");
 d=$recv(self._testedClass())._fromElement_(self["@fixtureDiv"]);
-$recv(d).__lt_lt($recv($globals.PlatformDom)._newElement_("pre"));
+$recv(d).__lt_lt($recv(document)._createElement_("pre"));
 self._assertBodyEndsWith_(">sentinel<pre></pre></div>");
 return self;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
@@ -289,10 +289,10 @@ return self;
 },
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
-source: "testInsertDomNode\x0a\x09| d |\x0a\x09d := self testedClass fromElement: fixtureDiv.\x0a\x09d << (PlatformDom newElement: 'pre').\x0a\x09self assertBodyEndsWith: '>sentinel<pre></pre></div>'",
-referencedClasses: ["PlatformDom"],
+source: "testInsertDomNode\x0a\x09| d |\x0a\x09d := self testedClass fromElement: fixtureDiv.\x0a\x09d << (document createElement: 'pre').\x0a\x09self assertBodyEndsWith: '>sentinel<pre></pre></div>'",
+referencedClasses: [],
 //>>excludeEnd("ide");
-messageSends: ["fromElement:", "testedClass", "<<", "newElement:", "assertBodyEndsWith:"]
+messageSends: ["fromElement:", "testedClass", "<<", "createElement:", "assertBodyEndsWith:"]
 }),
 $globals.DOMiteTest);
 
@@ -312,7 +312,7 @@ $1=self._testedClass();
 $ctx1.sendIdx["testedClass"]=1;
 //>>excludeEnd("ctx");
 d=$recv($1)._at_("#fixture");
-$recv(d).__lt_lt($recv($recv(self._testedClass())._newStream()).__lt_lt($recv($globals.PlatformDom)._newElement_("script")));
+$recv(d).__lt_lt($recv($recv(self._testedClass())._newStream()).__lt_lt($recv(document)._createElement_("script")));
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 $ctx1.sendIdx["<<"]=1;
 //>>excludeEnd("ctx");
@@ -324,10 +324,10 @@ return self;
 },
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
-source: "testInsertDomNodeInFragment\x0a\x09| d |\x0a\x09d := self testedClass at: '#fixture'.\x0a\x09d << (self testedClass newStream << (PlatformDom newElement: 'script')).\x0a\x09self assertBodyEndsWith: '>sentinel<script></script></div>'",
-referencedClasses: ["PlatformDom"],
+source: "testInsertDomNodeInFragment\x0a\x09| d |\x0a\x09d := self testedClass at: '#fixture'.\x0a\x09d << (self testedClass newStream << (document createElement: 'script')).\x0a\x09self assertBodyEndsWith: '>sentinel<script></script></div>'",
+referencedClasses: [],
 //>>excludeEnd("ide");
-messageSends: ["at:", "testedClass", "<<", "newStream", "newElement:", "assertBodyEndsWith:"]
+messageSends: ["at:", "testedClass", "<<", "newStream", "createElement:", "assertBodyEndsWith:"]
 }),
 $globals.DOMiteTest);
 
@@ -342,8 +342,8 @@ var d,f;
 return $core.withContext(function($ctx1) {
 //>>excludeEnd("ctx");
 d=$recv(self._testedClass())._at_("#fixture");
-f=[]._asDomNode();
-$recv(f)._appendChild_($recv($globals.PlatformDom)._newElement_("script"));
+f=$recv(document)._createDocumentFragment();
+$recv(f)._appendChild_($recv(document)._createElement_("script"));
 $recv(d).__lt_lt(f);
 self._assertBodyEndsWith_(">sentinel<script></script></div>");
 return self;
@@ -353,10 +353,10 @@ return self;
 },
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
-source: "testInsertDomNodeInRawDomFragment\x0a\x09| d f |\x0a\x09d := self testedClass at: '#fixture'.\x0a\x09f := #() asDomNode.\x0a\x09f appendChild: (PlatformDom newElement: 'script').\x0a\x09d << f.\x0a\x09self assertBodyEndsWith: '>sentinel<script></script></div>'",
-referencedClasses: ["PlatformDom"],
+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", "asDomNode", "appendChild:", "newElement:", "<<", "assertBodyEndsWith:"]
+messageSends: ["at:", "testedClass", "createDocumentFragment", "appendChild:", "createElement:", "<<", "assertBodyEndsWith:"]
 }),
 $globals.DOMiteTest);
 

src/DOMite-Tests.st

@@ -6,7 +6,7 @@ TestCase subclass: #DOMiteTest
 !DOMiteTest methodsFor: 'fixture'!
 
 setUp
-	fixtureDiv := PlatformDom newElement: 'div'.
+	fixtureDiv := document createElement: 'div'.
 	document body appendChild: fixtureDiv.
 	fixtureDiv setAttribute: 'id' to: 'fixture'.
 	fixtureDiv innerHTML: 'sentinel'
@@ -68,22 +68,22 @@ testFromBadSelectorIsInvalid
 testInsertDomNode
 	| d |
 	d := self testedClass fromElement: fixtureDiv.
-	d << (PlatformDom newElement: 'pre').
+	d << (document createElement: 'pre').
 	self assertBodyEndsWith: '>sentinel<pre></pre></div>'
 !
 
 testInsertDomNodeInFragment
 	| d |
 	d := self testedClass at: '#fixture'.
-	d << (self testedClass newStream << (PlatformDom newElement: 'script')).
+	d << (self testedClass newStream << (document createElement: 'script')).
 	self assertBodyEndsWith: '>sentinel<script></script></div>'
 !
 
 testInsertDomNodeInRawDomFragment
 	| d f |
 	d := self testedClass at: '#fixture'.
-	f := #() asDomNode.
-	f appendChild: (PlatformDom newElement: 'script').
+	f := document createDocumentFragment.
+	f appendChild: (document createElement: 'script').
 	d << f.
 	self assertBodyEndsWith: '>sentinel<script></script></div>'
 !