Skip to content

Commit 0e4c957

Browse files
delphidabblerdelphidabbler
committed
Add DUnit test project for Array Utilities Unit
1 parent 4376b16 commit 0e4c957

File tree

3 files changed

+6721
-0
lines changed

3 files changed

+6721
-0
lines changed

‎Test/ArrayUtilsTest.dpr‎

Lines changed: 28 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,28 @@
1+
{
2+
* Delphi DUnit Test Project for DelphiDabbler.Lib.ArrayUtils.pas
3+
*
4+
* This project provides a DUnit test framework for the
5+
* DelphiDabbler.Lib.ArrayUtils.pas unit. This project supports only the GUI
6+
* version of the test framework.
7+
*
8+
* Any copyright in this file is dedicated to the Public Domain.
9+
* http://creativecommons.org/publicdomain/zero/1.0/
10+
}
11+
12+
program ArrayUtilsTest;
13+
14+
uses
15+
Forms,
16+
GUITestRunner,
17+
TestFramework,
18+
TestArrayUtils in 'TestArrayUtils.pas',
19+
DelphiDabbler.Lib.ArrayUtils in '..\DelphiDabbler.Lib.ArrayUtils.pas';
20+
21+
{$R *.RES}
22+
23+
begin
24+
ReportMemoryLeaksOnShutdown := True;
25+
Application.Initialize;
26+
GUITestRunner.RunRegisteredTests;
27+
end.
28+

‎Test/ArrayUtilsTest.dproj‎

