anchor.diff:                  XAttribute(NsNone + "Group", "Expanded"))
   
           for project in projects do
  -            yield GenerateNode (project.ProjectGuid.toString) (project.Output.toString) "Project"
  +            if project.RelativeProjectFile.toString.Contains(".Test.") || project.RelativeProjectFile.toString.Contains(".Tests.") then
  +                yield GenerateNode (project.ProjectGuid.toString) (project.Output.toString) "TestProject"
  +            else yield GenerateNode (project.ProjectGuid.toString) (project.Output.toString) "Project"
   
           for project in importedProjects do
               yield GenerateNode (project.ProjectGuid.toString) (project.Output.toString) "ProjectImport"
  
positive.code: 
  let GraphCategories () =
      let allCategories = [ ("Project", "Green")
                            ("ProjectImport", "Navy")
                            ("Package", "Orange")
                            ("Assembly", "Red")       
  
negative.code:                 yield GenerateLink (project.ProjectGuid.toString) (assembly.toString) "AssemblyRef"
  
          for project in projects do
              yield GenerateLink "Projects" (project.ProjectGuid.toString) "Contains"
  
          for project in importedProjects do
              yield GenerateLink "Projects" (project.ProjectGuid.toString) "Contains"
  
          for project in projects do
              for package in project.PackageReferences do
  