- 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 ]
- ! !
|
