unit Asserts;

// D. Rosseel
// Original: 31-05-2009
// Latest update: 21-06-2011


// interface

// -------------- Public procedures --------------------

procedure Assert(Success: boolean; var Comment: string[50]);
// Generic Assert routine. Sends an Assert message when "Success" is false

procedure AssertStr(var S: string[4095]; Size: word; var Comment: string[50]);
// Specific for a string length Assert. Sends an Assert message when strlen(S) >= Size.

procedure Assert_Send_Message(var Message_: string[50]);
// simply sends the "message" to the assert output device


// -------------- External procedures, have to be defined in another unit (or main program) ---------

procedure SendAssertMessage(var S: string[50]); external;
// Sends a string to the assert message output device