anchor.diff:      member test._Brackets() =
           runTest RNGLR._Brackets.buildAst "_Brackets.txt" printAst
   
  -//[<EntryPoint>]
  -//let f x =
  -//    if System.IO.Directory.Exists "dot" 
  -//    then 
  -//        System.IO.Directory.GetFiles "dot" |> Seq.iter System.IO.File.Delete
  -//    else System.IO.Directory.CreateDirectory "dot" |> ignore
  -//    let t = new ``RNGLR parser tests with simple lexer`` ()
  -//    t._Brackets ()
  -//
  -//    0+[<EntryPoint>]
  +let f x =
  +    if System.IO.Directory.Exists "dot" 
  +    then 
  +        System.IO.Directory.GetFiles "dot" |> Seq.iter System.IO.File.Delete
  +    else System.IO.Directory.CreateDirectory "dot" |> ignore
  +    let t = new ``RNGLR parser tests with simple lexer`` ()
  +    t.``Calc test - simple for translator`` ()
  +
  +    0
positive.code: 
      [<Test>]
      member test.``Counter test - simple for translator``() =
          runTest RNGLR.ParseCounter.buildAst "counter.txt" (translateAndCheck RNGLR.ParseCounter.defaultAstToDot [5])
  
      [<Test>]
      member test.``Calc test - simple for translator``() =
          runTest RNGLR.ParseCalc.buildAst "calc.txt" (translateAndCheck RNGLR.ParseCalc.defaultAstToDot <| List.replicate 8 105)
  
      [<Test>]
      member test.``Translate with Attributes``() =
          runTest RNGLR.ParseAttrs.buildAst "attrs.txt" (translateAndCheck RNGLR.ParseAttrs.defaultAstToDot [48])
  
      [<Test>]
      member test.``Parse empty string``() =
          runTest RNGLR.ParseEpsilon.buildAst "Epsilon.txt" (translateAndCheck RNGLR.ParseEpsilon.defaultAstToDot [3])
  
      [<Test>]
      member test.``If Then Else``() =
          runTest RNGLR.ParseCond.buildAst "Cond.txt" (translateAndCheck RNGLR.ParseCond.defaultAstToDot [22])
  
      [<Test>]
      member test.``Resolvers``() =
          runTest RNGLR.ParseResolvers.buildAst "Resolvers.txt" (translateAndCheck RNGLR.ParseResolvers.defaultAstToDot [List.replicate 5 1])
  
      [<Test>]
      member test.``Calculation order``() =
  
negative.code: [<TestFixture>]
  type ``RNGLR parser tests with simple lexer`` () =
  
      let translateAndCheck toDot translateFunction (expected:List<_>) (ast:Tree<_>) file errors = 
          ast.PrintAst()
          toDot ast (file + ".dot")
          let res = translate translateFunction ast errors
          printfn "Result: %A" res
          Assert.AreEqual(expected, res)
  
  