Index: vhUnitTest/TECH/TestPageCoding.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/TestPageCoding.cls.xml	(revision 0)
+++ vhUnitTest/TECH/TestPageCoding.cls.xml	(revision 3426)
@@ -0,0 +1,123 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.TestPageCoding">
+<Description>
+Do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","TECH.TestPageCoding")</Description>
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="GenereerAlleChars">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+		Set AlleChars = ""
+		For CharIndex = 1 : 1 : 255
+		{
+			Set AlleChars = AlleChars_$C(CharIndex)	
+		}
+		Quit AlleChars
+]]></Implementation>
+</Method>
+
+<Method name="GeefTempDir">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[		Quit ##class(TECH.Config.ConfigMgr).Instance().GetString("vhDev.TempFilePath")
+]]></Implementation>
+</Method>
+
+<Method name="GeefFile">
+<FormalSpec>Titel:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.File.FileWriter</ReturnType>
+<Implementation><![CDATA[
+		Set BestandsNaam = ##class(TECH.Files).AppendFile(..GeefTempDir(),Titel_".txt")	
+		Quit ##class(TECH.File.FileWriter).%New(BestandsNaam)
+]]></Implementation>
+</Method>
+
+<Method name="GeefUnitTestFile">
+<FormalSpec>Titel:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+		Set BestandsNaam = ##class(TECH.Files).AppendFile(##class(TECH.Config.ConfigMgr).Instance().GetString("UnitTestRoot"),"\TECH.TestPageCoding\"_Titel_".txt")
+		Quit BestandsNaam
+]]></Implementation>
+</Method>
+
+<Method name="VergelijkBestanden">
+<FormalSpec>Titel:%String,Bestand1:%String,Bestand2:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ZijnBestandenGelijk = ##class(Tools.Comparator.DiffDogComparator).%New().ZijnTekstBestandenGelijk(Bestand1,Bestand2)
+	Do $$$AssertTrue(ZijnBestandenGelijk,Titel_" is ok.")
+]]></Implementation>
+</Method>
+
+<Method name="MaakGeconverteerdBestand">
+<FormalSpec>Titel:%String,Mode:%String,TranslationTable:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.File.FileWriter</ReturnType>
+<Implementation><![CDATA[
+	Set Tekst = ..GenereerAlleChars()
+	Set File = ..GeefFile(Titel)
+	Do File.Write($zcvt(Tekst,Mode,TranslationTable))		
+	Do File.Close()
+	Quit File.GeefBestandsNaam()
+]]></Implementation>
+</Method>
+
+<Method name="CodingTest">
+<FormalSpec>Titel:%String,Mode:%String,TranslationTable:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set GeconverteerBestand = ..MaakGeconverteerdBestand(Titel,Mode, TranslationTable)
+	Do ..VergelijkBestanden(Titel, GeconverteerBestand,..GeefUnitTestFile(Titel))
+]]></Implementation>
+</Method>
+
+<Method name="TestSMSCoding">
+<Implementation><![CDATA[
+	Do ..CodingTest("SMSCodingOutput","O","SMS")
+	Do ..CodingTest("SMSCodingInput","I","SMS")
+]]></Implementation>
+</Method>
+
+<Method name="TestHTMLCoding">
+<Implementation><![CDATA[
+	Do ..CodingTest("HTMLCodingOutput","O","HTML")
+	Do ..CodingTest("HTMLCodingInput","I","HTML")
+]]></Implementation>
+</Method>
+
+<Method name="TestURLCoding">
+<Implementation><![CDATA[
+	Do ..CodingTest("URLCodingOutput","O","URL")
+	Do ..CodingTest("URLCodingInput","I","URL")
+]]></Implementation>
+</Method>
+
+<Method name="TestUTF8Coding">
+<Implementation><![CDATA[
+	Do ..CodingTest("UTF8CodingOutput","O","UTF8")
+	Do ..CodingTest("UTF8CodingInput","I","UTF8")
+]]></Implementation>
+</Method>
+
+<Method name="TestC850Coding">
+<Implementation><![CDATA[
+	Do ..CodingTest("C850CodingOutput","O","C850")
+	Do ..CodingTest("C850CodingInput","I","C850")
+]]></Implementation>
+</Method>
+
+<Method name="TestJSCoding">
+<Implementation><![CDATA[
+	Do ..CodingTest("JSCodingOutput","O","JS")
+	Do ..CodingTest("JSCodingInput","I","JS")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>