--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/trunk/XMLv2__EncodingTests.st	Tue Apr 08 19:47:42 2008 +0000
@@ -0,0 +1,236 @@
+"{ Package: 'stx:goodies/xmlsuite' }"
+
+"{ NameSpace: XMLv2 }"
+
+TestCase subclass:#EncodingTests
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'XML Suite-Tests'
+!
+
+!EncodingTests class methodsFor:'documentation'!
+
+documentation
+"
+    documentation to be added.
+
+    [author:]
+        Jan Vrany (janfrog@bruxa)
+
+    [instance variables:]
+
+    [class variables:]
+
+    [see also:]
+
+"
+!
+
+history
+    "Created: / 15-06-2005 / 13:48:02 / janfrog"
+! !
+
+!EncodingTests class methodsFor:'defaults'!
+
+defaultTestDirectory
+
+    ^(Smalltalk getPackageDirectoryForPackage:self package)
+        construct:'resources/tests/encoding'
+
+    "Created: / 15-06-2005 / 14:26:36 / janfrog"
+    "Modified: / 22-06-2005 / 09:22:56 / masca"
+! !
+
+!EncodingTests methodsFor:'accessing'!
+
+letters
+
+    ^'+ěščřžýáíéúů+ĚŠČŘŽÝÁÍÉÚŮ'
+        utf8Decoded
+
+    "Created: / 15-06-2005 / 14:44:15 / janfrog"
+!
+
+sentence
+
+    ^'Příliš žluťoučký kůň úpěl ďábelské ódy'
+        utf8Decoded
+
+    "Modified: / 15-06-2005 / 14:43:28 / janfrog"
+! !
+
+!EncodingTests methodsFor:'initialize / release'!
+
+setUp
+    "common setup - invoked before testing."
+
+    super setUp
+
+    "Created: / 15-06-2005 / 13:48:02 / janfrog"
+!
+
+tearDown
+    "common cleanup - invoked after testing."
+
+    super tearDown
+
+    "Created: / 15-06-2005 / 13:48:02 / janfrog"
+! !
+
+!EncodingTests methodsFor:'tests'!
+
+test_read_iso8859_2
+
+    | doc xmlSentence xmlLetters|
+    doc := XMLv2::Parser new
+            processDocumentInFilename:
+                (self class defaultTestDirectory 
+                    construct:'enc-iso8859-2.xml').
+    xmlSentence := (doc root anyElementNamed:'sentence') characterData.
+    xmlLetters := (doc root anyElementNamed:'letters') characterData.
+
+    self assert:self sentence = xmlSentence.
+    self assert:self letters = xmlLetters.
+
+    "Created: / 15-06-2005 / 14:56:14 / janfrog"
+!
+
+test_read_utf8
+
+    | doc xmlSentence xmlLetters|
+    doc := XMLv2::Parser new
+            processDocumentInFilename:
+                (self class defaultTestDirectory 
+                    construct:'enc-utf8.xml').
+    xmlSentence := (doc root anyElementNamed:'sentence') characterData.
+    xmlLetters := (doc root anyElementNamed:'letters') characterData.
+
+    self assert:self sentence = xmlSentence.
+    self assert:self letters = xmlLetters.
+
+    "
+        self sentence 
+        xmlSentence
+    "
+
+    "Created: / 15-06-2005 / 14:55:41 / janfrog"
+!
+
+test_read_utf8_without_encoding_decl
+
+    | doc xmlSentence xmlLetters|
+    doc := XMLv2::Parser new
+            processDocumentInFilename:
+                (self class defaultTestDirectory 
+                    construct:'enc-utf8-without-encoding-decl.xml').
+    xmlSentence := (doc root anyElementNamed:'sentence') characterData.
+    xmlLetters := (doc root anyElementNamed:'letters') characterData.
+
+    self assert:self sentence = xmlSentence.
+    self assert:self letters = xmlLetters.
+
+    "
+        self sentence 
+        xmlSentence
+    "
+
+    "Created: / 16-06-2005 / 09:19:28 / janfrog"
+!
+
+test_write_iso8859_2
+
+    | doc fileBuffer docBuffer |
+    doc := XML::Document new.
+    doc addNode:(XML::Element tag:'enc').
+    doc root addNode:
+        ((XML::Element tag:'sentence')
+            addNode:(XML::Text text:self sentence)).
+    doc root addNode:
+        ((XML::Element tag:'letters')
+            addNode:(XML::Text text:self letters)).
+
+
+    fileBuffer := (self class defaultTestDirectory 
+                        construct:'enc-iso8859-2.xml') readStream binary contents.
+
+    docBuffer := (ByteArray new:189) writeStream.
+    OldXMLWriter new
+        stream:docBuffer;
+        formatOutput:false;
+        encoding:#'iso-8859-2';
+        write:doc.
+    docBuffer := docBuffer contents.
+
+    self assert:docBuffer = fileBuffer. 
+
+
+
+    "doc := XMLv2::Parser new
+            processDocumentInFilename:
+                (self class defaultTestDirectory 
+                    construct:'enc-utf8.xml').
+    xmlSentence := (doc root anyElementNamed:'sentence') characterData.
+    xmlLetters := (doc root anyElementNamed:'letters') characterData.
+
+    self assert:self sentence = xmlSentence.
+    self assert:self letters = xmlLetters.
+    "
+
+    "
+        self sentence 
+        xmlSentence
+    "
+
+    "Created: / 15-06-2005 / 19:29:44 / janfrog"
+    "Modified: / 18-10-2005 / 11:31:57 / janfrog"
+!
+
+test_write_utf8
+
+    | doc fileBuffer docBuffer |
+    doc := XML::Document new.
+    doc addNode:(XML::Element tag:'enc').
+    doc root addNode:
+        ((XML::Element tag:'sentence')
+            addNode:(XML::Text text:self sentence)).
+    doc root addNode:
+        ((XML::Element tag:'letters')
+            addNode:(XML::Text text:self letters)).
+
+
+    fileBuffer := (self class defaultTestDirectory 
+                        construct:'enc-utf8.xml') readStream binary contents.
+
+    docBuffer := (ByteArray new:189) writeStream.
+    OldXMLWriter write:doc on:docBuffer format:false.
+    docBuffer := docBuffer contents.
+    
+    self assert:docBuffer = fileBuffer.        
+
+
+    "doc := XMLv2::Parser new
+            processDocumentInFilename:
+                (self class defaultTestDirectory 
+                    construct:'enc-utf8.xml').
+    xmlSentence := (doc root anyElementNamed:'sentence') characterData.
+    xmlLetters := (doc root anyElementNamed:'letters') characterData.
+
+    self assert:self sentence = xmlSentence.
+    self assert:self letters = xmlLetters.
+    "
+
+    "
+        self sentence 
+        xmlSentence
+    "
+
+    "Created: / 15-06-2005 / 19:09:33 / janfrog"
+    "Modified: / 18-10-2005 / 11:31:53 / janfrog"
+! !
+
+!EncodingTests class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /opt/data/cvs/stx/goodies/xmlsuite/XMLv2__EncodingTests.st,v 1.1.1.1 2005-11-01 22:05:44 vranyj1 Exp $'
+! !