anchor.diff:  open NUnit.Framework
   
   module Lexer = Yard.Frontends.YardFrontend.GrammarLexer
  -
   
   let lexerTest str lexemsListCorrect =
       let buf = LexBuffer<_>.FromString str
  
positive.code: +s:PLUS;"
              [INCLUDE; STRING ("test_included.yrd", (11, 28)); PLUS; LIDENT ("s", (32, 33))
              ; COLON; UIDENT ("PLUS", (34, 38)); SEMICOLON; EOF]
  
  [<TestFixture>]
  type ``YardFrontend Parser tests`` () =    
  
negative.code: 
      Assert.AreEqual(lexemsList, lexemsListCorrect)
  
  let preprocessorTest path (expectedIL : t<Source.t,Source.t>) =
      let currentIL = {Main.ParseFile path with info = {fileName =""}}
  
      printfn "ilDef = %A" currentIL
      printfn "ilDefCorrect = %A" expectedIL
  
      Assert.AreEqual(currentIL, expectedIL)
  
  let parserTest str (ilDefCorrect: t<Source.t,Source.t>) =
      let buf = LexBuffer<_>.FromString str
      Lexer.currentFileContent := str
      let ilDef = {GrammarParser.file Lexer.main buf with info = {fileName =""}}
  
      printfn "ilDef = %A" ilDef
      printfn "ilDefCorrect = %A" ilDefCorrect
  