mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-05 11:38:04 +02:00
30 lines
710 B
ObjectPascal
30 lines
710 B
ObjectPascal
{
|
|
This file is part of the Free Pascal test suite.
|
|
Copyright (c) 2002 by the Free Pascal development team.
|
|
|
|
This unit stores the strings used by
|
|
dotest program, so that they can be also used by
|
|
figest program.
|
|
|
|
See the file COPYING.FPC, included in this distribution,
|
|
for details about the license.
|
|
**********************************************************************}
|
|
|
|
unit teststr;
|
|
|
|
interface
|
|
|
|
const
|
|
error = 'Error';
|
|
failed = 'Failed';
|
|
success = 'OK';
|
|
skipped = 'Ignored';
|
|
known_problem = ' known problem: ';
|
|
line_separation = '>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>';
|
|
|
|
ResLogfile : string[32] = 'log';
|
|
|
|
implementation
|
|
|
|
end.
|