anchor.diff:              XElement(NsDgml + "Setter", XAttribute(NsNone + "Property", "Icon"), XAttribute(NsNone + "Value", "CodeSchema_Method"))))
   
   
  -let GraphContent (antho : Anthology) (projects : Project set) =
  +let GraphContent (antho : Anthology) (allProjects : Project set) =
  +    let projects = allProjects |> Set.filter (fun x -> (x.RelativeProjectFile.toString.Contains(".Test.") || x.RelativeProjectFile.toString.Contains(".Tests.")) |> not)
       let repos = projects |> Set.map (fun x -> x.Repository)
       let xNodes = XElement(NsDgml + "Nodes", GraphNodes antho projects)
       let xLinks = XElement(NsDgml+"Links", GraphLinks antho projects)
  
positive.code:     let cat = if isTest then "TestProject"
                else "Project"
  
      XElement(NsDgml + "Node",
          XAttribute(NsNone + "Id", project.ProjectGuid.toString),
          XAttribute(NsNone + "Label", project.Output.toString),
          XAttribute(NsNone + "Category", cat),
          XAttribute(NsNone + "Fx", project.FxTarget.toString),
          XAttribute(NsNone + "Guid", project.ProjectGuid.toString),
          XAttribute(NsNone + "IsTest", isTest))
  
  let GenerateNode (source : string) (label : string) (category : string) =
      XElement(NsDgml + "Node",
  
negative.code: let GraphProperties () =
      let allProperties = [ ("Fx", "Target Framework Version", "System.String")
                            ("Guid", "Project Guid", "System.Guid") 
                            ("IsTest", "Test Project", "System.Boolean")
                            ("Output", "Project Output", "System.String") 
                            ("OutputType", "Project Output Type", "System.String") ]
  
      let generateProperty (prop) =
          let (id, label, dataType) = prop
  