Index: svn/Repository/CodeRepository.cls.xml
===================================================================
diff -u -r1638 -r1684
--- svn/Repository/CodeRepository.cls.xml	(.../CodeRepository.cls.xml)	(revision 1638)
+++ svn/Repository/CodeRepository.cls.xml	(.../CodeRepository.cls.xml)	(revision 1684)
@@ -95,12 +95,14 @@
 		if ##class(TECH.SourceCodeUtils).Exists(InternalName) { 
 			do $system.OBJ.Delete(InternalName)
 			do ##class(%ExtentMgr.Util).DeleteExtent(##class(TECH.SourceCodeUtils).StripExtension(InternalName))   
+			do ##class(svn.UnitTestAnalyser).%New(##class(TECH.SourceCodeUtils).StripExtension(InternalName)).RemoveUnitTestInfo()
 		}
 	} 
 	else {
 		do ..DeletePackage(InternalName) 
 		do $system.OBJ.DeletePackage(InternalName)
 	}
+	
 	quit
 ]]></Implementation>
 </Method>
@@ -109,8 +111,7 @@
 <FormalSpec>InternalName:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	set Result = ##super(InternalName)
-	
+	#dim Result As %Boolean = ##super(InternalName)
 	if Result set Result = InternalName'["/"
 	quit Result
 ]]></Implementation>
@@ -120,14 +121,17 @@
 <FormalSpec>ExternalName:%String</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set InternalName = ..InternalName(ExternalName)
-	Set Extension=..GeefExtentie(InternalName)
+	#dim InternalName As %String = ..InternalName(ExternalName)
+	#dim Extension As %String =..GeefExtentie(InternalName)
 	
 	if ".mac.inc.bas.mvb.mvi." [ Extension { 
-		set Status = ..ImportRoutine(ExternalName,InternalName) 
+		#dim Status As %Status = ..ImportRoutine(ExternalName,InternalName) 
 	} 
 	else { 
 		set Status = ..ImportNonRoutine(ExternalName) 
+		if ##class(TECH.SourceCodeUtils).Type(InternalName) = "class" {
+		 do ##class(svn.UnitTestAnalyser).%New(##class(TECH.SourceCodeUtils).StripExtension(InternalName)).StoreUnitTestInfo()	
+		}
 	}
 	
 	quit Status