anchor.diff:  
   [<EntryPoint>]
   let main argv = 
  +    let loader = ikvm.runtime.AssemblyClassLoader(typeof<FlexLucene.Codecs.FlexSearch.FlexCodec410>.Assembly)
  +    PostingsFormat.ReloadPostingsFormats(loader)
  +    Codec.ReloadCodecs(loader)
  +    
       [| CodecsShouldLoadProperly; PostingsFormatShouldLoadProperly; SimpleIndexingTest; BooleanQueryCreationTests; 
          RangeQueryCreationTests |] |> Array.iter (fun meth -> exceptionWrapper meth)
       printfn "Done"
  
positive.code:     let iwriter = new IndexWriter(directory, config)
      let doc = new Document()
      let text = "This is the text to be indexed."
      doc.add(new Field("fieldname", text, TextField.TYPE_STORED))
      iwriter.AddDocument(doc)
      iwriter.close()
      // Now search the index:
      let ireader = DirectoryReader.Open(directory)
      let isearcher = new IndexSearcher(ireader)
  
negative.code: ﻿open FlexLucene.Analysis.Standard
  open FlexLucene.Codecs
  open FlexLucene.Document
  open FlexLucene.Index
  open FlexLucene.Queryparser.Classic
  open FlexLucene.Search
  open FlexLucene.Store
  open Xunit
  
  let mutable hasErrors = false
  
  