mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-24 13:09:16 +02:00
23 lines
282 B
ObjectPascal
23 lines
282 B
ObjectPascal
program tassert7;
|
|
{$C+}
|
|
{$mode objfpc}
|
|
|
|
uses sysutils;
|
|
|
|
procedure Success;
|
|
Begin
|
|
WriteLn('Success!');
|
|
halt;
|
|
end;
|
|
|
|
Begin
|
|
Write('Try..catch of assertion...');
|
|
try
|
|
assert(false);
|
|
except
|
|
on EAssertionFailed do Success;
|
|
end;
|
|
WriteLn('Failed!');
|
|
Halt(1);
|
|
end.
|