TTestCase1.TestHookUp: Write your own test EAssertionFailedError Write your own test FPCUnit Console test runner 1 0 1 0 00:00:00.000 2014-09-16 23:00:58