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 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79
|
{
This file is part of the Free Pascal test suite.
Copyright (c) 2007 by the Free Pascal development team.
This unit contains the different possible outcome
of a single test.
See the file COPYING.FPC, included in this distribution,
for details about the license.
**********************************************************************}
{$mode objfpc}
{$h+}
unit tresults;
interface
uses
teststr;
Type
TTestStatus = (
stOK,
stFailed,
stError,
stIgnored
);
Const
FirstStatus = low(TTestStatus);
LastStatus = high(TTestStatus);
TestOK : Array[TTestStatus] of Boolean = (
True, // stOK
False, // stFailed
False, // stError
False // stIgnored
);
TestSkipped : Array[TTestStatus] of Boolean = (
False, // stOK
False, // stFailed
False, // stError
True // stIgnored
);
StatusText : Array[TTestStatus] of String = (
success,
failed,
error,
skipped
);
SQLField : Array[TTestStatus] of String = (
'TU_OK',
'TU_FAILED',
'TU_ERROR',
'TU_SKIPPED'
);
function GetTestStatus(AStatusText: string): TTestStatus;
implementation
function GetTestStatus(AStatusText: string): TTestStatus;
var
TS: TTestStatus;
begin
for TS := FirstStatus to LastStatus do
if StatusText[TS]=AStatusText then
exit(TS);
end;
end.
|