mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-01 17:43:38 +02:00
35 lines
906 B
ObjectPascal
35 lines
906 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 copyright.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
|
|
|
**********************************************************************}
|
|
|
|
unit teststr;
|
|
|
|
interface
|
|
|
|
const
|
|
error = 'Error';
|
|
failed = 'Failed';
|
|
success = 'OK';
|
|
skipped = 'Ignored';
|
|
known_problem = ' known problem: ';
|
|
line_separation = '>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>';
|
|
|
|
ResLogfile : string[32] = 'log';
|
|
|
|
implementation
|
|
|
|
end.
|