mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-13 14:49:59 +02:00
tests: added missing file testsuite.cgi
git-svn-id: trunk@15006 -
This commit is contained in:
vincents
parent
cc8205dadc
commit
611b9dd0d3
2
.gitattributes
vendored
2
.gitattributes
vendored
@ -3617,8 +3617,10 @@ test/runtestsgui.lpr svneol=native#text/plain
|
||||
test/testglobals.pas svneol=native#text/plain
|
||||
test/testlpi.pas svneol=native#text/plain
|
||||
test/testresult-db/createdb.sql svneol=native#text/plain
|
||||
test/testresult-db/teststr.pp svneol=native#text/plain
|
||||
test/testresult-db/testsuite.lpi svneol=native#text/plain
|
||||
test/testresult-db/testsuite.pp svneol=native#text/plain
|
||||
test/testresult-db/tresults.pp svneol=native#text/plain
|
||||
test/testresult-db/utests.pp svneol=native#text/plain
|
||||
test/testunits.pas svneol=native#text/plain
|
||||
tools/apiwizz/apiwizard.lfm svneol=native#text/plain
|
||||
|
||||
45
test/testresult-db/teststr.pp
Normal file
45
test/testresult-db/teststr.pp
Normal file
@ -0,0 +1,45 @@
|
||||
{
|
||||
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
|
||||
failed_to_compile = 'Failed to compile ';
|
||||
success_compilation_failed = 'Success, compilation failed ';
|
||||
failed_compilation_successful = 'Failed, compilation successful ';
|
||||
successfully_compiled = 'Successfully compiled ';
|
||||
failed_to_run = 'Failed to run ';
|
||||
successfully_run = 'Successfully run ';
|
||||
skipping_graph_test = 'Skipping test because it uses graph ';
|
||||
skipping_interactive_test = 'Skipping test because it is interactive ';
|
||||
skipping_known_bug = 'Skipping test because it is a known bug ';
|
||||
skipping_compiler_version_too_low = 'Skipping test because compiler version too low ';
|
||||
skipping_compiler_version_too_high = 'Skipping test because compiler version too high ';
|
||||
skipping_other_cpu = 'Skipping test because for other cpu ';
|
||||
skipping_other_target = 'Skipping test because for other target ';
|
||||
skipping_run_unit = 'Skipping test run because it is a unit ';
|
||||
skipping_run_test = 'Skipping run test ';
|
||||
known_problem = ' known problem: ';
|
||||
line_separation = '>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>';
|
||||
|
||||
ResLogfile : string[32] = 'log';
|
||||
|
||||
implementation
|
||||
|
||||
end.
|
||||
@ -1,137 +1,19 @@
|
||||
<?xml version="1.0"?>
|
||||
<CONFIG>
|
||||
<ProjectOptions>
|
||||
<Version Value="3"/>
|
||||
<PathDelim Value="\"/>
|
||||
<Version Value="6"/>
|
||||
<General>
|
||||
<ProjectType Value="Program"/>
|
||||
<Flags>
|
||||
<MainUnitHasCreateFormStatements Value="False"/>
|
||||
<MainUnitHasTitleStatement Value="False"/>
|
||||
</Flags>
|
||||
<SessionStorage Value="InIDEConfig"/>
|
||||
<MainUnit Value="0"/>
|
||||
<ActiveEditorIndexAtStart Value="1"/>
|
||||
<IconPath Value="./"/>
|
||||
<TargetFileExt Value=""/>
|
||||
<Title Value="testsuite"/>
|
||||
</General>
|
||||
<JumpHistory Count="12" HistoryIndex="11">
|
||||
<Position1>
|
||||
<Filename Value="dbwhtml.pp"/>
|
||||
<Caret Line="85" Column="3" TopLine="82"/>
|
||||
</Position1>
|
||||
<Position2>
|
||||
<Filename Value="dbwhtml.pp"/>
|
||||
<Caret Line="204" Column="5" TopLine="164"/>
|
||||
</Position2>
|
||||
<Position3>
|
||||
<Filename Value="dbwhtml.pp"/>
|
||||
<Caret Line="205" Column="5" TopLine="165"/>
|
||||
</Position3>
|
||||
<Position4>
|
||||
<Filename Value="dbwhtml.pp"/>
|
||||
<Caret Line="203" Column="25" TopLine="168"/>
|
||||
</Position4>
|
||||
<Position5>
|
||||
<Filename Value="dbwhtml.pp"/>
|
||||
<Caret Line="212" Column="15" TopLine="195"/>
|
||||
</Position5>
|
||||
<Position6>
|
||||
<Filename Value="dbwhtml.pp"/>
|
||||
<Caret Line="70" Column="67" TopLine="52"/>
|
||||
</Position6>
|
||||
<Position7>
|
||||
<Filename Value="utests.pp"/>
|
||||
<Caret Line="594" Column="5" TopLine="554"/>
|
||||
</Position7>
|
||||
<Position8>
|
||||
<Filename Value="utests.pp"/>
|
||||
<Caret Line="66" Column="1" TopLine="34"/>
|
||||
</Position8>
|
||||
<Position9>
|
||||
<Filename Value="dbwhtml.pp"/>
|
||||
<Caret Line="396" Column="4" TopLine="361"/>
|
||||
</Position9>
|
||||
<Position10>
|
||||
<Filename Value="utests.pp"/>
|
||||
<Caret Line="66" Column="14" TopLine="35"/>
|
||||
</Position10>
|
||||
<Position11>
|
||||
<Filename Value="utests.pp"/>
|
||||
<Caret Line="600" Column="56" TopLine="568"/>
|
||||
</Position11>
|
||||
<Position12>
|
||||
<Filename Value="utests.pp"/>
|
||||
<Caret Line="31" Column="77" TopLine="14"/>
|
||||
</Position12>
|
||||
</JumpHistory>
|
||||
<Units Count="8">
|
||||
<Unit0>
|
||||
<CursorPos X="19" Y="5"/>
|
||||
<EditorIndex Value="0"/>
|
||||
<Filename Value="testsuite.pp"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<Loaded Value="True"/>
|
||||
<TopLine Value="1"/>
|
||||
<UnitName Value="testsuite"/>
|
||||
<UsageCount Value="56"/>
|
||||
</Unit0>
|
||||
<Unit1>
|
||||
<CursorPos X="23" Y="595"/>
|
||||
<EditorIndex Value="1"/>
|
||||
<Filename Value="utests.pp"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<Loaded Value="True"/>
|
||||
<TopLine Value="568"/>
|
||||
<UnitName Value="utests"/>
|
||||
<UsageCount Value="56"/>
|
||||
</Unit1>
|
||||
<Unit2>
|
||||
<CursorPos X="6" Y="136"/>
|
||||
<EditorIndex Value="4"/>
|
||||
<Filename Value="/home/michael/fixbranch/rtl/linux/syslinux.pp"/>
|
||||
<Loaded Value="True"/>
|
||||
<TopLine Value="94"/>
|
||||
<UnitName Value="SysLinux"/>
|
||||
<UsageCount Value="28"/>
|
||||
</Unit2>
|
||||
<Unit3>
|
||||
<CursorPos X="1" Y="1"/>
|
||||
<Filename Value="/home/michael/test.sql"/>
|
||||
<SyntaxHighlighter Value="None"/>
|
||||
<TopLine Value="1"/>
|
||||
<UsageCount Value="8"/>
|
||||
</Unit3>
|
||||
<Unit4>
|
||||
<CursorPos X="27" Y="23"/>
|
||||
<EditorIndex Value="3"/>
|
||||
<Filename Value="/home/michael/fixbranch/rtl/unix/linux.pp"/>
|
||||
<Loaded Value="True"/>
|
||||
<TopLine Value="1"/>
|
||||
<UnitName Value="Linux"/>
|
||||
<UsageCount Value="25"/>
|
||||
</Unit4>
|
||||
<Unit5>
|
||||
<CursorPos X="56" Y="251"/>
|
||||
<Filename Value="/home/michael/projects/lazarus/components/editbutton/editbtn.pas"/>
|
||||
<TopLine Value="248"/>
|
||||
<UnitName Value="EditBtn"/>
|
||||
<UsageCount Value="8"/>
|
||||
</Unit5>
|
||||
<Unit6>
|
||||
<CursorPos X="31" Y="8"/>
|
||||
<Filename Value="/home/michael/projects/lazarus/components/editbutton/demo/frmmain.pp"/>
|
||||
<ComponentName Value="Form1"/>
|
||||
<ResourceFilename Value="/home/michael/projects/lazarus/components/editbutton/demo/frmmain.lrs"/>
|
||||
<TopLine Value="1"/>
|
||||
<UnitName Value="frmmain"/>
|
||||
<UsageCount Value="20"/>
|
||||
</Unit6>
|
||||
<Unit7>
|
||||
<CursorPos X="27" Y="393"/>
|
||||
<EditorIndex Value="2"/>
|
||||
<Filename Value="dbwhtml.pp"/>
|
||||
<Loaded Value="True"/>
|
||||
<TopLine Value="384"/>
|
||||
<UnitName Value="dbwhtml"/>
|
||||
<UsageCount Value="25"/>
|
||||
</Unit7>
|
||||
</Units>
|
||||
<PublishOptions>
|
||||
<Version Value="2"/>
|
||||
<IgnoreBinaries Value="False"/>
|
||||
@ -144,14 +26,25 @@
|
||||
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
|
||||
</local>
|
||||
</RunParams>
|
||||
<RequiredPackages Count="1">
|
||||
<Item1>
|
||||
<PackageName Value="editbutton"/>
|
||||
<MinVersion Valid="True"/>
|
||||
</Item1>
|
||||
</RequiredPackages>
|
||||
<Units Count="2">
|
||||
<Unit0>
|
||||
<Filename Value="testsuite.pp"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<UnitName Value="testsuite"/>
|
||||
</Unit0>
|
||||
<Unit1>
|
||||
<Filename Value="utests.pp"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<UnitName Value="utests"/>
|
||||
</Unit1>
|
||||
</Units>
|
||||
</ProjectOptions>
|
||||
<CompilerOptions>
|
||||
<Version Value="5"/>
|
||||
<PathDelim Value="\"/>
|
||||
<CodeGeneration>
|
||||
<Generate Value="Faster"/>
|
||||
</CodeGeneration>
|
||||
<Other>
|
||||
<CompilerPath Value="$(CompPath)"/>
|
||||
</Other>
|
||||
|
||||
152
test/testresult-db/tresults.pp
Normal file
152
test/testresult-db/tresults.pp
Normal file
@ -0,0 +1,152 @@
|
||||
{
|
||||
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 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.
|
||||
|
||||
**********************************************************************}
|
||||
|
||||
{$mode objfpc}
|
||||
{$h+}
|
||||
|
||||
unit tresults;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
teststr;
|
||||
|
||||
|
||||
Type
|
||||
TTestStatus = (
|
||||
stFailedToCompile,
|
||||
stSuccessCompilationFailed,
|
||||
stFailedCompilationsuccessful,
|
||||
stSuccessfullyCompiled,
|
||||
stFailedToRun,
|
||||
stKnownRunProblem,
|
||||
stSuccessFullyRun,
|
||||
stSkippingGraphTest,
|
||||
stSkippingInteractiveTest,
|
||||
stSkippingKnownBug,
|
||||
stSkippingCompilerVersionTooLow,
|
||||
stSkippingCompilerVersionTooHigh,
|
||||
stSkippingOtherCpu,
|
||||
stSkippingOtherTarget,
|
||||
stskippingRunUnit,
|
||||
stskippingRunTest
|
||||
);
|
||||
|
||||
|
||||
Const
|
||||
FirstStatus = stFailedToCompile;
|
||||
LastStatus = stskippingRunTest;
|
||||
|
||||
TestOK : Array[TTestStatus] of Boolean = (
|
||||
False, // stFailedToCompile,
|
||||
True, // stSuccessCompilationFailed,
|
||||
False, // stFailedCompilationsuccessful,
|
||||
True, // stSuccessfullyCompiled,
|
||||
False, // stFailedToRun,
|
||||
True, // stKnownRunProblem,
|
||||
True, // stSuccessFullyRun,
|
||||
False, // stSkippingGraphTest,
|
||||
False, // stSkippingInteractiveTest,
|
||||
False, // stSkippingKnownBug,
|
||||
False, // stSkippingCompilerVersionTooLow,
|
||||
False, // stSkippingCompilerVersionTooHigh,
|
||||
False, // stSkippingOtherCpu,
|
||||
False, // stSkippingOtherTarget,
|
||||
False, // stskippingRunUnit,
|
||||
False // stskippingRunTest
|
||||
);
|
||||
|
||||
TestSkipped : Array[TTestStatus] of Boolean = (
|
||||
False, // stFailedToCompile,
|
||||
False, // stSuccessCompilationFailed,
|
||||
False, // stFailedCompilationsuccessful,
|
||||
False, // stSuccessfullyCompiled,
|
||||
False, // stFailedToRun,
|
||||
False, // stKnownRunProblem,
|
||||
False, // stSuccessFullyRun,
|
||||
True, // stSkippingGraphTest,
|
||||
True, // stSkippingInteractiveTest,
|
||||
True, // stSkippingKnownBug,
|
||||
True, // stSkippingCompilerVersionTooLow,
|
||||
True, // stSkippingCompilerVersionTooHigh,
|
||||
True, // stSkippingOtherCpu,
|
||||
True, // stSkippingOtherTarget,
|
||||
True, // stskippingRunUnit,
|
||||
True // stskippingRunTest
|
||||
);
|
||||
|
||||
ExpectRun : Array[TTestStatus] of Boolean = (
|
||||
False, // stFailedToCompile,
|
||||
False, // stSuccessCompilationFailed,
|
||||
False, // stFailedCompilationsuccessful,
|
||||
True , // stSuccessfullyCompiled,
|
||||
False, // stFailedToRun,
|
||||
False, // stKnownRunProblem,
|
||||
False, // stSuccessFullyRun,
|
||||
False, // stSkippingGraphTest,
|
||||
False, // stSkippingInteractiveTest,
|
||||
False, // stSkippingKnownBug,
|
||||
False, // stSkippingCompilerVersionTooLow,
|
||||
False, // stSkippingCompilerVersionTooHigh,
|
||||
False, // stSkippingOtherCpu,
|
||||
False, // stSkippingOtherTarget,
|
||||
False, // stskippingRunUnit,
|
||||
False // stskippingRunTest
|
||||
);
|
||||
|
||||
StatusText : Array[TTestStatus] of String = (
|
||||
failed_to_compile,
|
||||
success_compilation_failed,
|
||||
failed_compilation_successful ,
|
||||
successfully_compiled ,
|
||||
failed_to_run ,
|
||||
known_problem ,
|
||||
successfully_run ,
|
||||
skipping_graph_test ,
|
||||
skipping_interactive_test ,
|
||||
skipping_known_bug ,
|
||||
skipping_compiler_version_too_low,
|
||||
skipping_compiler_version_too_high,
|
||||
skipping_other_cpu ,
|
||||
skipping_other_target ,
|
||||
skipping_run_unit ,
|
||||
skipping_run_test
|
||||
);
|
||||
|
||||
SQLField : Array[TTestStatus] of String = (
|
||||
'TU_FAILEDTOCOMPILE',
|
||||
'TU_SUCCESSFULLYFAILED',
|
||||
'TU_FAILEDTOFAIL',
|
||||
'TU_SUCCESFULLYCOMPILED',
|
||||
'TU_FAILEDTORUN',
|
||||
'TU_KNOWNPROBLEM',
|
||||
'TU_SUCCESSFULLYRUN',
|
||||
'TU_SKIPPEDGRAPHTEST',
|
||||
'TU_SKIPPEDINTERACTIVETEST',
|
||||
'TU_KNOWNBUG',
|
||||
'TU_COMPILERVERIONTOOLOW',
|
||||
'TU_COMPILERVERIONTOOHIGH',
|
||||
'TU_OTHERCPU',
|
||||
'TU_OTHERTARGET',
|
||||
'TU_UNIT',
|
||||
'TU_SKIPPINGRUNTEST'
|
||||
);
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
end.
|
||||
|
||||
Loading…
Reference in New Issue
Block a user