anchor.diff:              sprintf "%s.%s" x.Value ctx.Name
           let nameAttr = XAttribute(xname "name", name)
           acc.Add(nameAttr)
  -        let suite = ctx.Children |> Seq.fold inner acc
  -        suite
  +        ctx.Children |> Seq.fold inner acc
         | TestResult tr ->
           let testCase = XElement(xname "testcase", XAttribute(xname "name", tr.FullName))
           match tr with
  
positive.code:               XAttribute(xname "time", duration.ToString()))
          acc.Add(testCase)
          acc
        let suite = XElement(xname "testsuite")
        inner suite result
  
      let addSummary (watch: Stopwatch) results (suites: XElement) =
        let summary = results |> Seq.fold Summary.collectSummary { Summary.empty with Duration = watch.Elapsed }
  
negative.code:         member __.Format(results: ITestResult seq) =
            let xdocument = XDocument(XElement(xname "testsuites", results |> Seq.map toXDocument) |> addSummary watch results)
            Writable.xdocument(xdocument)
        }
  