FishEye: Tag 387 refers to a dead (removed) revision in file `vhUnitTest/APPS/TBXWeb/impl/VHEPNOrderHandler.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: vhUnitTest/APPS/TBXWeb/impl/TestVHEPNOrderHandler.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/TBXWeb/impl/TestVHEPNOrderHandler.cls.xml	(revision 0)
+++ vhUnitTest/APPS/TBXWeb/impl/TestVHEPNOrderHandler.cls.xml	(revision 387)
@@ -0,0 +1,54 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.APPS.TBXWeb.impl.TestVHEPNOrderHandler">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="TestSFSOrder">
+<Description>
+Oproepen via 
+	do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.TBXWeb.impl.TestVHEPNOrderHandler") 
+</Description>
+<Implementation><![CDATA[
+	set WSOrdID = ..CreateWSOrd("OFF")
+	set impl = ##class(APPS.TBXWeb.impl.VHEPNOrderHandler).%New(WSOrdID,"VHEPN","SFS")
+	do $$$AssertFalse($$$OK=impl.OrderStartTypeValid())
+	
+	do ..CleanUpWSOrd(WSOrdID)
+
+	set WSOrdID = ..CreateWSOrd("BBON")
+	set impl = ##class(APPS.TBXWeb.impl.VHEPNOrderHandler).%New(WSOrdID,"VHEPN","SFS")
+	do $$$AssertTrue($$$OK=impl.OrderStartTypeValid())
+	
+	do ..CleanUpWSOrd(WSOrdID)
+	
+	quit
+]]></Implementation>
+</Method>
+
+<Method name="CleanUpWSOrd">
+<FormalSpec>WSOrdID:%String</FormalSpec>
+<Implementation><![CDATA[
+	do ##class(WS.TBX.Order).%DeleteId(WSOrdID)
+	do $$$AssertFalse(##class(WS.TBX.Order).%ExistsId(WSOrdID))
+]]></Implementation>
+</Method>
+
+<Method name="CreateWSOrd">
+<FormalSpec>BonType:%String="OFF"</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	set WSOrd=##class(WS.TBX.Order).%New()
+	set WSOrd.BonType=BonType
+	set WSOrd.WebDomain = "tbx.sfsunimarket.biz"
+	set WSOrd.KLNummer = 55946
+	
+	do WSOrd.%Save() 
+	
+	quit WSOrd.%Id()
+]]></Implementation>
+</Method>
+</Class>
+</Export>