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:         hasErrors <- true
          printfn "%A" e
  
  [<Fact>]
  let CodecsShouldLoadProperly() = 
      let codecs = Codec.AvailableCodecs()
      Assert.True(codecs.size() > 0)
  
  [<Fact>]
  let PostingsFormatShouldLoadProperly() = 
      let formats = PostingsFormat.AvailablePostingsFormats()
      Assert.True(formats.size() > 0)
  
  [<Fact>]
  let SimpleIndexingTest() = 
  
negative.code:     for i = 0 to hits.Length - 1 do
          let hitDoc = isearcher.Doc(hits.[i].Doc)
          Assert.Equal<string>("This is the text to be indexed.", hitDoc.Get("fieldname"))
      ireader.Close()
      directory.Close()
  
  [<Fact>]
  let BooleanQueryCreationTests() = 
      let query = new BooleanQuery(true)
      query.Add(new BooleanClause(new TermQuery(new Term("dummy")), BooleanClause.Occur.MUST))
  
  [<Fact>]
  let RangeQueryCreationTests() = 
  