anchor.diff:              d.Post <- i
               d.Parent <- parent
               data.InsertOnSubmit(d)
  -            data.Context.SubmitChanges()
  +
               let t = new Text()
               t.ID <- id
               t.Value <- xtext.Value
               text.InsertOnSubmit(t)
  +
  +            data.Context.SubmitChanges()
               i + 1
           | _ -> i
  -
  -    and traverseChildren entry parent i (xmls) = Seq.fold (traverseXml entry parent) i xmls
  -
  -    and traverseAttribute entry parent att =
  -        let a = new Attribute()
  -        a.Element <- parent
  -        a.Name <- att.Name.LocalName
  -        a.Value <- att.Value
  -        attributes.InsertOnSubmit(a)
  -
  +        
  +    /// <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
  
positive.code:                        if (root.Parent = -1 && root.Entry = rootId) then yield row'.ID
             } @>
  
      
      let xp0 = child ./. child //                                                        /*/*
      let xp1 = descendant ./. parent //                                                  //*/parent::*
      let xp2 = descendant ./. (Filter(followingsibling .%. "dirn")) //                   //*[following-sibling::d]
      let xp3 = descendant .%. "year" ./. Filter(ancestor ./. preceding .%. "dir") //     //f[ancestor::*/preceding::b]
  
      [<TestFixture>]
      type TestClass() =
  
negative.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>]
  