anchor.diff:      with e -> 
           hasErrors <- true
           printfn "------------------------------------------------"
  -        printfn "Test name: %s" (meth.GetType().Name)
  +        printfn "Test case failed: %s" (meth.GetType().FullName)
           printfn "%A" e
           printfn "------------------------------------------------"
  -
  +        
   let ShouldHaveCodec50() = Assert.True(Codec.AvailableCodecs().contains("Lucene50"), sprintf "Lucene50Codec not found. Available Codecs: %A" (Codec.AvailableCodecs()))
   let ShouldHaveCodec410() = Assert.True(Codec.AvailableCodecs().contains("Lucene410"), sprintf "Lucene410Codec not found. Available Codecs: %A" (Codec.AvailableCodecs()))
   
  
positive.code: //    doc.Add(new StoredField(strategy.GetFieldName(), pt.getX().ToString() + " " + pt.getY().ToString()))
  
  let executeTests() = 
      [| CodecsShouldLoadProperly; PostingsFormatShouldLoadProperly; IndexingTests; BooleanQueryCreationTests; RangeQueryCreationTests; |] 
      |> Array.iter exceptionWrapper
      if hasErrors then
          printfn "Some Tests failed"
  
negative.code: open Xunit
  open System
  open System.IO
  open System.Collections.Generic
  
  let mutable hasErrors = false
  let RootDirectory = __SOURCE_DIRECTORY__
  