anchor.diff:  
   let GraphCategories () =
       let allCategories = [ ("Project", "Green")
  +                          ("TestProject", "Purple")
                             ("ProjectImport", "Navy")
                             ("Package", "Orange")
                             ("Assembly", "Red")       
  
positive.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
  
negative.code:                 XAttribute(NsNone + "Group", "Expanded"))
  
          for project in projects do
              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"
  