Test.HUnit.Text

data PutText st

putTextToHandle

putTextToShowS

runTestText

showPath

showCounts

runTestTT