anchor.diff:      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)
  +    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 |] 
  +    [| CodecsShouldLoadProperly; IndexingTests; BooleanQueryCreationTests; RangeQueryCreationTests; SimpleSpatialTests |] 
       |> Array.iter (fun meth -> exceptionWrapper meth)
       printfn "Done"
       if hasErrors then 1
  
positive.code: let exceptionWrapper (meth : unit -> unit) = 
      try 
          meth()
      with e -> 
          hasErrors <- true
          printfn "%A" e
  
  let ShouldHaveFlexCodec50() = Assert.True(Codec.AvailableCodecs().contains("FlexCodec50"), "FlexCodec50 not found.")
  let ShouldHaveFlexCodec410() = Assert.True(Codec.AvailableCodecs().contains("FlexCodec410"), "FlexCodec410 not found.")
  
negative.code:     ireader.Close()
      directory.close()
  
  let GetRandomPath() = 
      let dir = Path.Combine(AppDomain.CurrentDomain.SetupInformation.ApplicationBase, Guid.NewGuid().ToString())
      (new java.io.File(dir)).toPath()
  
  [<Fact>]
  let CodecsShouldLoadProperly() = 
      ShouldHaveFlexCodec410 |> exceptionWrapper
      ShouldHaveFlexCodec50 |> exceptionWrapper
  
  [<Fact>]
  let PostingsFormatShouldLoadProperly() = ShouldHaveFlexPerFieldPostingsFormat()
  
  [<Fact>]
  let IndexingTests() = 
      (fun _ -> IndexingTest(new RAMDirectory())) |> exceptionWrapper
      (fun _ -> IndexingTest(new SimpleFSDirectory(GetRandomPath(), NativeFSLockFactory.INSTANCE))) |> exceptionWrapper
      (fun _ -> IndexingTest(new MMapDirectory(GetRandomPath(), NativeFSLockFactory.GetDefault()))) |> exceptionWrapper
      (fun _ -> IndexingTest(FSDirectory.Open(GetRandomPath()))) |> exceptionWrapper
  
  [<Fact>]
  let BooleanQueryCreationTests() = 
  