"{ 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>&#169;</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$'
! !