Lines changed: 120 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,120 @@
1+
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
2+
<PropertyGroup>
3+
<ProjectGuid>{05B20D65-7F4E-4BDD-920F-2AA52BBED9A5}</ProjectGuid>
4+
<ProjectVersion>20.2</ProjectVersion>
5+
<Config Condition="'$(Config)'==''">Base</Config>
6+
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
7+
<MainSource>ArrayUtilsTest.dpr</MainSource>
8+
<FrameworkType>VCL</FrameworkType>
9+
<Base>True</Base>
10+
<Platform Condition="'$(Platform)'==''">Win32</Platform>
11+
<TargetedPlatforms>3</TargetedPlatforms>
12+
<AppType>Application</AppType>
13+
<Platform>Win32</Platform>
14+
<ProjectName Condition="'$(ProjectName)'==''">ArrayUtilsTest</ProjectName>
15+
</PropertyGroup>
16+
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
17+
<Base>true</Base>
18+
</PropertyGroup>
19+
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
20+
<Base_Win32>true</Base_Win32>
21+
<CfgParent>Base</CfgParent>
22+
<Base>true</Base>
23+
</PropertyGroup>
24+
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
25+
<Base_Win64>true</Base_Win64>
26+
<CfgParent>Base</CfgParent>
27+
<Base>true</Base>
28+
</PropertyGroup>
29+
<PropertyGroup Condition="'$(Base)'!=''">
30+
<Manifest_File>None</Manifest_File>
31+
<VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
32+
<VerInfo_Locale>2057</VerInfo_Locale>
33+
<DCC_UnitSearchPath>$(BDS)\Source\DUnit\src;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
34+
<DCC_DependencyCheckOutputName>FractionTest.exe</DCC_DependencyCheckOutputName>
35+
<DCC_ExeOutput>.\_build\$(Platform)</DCC_ExeOutput>
36+
<DCC_ImageBase>00400000</DCC_ImageBase>
37+
<DCC_CVT_WIDENING_STRING_LOST>true</DCC_CVT_WIDENING_STRING_LOST>
38+
<DCC_CVT_ACHAR_TO_WCHAR>true</DCC_CVT_ACHAR_TO_WCHAR>
39+
<DCC_EXPLICIT_STRING_CAST_LOSS>true</DCC_EXPLICIT_STRING_CAST_LOSS>
40+
<DCC_Platform>x86</DCC_Platform>
41+
<DCC_DcuOutput>.\_build\$(Platform)</DCC_DcuOutput>
42+
<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
43+
<SanitizedProjectName>ArrayUtilsTest</SanitizedProjectName>
44+
<DCC_Namespace>System;System.Win;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;Winapi;$(DCC_Namespace)</DCC_Namespace>
45+
</PropertyGroup>
46+
<PropertyGroup Condition="'$(Base_Win32)'!=''">
47+
<BT_BuildType>Debug</BT_BuildType>
48+
</PropertyGroup>
49+
<PropertyGroup Condition="'$(Base_Win64)'!=''">
50+
<BT_BuildType>Debug</BT_BuildType>
51+
</PropertyGroup>
52+
<ItemGroup>
53+
<DelphiCompile Include="$(MainSource)">
54+
<MainSource>MainSource</MainSource>
55+
</DelphiCompile>
56+
<DCCReference Include="TestArrayUtils.pas"/>
57+
<DCCReference Include="..\DelphiDabbler.Lib.ArrayUtils.pas"/>
58+
<BuildConfiguration Include="Base">
59+
<Key>Base</Key>
60+
</BuildConfiguration>
61+
</ItemGroup>
62+
<Import Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')" Project="$(BDS)\Bin\CodeGear.Delphi.Targets"/>
63+
<Import Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')" Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj"/>
64+
<ProjectExtensions>
65+
<Borland.Personality>Delphi.Personality.12</Borland.Personality>
66+
<Borland.ProjectType/>
67+
<BorlandProject>
68+
<Delphi.Personality>
69+
<Parameters>
70+
<Parameters Name="RunParams">-localhost</Parameters>
71+
</Parameters>
72+
<VersionInfo>
73+
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
74+
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
75+
<VersionInfo Name="MajorVer">1</VersionInfo>
76+
<VersionInfo Name="MinorVer">0</VersionInfo>
77+
<VersionInfo Name="Release">0</VersionInfo>
78+
<VersionInfo Name="Build">0</VersionInfo>
79+
<VersionInfo Name="Debug">False</VersionInfo>
80+
<VersionInfo Name="PreRelease">False</VersionInfo>
81+
<VersionInfo Name="Special">False</VersionInfo>
82+
<VersionInfo Name="Private">False</VersionInfo>
83+
<VersionInfo Name="DLL">False</VersionInfo>
84+
<VersionInfo Name="Locale">2057</VersionInfo>
85+
<VersionInfo Name="CodePage">1252</VersionInfo>
86+
</VersionInfo>
87+
<VersionInfoKeys>
88+
<VersionInfoKeys Name="CompanyName"/>
89+
<VersionInfoKeys Name="FileDescription"/>
90+
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
91+
<VersionInfoKeys Name="InternalName"/>
92+
<VersionInfoKeys Name="LegalCopyright"/>
93+
<VersionInfoKeys Name="LegalTrademarks"/>
94+
<VersionInfoKeys Name="OriginalFilename"/>
95+
<VersionInfoKeys Name="ProductName"/>
96+
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
97+
<VersionInfoKeys Name="Comments"/>
98+
</VersionInfoKeys>
99+
<Excluded_Packages>
100+
<Excluded_Packages Name="$(BDSBIN)\dcloffice2k290.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
101+
<Excluded_Packages Name="$(BDSBIN)\dclofficexp290.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
102+
</Excluded_Packages>
103+
<Source>
104+
<Source Name="MainSource">ArrayUtilsTest.dpr</Source>
105+
</Source>
106+
</Delphi.Personality>
107+
<UnitTesting>
108+
<TestFramework>DUnit / Delphi Win32</TestFramework>
109+
<TestRunner>GUI</TestRunner>
110+
<TestProjectName/>
111+
<SourceProjectName/>
112+
</UnitTesting>
113+
<Platforms>
114+
<Platform value="Win32">True</Platform>
115+
<Platform value="Win64">True</Platform>
116+
</Platforms>
117+
</BorlandProject>
118+
<ProjectFileVersion>12</ProjectFileVersion>
119+
</ProjectExtensions>
120+
</Project>

0 commit comments

Comments
 (0)