1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
unit TestErrorHandler;
{$mode objfpc}{$H+}
interface
uses
FpDbgDwarf, FpDbgUtil, FpErrorMessages, TestHelperClasses, {$ifdef FORCE_LAZLOGGER_DUMMY} LazLoggerDummy {$else} LazLoggerBase {$endif}, LazUTF8,
DbgIntfBaseTypes, sysutils, fpcunit, testregistry;
type
{ TTestMemManager }
{ TTestErrorHandler }
TTestErrorHandler = class(TTestCase)
published
procedure TestErrorHandler;
end;
implementation
{ TTestErrorHandler }
procedure TTestErrorHandler.TestErrorHandler;
var
e: TFpError;
e2: TFpError;
begin
e := CreateError(fpErrSymbolNotFound_p, ['a', '']);
e2 := CreateError(fpErrLocationParserMemRead, e, []);
ErrorHandler.ErrorAsString(e2);
end;
initialization
RegisterTest(TTestErrorHandler);
end.
|
