Index: svn/StudioHook.cls.xml
===================================================================
diff -u -r1607 -r1632
--- svn/StudioHook.cls.xml	(.../StudioHook.cls.xml)	(revision 1607)
+++ svn/StudioHook.cls.xml	(.../StudioHook.cls.xml)	(revision 1632)
@@ -86,6 +86,10 @@
 <MenuItem Name="Source Control Code Update" />
 <MenuItem Separator="1" Name="----------------------------------"/> 
 </Menu>
+<Menu Name = "Unit Testing" Type="0">
+<MenuItem Name="UnitTest uitvoeren"/>
+<MenuItem Name="UnitTest openen"/>
+</Menu>
 </MenuBase>
 ]]></Data>
 </XData>
@@ -208,7 +212,14 @@
 				set Target = "Reload file "_InternalName_" from "_Repo.ExternalName(InternalName)_"?"
 			}
 		}
+	} elseif tMenu="unittest" {
+		if tMenu(2)="uitvoeren" {
+			do ..RunUnitTest(.InternalName)
+		} elseif tMenu(2)="openen" {
+			do ..OpenUnitTest(.InternalName,.Action,.Target)	
+		} 
 	}
+	
 	elseif tMenu="tortoisesvn" {
 			if (tMenu(2) [ "log") do ..TortoiseSVN("log") 
 			if (tMenu(2) [ "status") do ..TortoiseSVN("repostatus")
@@ -750,6 +761,53 @@
 ]]></Implementation>
 </Method>
 
+<Method name="RunUnitTest">
+<FormalSpec>InternalName:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim UnitTestName = ..BepaalUnitTestName(InternalName)
+	if ##class(%Dictionary.ClassDefinition).%ExistsId(UnitTestName) {
+		set UnitTestName = $piece(UnitTestName,"vhUnitTest.",2,$length(UnitTestName,"vhUnitTest."))
+		write !,"UnitTest uitvoeren : ",UnitTestName
+		do ##class(vhUnitTest.Manager).RunTest("/display=all",UnitTestName)
+	} else {
+		write !,"Geen unittest ("_UnitTestName_") voor "_InternalName	
+	}
+]]></Implementation>
+</Method>
+
+<Method name="OpenUnitTest">
+<FormalSpec><![CDATA[&InternalName:%String,&Action:%String,&Target:%String]]></FormalSpec>
+<Implementation><![CDATA[
+	#dim UnitTestName = ..BepaalUnitTestName(InternalName)
+	if ##class(%Dictionary.ClassDefinition).%ExistsId(UnitTestName) {
+		set Action = 5
+		set Target = UnitTestName_".cls"
+		If InternalName = UnitTestName set Target=""
+	} else {
+		write !,"Geen unittest ("_UnitTestName_") voor "_InternalName	
+	}
+]]></Implementation>
+</Method>
+
+<Method name="BepaalUnitTestName">
+<FormalSpec>InternalName:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim UnitTestName As %String = $piece(InternalName,".",1,$length(InternalName,".")-2)
+	if '##class(TECH.StringUtils).StartsWith(UnitTestName,"vhUnitTest.") {
+		set UnitTestName = "vhUnitTest."_UnitTestName
+	}
+	#dim ClassName As %String = $piece(InternalName,".",$length(InternalName,".")-1)
+	if '##class(TECH.StringUtils).StartsWith(ClassName,"Test") {
+		set ClassName = "Test"_ClassName
+	}
+	set UnitTestName = UnitTestName_"."_ClassName
+	
+	quit UnitTestName
+]]></Implementation>
+</Method>
+
 <Method name="IsStudioHookActive">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[