' Gambas test file

Public Sub ColorHTMLPage()
  

 Dim hText As TextHighlighter
 hText = TextHighlighter["gambas"]
 Dim program As String = File.Load("UnitTest/TestProgram")
 Dim hProgram As String = hText.ToHTML(program)
'file.save("~/HTMLTestResults", hProgram)                                                       'enable this and import result,  when changes to toHTML
Assert.Equals(Trim(hProgram), Trim(File.Load("UnitTest/HTMLTestResults")))

End ' Gambas test file

