Smalltalk createPackage: 'Platform-DOM-Tests'!
TestCase subclass: #PlatformDomTest
	slots: {#fixtureDiv}
	package: 'Platform-DOM-Tests'!

!PlatformDomTest methodsFor: 'testing'!

testEntityConversion
	PlatformDom isFeasible ifTrue: [ self assert: '©' htmlTextContent equals: '©' ]
!

testTextContentDoesNotRunScript
	PlatformDom isFeasible ifTrue: [
		self shouldnt: [ '<script>throw new Error("Intentional")</script>' htmlTextContent ] raise: Error ]
! !