FishEye: Tag 3481 refers to a dead (removed) revision in file `vhUnitTest/TECH/TestPageCoding.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: vhUpgrade/Test/TestPageCoding.cls.xml
===================================================================
diff -u
--- vhUpgrade/Test/TestPageCoding.cls.xml	(revision 0)
+++ vhUpgrade/Test/TestPageCoding.cls.xml	(revision 3481)
@@ -0,0 +1,136 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUpgrade.Test.TestPageCoding">
+<Description>
+Do ##class(vhUpgrade.Test.TestPageCoding).%New().Execute()</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="Execute">
+<Implementation><![CDATA[
+		Do ..TestSMSCoding()
+		Do ..TestHTMLCoding()
+		Do ..TestURLCoding()
+		Do ..TestUTF8Coding()
+		Do ..TestC850Coding()
+		Do ..TestJSCoding()
+]]></Implementation>
+</Method>
+
+<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)
+	If ('ZijnBestandenGelijk) {
+		Write Titel_" is niet overeenstemmend tussen '"_Bestand1_"' en '"_Bestand2_"'",!
+	}
+]]></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>