initial checkin
class: RegressionTests::ValueHolderTests
added: #test01_BlockValue
class: RegressionTests::ValueHolderTests class
"{ Encoding: utf8 }"
"{ Package: 'stx:goodies/regression' }"
"{ NameSpace: RegressionTests }"
TestCase subclass:#XMLCanonicalEncodingTests
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
category:'tests-Regression-XML'
!
!XMLCanonicalEncodingTests class methodsFor:'documentation'!
documentation
"
documentation to be added.
[author:]
cg
[instance variables:]
[class variables:]
[see also:]
"
! !
!XMLCanonicalEncodingTests methodsFor:'testing'!
test01
"see examples in https://www.w3.org/TR/2001/REC-xml-c14n-20010315"
|dom out canonOut|
dom := XML::XMLParser
parse:
'<?xml version="1.0" encoding="ISO-8859-1"?>
<doc>©</doc>'.
out := dom printString.
self assert:(out =
'<?xml version="1.0"?>
<doc>©</doc>').
canonOut := dom canonicalPrintString.
self assert:(canonOut = '<doc>©</doc>').
!
test02
"see examples in https://www.w3.org/TR/2001/REC-xml-c14n-20010315"
|dom out canonOut worldFile|
"/ <!!-- Let world.txt contain "world" (excluding the quotes) -->
worldFile := 'world.txt' asFilename.
[
worldFile contents:'world'.
dom := XML::XMLParser
parse:
'<!!DOCTYPE doc [
<!!ATTLIST doc attrExtEnt ENTITY #IMPLIED>
<!!ENTITY ent1 "Hello">
<!!ENTITY ent2 SYSTEM "world.txt">
<!!ENTITY entExt SYSTEM "earth.gif" NDATA gif>
<!!NOTATION gif SYSTEM "viewgif.exe">
]>
<doc attrExtEnt="entExt">
&ent1;, &ent2;!!
</doc>'.
out := dom printString.
self assert:(out =
'<doc attrExtEnt="entExt">
Hello, world!!
</doc>'
).
canonOut := dom canonicalPrintString.
self assert:(canonOut = '<doc attrExtEnt="entExt">
Hello, world!!
</doc>').
] ensure:[
worldFile remove
]
! !
!XMLCanonicalEncodingTests class methodsFor:'documentation'!
version
^ '$Header$'
!
version_CVS
^ '$Header$'
! !