anchor.diff:  let exceptionWrapper (meth : unit -> unit) = 
       try 
           meth()
  +        ()
       with e -> 
           hasErrors <- true
  +        printfn "------------------------------------------------"
  +        printfn "Test name: %s" (meth.GetType().FullName)
           printfn "%A" e
  +        printfn "------------------------------------------------"
   
   let ShouldHaveFlexCodec50() = Assert.True(Codec.AvailableCodecs().contains("FlexCodec50"), "FlexCodec50 not found.")
   let ShouldHaveFlexCodec410() = Assert.True(Codec.AvailableCodecs().contains("FlexCodec410"), "FlexCodec410 not found.")
  
positive.code:     let strategy = new RecursivePrefixTreeStrategy(grid, "myGeoField")
      let doc = new Document()
      doc.Add(new IntField("id", 1, Field.Store.YES))
      let pt = ctx.MakePoint (10.0, 10.0)
      doc.Add(new StoredField(strategy.GetFieldName(), pt.getX().ToString() + " " + pt.getY().ToString()))
  
  
  [<EntryPoint>]
  let main argv = 
      [| CodecsShouldLoadProperly; SimpleIndexingTest; BooleanQueryCreationTests; SimplePhysicalIndexingTest; 
         SimpleFlexPhysicalIndexingTest; RangeQueryCreationTests; SimpleSpatialTests |] 
      |> Array.iter (fun meth -> exceptionWrapper meth)
      printfn "Done"
      if hasErrors then 1
  
negative.code: let IndexingTest(directory : FlexLucene.Store.Directory) = 
      let analyzer = new StandardAnalyzer()
      let config = new IndexWriterConfig(analyzer)
      let iwriter = new IndexWriter(directory, config)
      let doc = new Document()
      let text = "This is the text to be indexed."
  