anchor.diff:              d.Post <- j
               d.Parent <- parent
               data.InsertOnSubmit(d)
  +
               data.Context.SubmitChanges()
               j + 1
           | :? XText as xtext ->
               let id = new_id()
  +
               let d = new Data()
               d.Name <- "#text"
               d.ID <- id
  
positive.code: /// <summary>
  /// Contains example queries and operations on the Xml database. 
  /// The queries here are further wrapped in quotations to allow for their evaluation in different contexts (see Utils.fs).  
  /// <para>These tests require the schema from sql/xml.sql in a database referred to in app.config </para>
  /// </summary>
  module Xml =
      [<Literal>]
  
negative.code:             d.Post <- i
              d.Parent <- parent
              data.InsertOnSubmit(d)
  
              let t = new Text()
              t.ID <- id
              t.Value <- xtext.Value
              text.InsertOnSubmit(t)
  
              data.Context.SubmitChanges()
              i + 1
          | _ -> i
          
      /// <summary>
      /// Parses the given file as an Xml document, and then inserts its contents in the database. 
      /// </summary>
      /// <param name="filename">The path to the Xml file to be loaded. </param>
      let insertXml entry xml =
          let root_id = new_id()
          let j = traverseXml entry root_id 1 xml
  