anchor.diff:  open FsUnit
   open ElasticOps.Parsing.Structures
   open ElasticOps.Parsing.Processing  
  -
  +open System.IO
   
   let countSubstring (where :string) (what : string) =
       match what with
  
positive.code: [<Test>]
  let ``can parse json terminated in a random place`` () = 
      let rnd = System.Random(System.DateTime.Now.Millisecond)
      let json = System.IO.File.ReadAllText "randomComplexTestsJson.json"
      let lines = json.Split('\n') 
      let lineCount = lines |> Seq.length
  
      for i in [1..1000] do
          let lineNum = rnd.Next(2,lineCount)
          let line = Seq.nth lineNum lines
          let lineLen = String.length line
          let columnNum = rnd.Next(0,lineLen)
          let fullLines = lines |> Seq.take (lineNum-1)
          let json = (String.concat "\n" fullLines) + line.Substring(0,columnNum)
  
          try 
              json |> parse  |> ignore
          with 
          | e -> Assert.Fail ("Parser error for JSON: " + json)
  
negative.code: 
  [<Test>]
  let ``parse huge json in less then half seconds`` () =
      let json = File.ReadAllText "hugeJson.json"
  
      let stopWatch = System.Diagnostics.Stopwatch.StartNew()
      json |> parse |> ignore
  