trackler 2.0.5.13 → 2.0.5.14

Sign up to get free protection for your applications and to get access to all the features.
Files changed (85) hide show
  1. checksums.yaml +4 -4
  2. data/common/.travis.yml +1 -0
  3. data/common/bin/check_required_files_present +55 -0
  4. data/lib/trackler/version.rb +1 -1
  5. data/tracks/pascal/exercises/Hello-World/TestHelloWorld.dpr +60 -0
  6. data/tracks/pascal/exercises/Hello-World/TestHelloWorld.dproj +176 -0
  7. data/tracks/pascal/exercises/Hello-World/uHelloWorldExample.pas +24 -0
  8. data/tracks/pascal/exercises/Hello-World/uTestHelloWorld.pas +65 -0
  9. data/tracks/pascal/exercises/allergies/AllergyTests.dpr +60 -0
  10. data/tracks/pascal/exercises/allergies/AllergyTests.dproj +176 -0
  11. data/tracks/pascal/exercises/allergies/uAllergiesExample.pas +67 -0
  12. data/tracks/pascal/exercises/allergies/uAllergyTests.pas +177 -0
  13. data/tracks/pascal/exercises/bank-account/BankAccountTests.dpr +60 -0
  14. data/tracks/pascal/exercises/bank-account/BankAccountTests.dproj +176 -0
  15. data/tracks/pascal/exercises/bank-account/uBankAccountExample.pas +96 -0
  16. data/tracks/pascal/exercises/bank-account/uBankAccountTests.pas +140 -0
  17. data/tracks/pascal/exercises/beer-song/BeerSongTests.dpr +60 -0
  18. data/tracks/pascal/exercises/beer-song/BeerSongTests.dproj +176 -0
  19. data/tracks/pascal/exercises/beer-song/uBeerSongExample.pas +45 -0
  20. data/tracks/pascal/exercises/beer-song/uBeerSongTests.pas +84 -0
  21. data/tracks/pascal/exercises/binary-search/BinarySearchTest.dpr +60 -0
  22. data/tracks/pascal/exercises/binary-search/BinarySearchTest.dproj +176 -0
  23. data/tracks/pascal/exercises/binary-search/uBinarySearchExample.pas +40 -0
  24. data/tracks/pascal/exercises/binary-search/uBinarySearchTest.pas +132 -0
  25. data/tracks/pascal/exercises/bob/BobTests.dpr +60 -0
  26. data/tracks/pascal/exercises/bob/BobTests.dproj +176 -0
  27. data/tracks/pascal/exercises/bob/uBobExample.pas +47 -0
  28. data/tracks/pascal/exercises/bob/uBobTests.pas +180 -0
  29. data/tracks/pascal/exercises/book-store/BookStoreTests.dpr +60 -0
  30. data/tracks/pascal/exercises/book-store/BookStoreTests.dproj +176 -0
  31. data/tracks/pascal/exercises/book-store/uBookStoreExample.pas +144 -0
  32. data/tracks/pascal/exercises/book-store/uBookStoreTests.pas +56 -0
  33. data/tracks/pascal/exercises/bowling/BowlingTests.dpr +60 -0
  34. data/tracks/pascal/exercises/bowling/BowlingTests.dproj +176 -0
  35. data/tracks/pascal/exercises/bowling/uBowlingExample.pas +105 -0
  36. data/tracks/pascal/exercises/bowling/uBowlingTests.pas +101 -0
  37. data/tracks/pascal/exercises/circular-buffer/CircularBufferTests.dpr +60 -0
  38. data/tracks/pascal/exercises/circular-buffer/CircularBufferTests.dproj +176 -0
  39. data/tracks/pascal/exercises/circular-buffer/uCircularBufferExample.pas +72 -0
  40. data/tracks/pascal/exercises/circular-buffer/uCircularBufferTests.pas +249 -0
  41. data/tracks/pascal/exercises/clock/ClockTest.dpr +60 -0
  42. data/tracks/pascal/exercises/clock/ClockTest.dproj +176 -0
  43. data/tracks/pascal/exercises/clock/uClockExample.pas +54 -0
  44. data/tracks/pascal/exercises/clock/uClockTest.pas +157 -0
  45. data/tracks/pascal/exercises/etl/ETLtests.dpr +60 -0
  46. data/tracks/pascal/exercises/etl/ETLtests.dproj +176 -0
  47. data/tracks/pascal/exercises/etl/uETLexample.pas +25 -0
  48. data/tracks/pascal/exercises/etl/uETLtests.pas +191 -0
  49. data/tracks/pascal/exercises/hamming/Hamming.dpr +60 -0
  50. data/tracks/pascal/exercises/hamming/Hamming.dproj +176 -0
  51. data/tracks/pascal/exercises/hamming/uHammingExample.pas +24 -0
  52. data/tracks/pascal/exercises/hamming/uHammingTests.pas +165 -0
  53. data/tracks/pascal/exercises/leap/LeapTest.dpr +60 -0
  54. data/tracks/pascal/exercises/leap/LeapTest.dproj +176 -0
  55. data/tracks/pascal/exercises/leap/uLeapExample.pas +17 -0
  56. data/tracks/pascal/exercises/leap/uLeapTests.pas +81 -0
  57. data/tracks/pascal/exercises/nucleotide-count/NucleotideCountTest.dpr +60 -0
  58. data/tracks/pascal/exercises/nucleotide-count/NucleotideCountTest.dproj +176 -0
  59. data/tracks/pascal/exercises/nucleotide-count/uNucleotideCountExample.pas +72 -0
  60. data/tracks/pascal/exercises/nucleotide-count/uNucleotideCountTest.pas +190 -0
  61. data/tracks/pascal/exercises/perfect-numbers/PerfectNumbersTest.dpr +60 -0
  62. data/tracks/pascal/exercises/perfect-numbers/PerfectNumbersTest.dproj +176 -0
  63. data/tracks/pascal/exercises/perfect-numbers/uPerfectNumbersExample.pas +34 -0
  64. data/tracks/pascal/exercises/perfect-numbers/uPerfectNumbersTest.pas +48 -0
  65. data/tracks/pascal/exercises/phone-number/PhoneNumberTests.dpr +60 -0
  66. data/tracks/pascal/exercises/phone-number/PhoneNumberTests.dproj +176 -0
  67. data/tracks/pascal/exercises/phone-number/uPhoneNumberExample.pas +102 -0
  68. data/tracks/pascal/exercises/phone-number/uPhoneNumberTests.pas +138 -0
  69. data/tracks/php/exercises/variable-length-quantity/variable-length-quantity_test.php +1 -1
  70. data/tracks/ruby/Gemfile +0 -1
  71. data/tracks/ruby/Makefile +2 -1
  72. data/tracks/ruby/Rakefile +3 -0
  73. data/tracks/ruby/exercises/simple-linked-list/.meta/.version +1 -0
  74. data/tracks/ruby/exercises/simple-linked-list/example.rb +39 -48
  75. data/tracks/ruby/exercises/simple-linked-list/simple_linked_list_test.rb +99 -125
  76. data/tracks/ruby/exercises/wordy/.meta/.version +1 -0
  77. data/tracks/ruby/exercises/wordy/example.rb +4 -0
  78. data/tracks/ruby/exercises/wordy/example.tt +17 -0
  79. data/tracks/ruby/exercises/wordy/wordy_test.rb +66 -35
  80. data/tracks/ruby/lib/wordy_cases.rb +67 -0
  81. data/tracks/ruby/test/wordy_cases_test.rb +102 -0
  82. data/tracks/scala/config.json +7 -1
  83. data/tracks/scala/exercises/connect/{README.md → HINTS.md} +1 -12
  84. data/tracks/scala/exercises/connect/build.sbt +2 -2
  85. metadata +73 -3
@@ -0,0 +1,176 @@
1
+ <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
2
+ <PropertyGroup>
3
+ <ProjectGuid>{4F4EE8B5-E825-478F-A4BC-40732A50E1B1}</ProjectGuid>
4
+ <ProjectVersion>15.3</ProjectVersion>
5
+ <FrameworkType>None</FrameworkType>
6
+ <MainSource>BankAccountTests.dpr</MainSource>
7
+ <Base>True</Base>
8
+ <Config Condition="'$(Config)'==''">Debug</Config>
9
+ <Platform Condition="'$(Platform)'==''">Win32</Platform>
10
+ <TargetedPlatforms>1</TargetedPlatforms>
11
+ <AppType>Console</AppType>
12
+ </PropertyGroup>
13
+ <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
14
+ <Base>true</Base>
15
+ </PropertyGroup>
16
+ <PropertyGroup Condition="('$(Platform)'=='OSX32' and '$(Base)'=='true') or '$(Base_OSX32)'!=''">
17
+ <Base_OSX32>true</Base_OSX32>
18
+ <CfgParent>Base</CfgParent>
19
+ <Base>true</Base>
20
+ </PropertyGroup>
21
+ <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
22
+ <Base_Win32>true</Base_Win32>
23
+ <CfgParent>Base</CfgParent>
24
+ <Base>true</Base>
25
+ </PropertyGroup>
26
+ <PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
27
+ <Base_Win64>true</Base_Win64>
28
+ <CfgParent>Base</CfgParent>
29
+ <Base>true</Base>
30
+ </PropertyGroup>
31
+ <PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_1)'!=''">
32
+ <Cfg_1>true</Cfg_1>
33
+ <CfgParent>Base</CfgParent>
34
+ <Base>true</Base>
35
+ </PropertyGroup>
36
+ <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win32)'!=''">
37
+ <Cfg_1_Win32>true</Cfg_1_Win32>
38
+ <CfgParent>Cfg_1</CfgParent>
39
+ <Cfg_1>true</Cfg_1>
40
+ <Base>true</Base>
41
+ </PropertyGroup>
42
+ <PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_2)'!=''">
43
+ <Cfg_2>true</Cfg_2>
44
+ <CfgParent>Base</CfgParent>
45
+ <Base>true</Base>
46
+ </PropertyGroup>
47
+ <PropertyGroup Condition="'$(Base)'!=''">
48
+ <DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;$(DCC_Namespace)</DCC_Namespace>
49
+ <Icns_MainIcns>$(BDS)\bin\delphi_PROJECTICNS.icns</Icns_MainIcns>
50
+ <DCC_UnitSearchPath>$(DUnitX);$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
51
+ <DCC_DcuOutput>.\$(Platform)\$(Config)</DCC_DcuOutput>
52
+ <DCC_ExeOutput>.\$(Platform)\$(Config)</DCC_ExeOutput>
53
+ <DCC_E>false</DCC_E>
54
+ <DCC_N>false</DCC_N>
55
+ <DCC_S>false</DCC_S>
56
+ <DCC_F>false</DCC_F>
57
+ <DCC_K>false</DCC_K>
58
+ </PropertyGroup>
59
+ <PropertyGroup Condition="'$(Base_OSX32)'!=''">
60
+ <DCC_UsePackage>FireDACASADriver;FireDACSqliteDriver;bindcompfmx;DBXSqliteDriver;FireDACPgDriver;FireDACODBCDriver;fmx;rtl;dbrtl;DbxClientDriver;IndySystem;FireDACCommon;bindcomp;DBXInterBaseDriver;DataSnapCommon;xmlrtl;ibxpress;DbxCommonDriver;IndyProtocols;dbxcds;DBXMySQLDriver;FireDACCommonDriver;soaprtl;bindengine;bindcompdbx;FMXTee;fmxFireDAC;FireDACADSDriver;CustomIPTransport;FireDAC;dsnap;IndyIPServer;fmxase;IndyCore;IndyIPCommon;CloudService;FireDACIBDriver;FmxTeeUI;inet;fmxobj;FireDACMySQLDriver;inetdbxpress;fmxdae;RESTComponents;FireDACMSAccDriver;dbexpress;IndyIPClient;$(DCC_UsePackage)</DCC_UsePackage>
61
+ </PropertyGroup>
62
+ <PropertyGroup Condition="'$(Base_Win32)'!=''">
63
+ <DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
64
+ <DCC_UsePackage>frxDB19;L208_r140;FireDACASADriver;FireDACSqliteDriver;bindcompfmx;DBXSqliteDriver;AbbreviaVCL;vcldbx;FireDACPgDriver;FireDACODBCDriver;S404_r;fmx;rtl;dbrtl;DbxClientDriver;IndySystem;FireDACCommon;bindcomp;TeeDB;frx19;vclib;inetdbbde;DBXInterBaseDriver;Tee;DataSnapCommon;vclFireDAC;Rave110VCL;xmlrtl;svnui;ibxpress;DbxCommonDriver;vclimg;IndyProtocols;dbxcds;DBXMySQLDriver;FireDACCommonDriver;MetropolisUILiveTile;O408_r;soaprtl;bindengine;vclactnband;vcldb;bindcompdbx;vcldsnap;bindcompvcl;FMXTee;TeeUI;AsyncPro;vclie;XMLPartner_PR;fmxFireDAC;FireDACADSDriver;vcltouch;CustomIPTransport;G114_R140;vclribbon;VclSmp;FireDAC;dsnap;IndyIPServer;Intraweb;fmxase;vcl;IndyCore;VCLRESTComponents;OmniThreadLibraryRuntimeXE5;IndyIPCommon;CloudService;CodeSiteExpressPkg;dsnapcon;FireDACIBDriver;FmxTeeUI;inet;fmxobj;E111_R120;FireDACMySQLDriver;vclx;inetdbxpress;svn;fmxdae;frxe19;RESTComponents;bdertl;FireDACMSAccDriver;adortl;dbexpress;IndyIPClient;$(DCC_UsePackage)</DCC_UsePackage>
65
+ <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
66
+ <VerInfo_Locale>1033</VerInfo_Locale>
67
+ </PropertyGroup>
68
+ <PropertyGroup Condition="'$(Base_Win64)'!=''">
69
+ <DCC_UsePackage>FireDACASADriver;FireDACSqliteDriver;bindcompfmx;DBXSqliteDriver;AbbreviaVCL;FireDACPgDriver;FireDACODBCDriver;fmx;rtl;dbrtl;DbxClientDriver;IndySystem;FireDACCommon;bindcomp;TeeDB;vclib;DBXInterBaseDriver;Tee;DataSnapCommon;vclFireDAC;xmlrtl;ibxpress;DbxCommonDriver;vclimg;IndyProtocols;dbxcds;DBXMySQLDriver;FireDACCommonDriver;MetropolisUILiveTile;O408_r;soaprtl;bindengine;vclactnband;vcldb;bindcompdbx;vcldsnap;bindcompvcl;FMXTee;TeeUI;vclie;fmxFireDAC;FireDACADSDriver;vcltouch;CustomIPTransport;vclribbon;VclSmp;FireDAC;dsnap;IndyIPServer;Intraweb;fmxase;vcl;IndyCore;VCLRESTComponents;IndyIPCommon;CloudService;dsnapcon;FireDACIBDriver;FmxTeeUI;inet;fmxobj;FireDACMySQLDriver;vclx;inetdbxpress;fmxdae;RESTComponents;FireDACMSAccDriver;adortl;dbexpress;IndyIPClient;$(DCC_UsePackage)</DCC_UsePackage>
70
+ </PropertyGroup>
71
+ <PropertyGroup Condition="'$(Cfg_1)'!=''">
72
+ <DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
73
+ <DCC_DebugDCUs>true</DCC_DebugDCUs>
74
+ <DCC_Optimize>false</DCC_Optimize>
75
+ <DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
76
+ <DCC_DebugInfoInExe>true</DCC_DebugInfoInExe>
77
+ <DCC_RemoteDebug>true</DCC_RemoteDebug>
78
+ </PropertyGroup>
79
+ <PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
80
+ <DCC_RemoteDebug>false</DCC_RemoteDebug>
81
+ </PropertyGroup>
82
+ <PropertyGroup Condition="'$(Cfg_2)'!=''">
83
+ <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
84
+ <DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
85
+ <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
86
+ <DCC_DebugInformation>0</DCC_DebugInformation>
87
+ </PropertyGroup>
88
+ <ItemGroup>
89
+ <DelphiCompile Include="$(MainSource)">
90
+ <MainSource>MainSource</MainSource>
91
+ </DelphiCompile>
92
+ <DCCReference Include="uBankAccountTests.pas"/>
93
+ <DCCReference Include="uBankAccount.pas"/>
94
+ <BuildConfiguration Include="Release">
95
+ <Key>Cfg_2</Key>
96
+ <CfgParent>Base</CfgParent>
97
+ </BuildConfiguration>
98
+ <BuildConfiguration Include="Base">
99
+ <Key>Base</Key>
100
+ </BuildConfiguration>
101
+ <BuildConfiguration Include="Debug">
102
+ <Key>Cfg_1</Key>
103
+ <CfgParent>Base</CfgParent>
104
+ </BuildConfiguration>
105
+ </ItemGroup>
106
+ <ProjectExtensions>
107
+ <Borland.Personality>Delphi.Personality.12</Borland.Personality>
108
+ <Borland.ProjectType/>
109
+ <BorlandProject>
110
+ <Delphi.Personality>
111
+ <VersionInfo>
112
+ <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
113
+ <VersionInfo Name="AutoIncBuild">False</VersionInfo>
114
+ <VersionInfo Name="MajorVer">1</VersionInfo>
115
+ <VersionInfo Name="MinorVer">0</VersionInfo>
116
+ <VersionInfo Name="Release">0</VersionInfo>
117
+ <VersionInfo Name="Build">0</VersionInfo>
118
+ <VersionInfo Name="Debug">False</VersionInfo>
119
+ <VersionInfo Name="PreRelease">False</VersionInfo>
120
+ <VersionInfo Name="Special">False</VersionInfo>
121
+ <VersionInfo Name="Private">False</VersionInfo>
122
+ <VersionInfo Name="DLL">False</VersionInfo>
123
+ <VersionInfo Name="Locale">1033</VersionInfo>
124
+ <VersionInfo Name="CodePage">1252</VersionInfo>
125
+ </VersionInfo>
126
+ <VersionInfoKeys>
127
+ <VersionInfoKeys Name="CompanyName"/>
128
+ <VersionInfoKeys Name="FileDescription"/>
129
+ <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
130
+ <VersionInfoKeys Name="InternalName"/>
131
+ <VersionInfoKeys Name="LegalCopyright"/>
132
+ <VersionInfoKeys Name="LegalTrademarks"/>
133
+ <VersionInfoKeys Name="OriginalFilename"/>
134
+ <VersionInfoKeys Name="ProductName"/>
135
+ <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
136
+ <VersionInfoKeys Name="Comments"/>
137
+ <VersionInfoKeys Name="CFBundleName"/>
138
+ <VersionInfoKeys Name="CFBundleDisplayName"/>
139
+ <VersionInfoKeys Name="UIDeviceFamily"/>
140
+ <VersionInfoKeys Name="CFBundleIdentifier"/>
141
+ <VersionInfoKeys Name="CFBundleVersion"/>
142
+ <VersionInfoKeys Name="CFBundlePackageType"/>
143
+ <VersionInfoKeys Name="CFBundleSignature"/>
144
+ <VersionInfoKeys Name="CFBundleAllowMixedLocalizations"/>
145
+ <VersionInfoKeys Name="UISupportedInterfaceOrientations"/>
146
+ <VersionInfoKeys Name="CFBundleExecutable"/>
147
+ <VersionInfoKeys Name="CFBundleResourceSpecification"/>
148
+ <VersionInfoKeys Name="LSRequiresIPhoneOS"/>
149
+ <VersionInfoKeys Name="CFBundleInfoDictionaryVersion"/>
150
+ <VersionInfoKeys Name="CFBundleDevelopmentRegion"/>
151
+ <VersionInfoKeys Name="package"/>
152
+ <VersionInfoKeys Name="label"/>
153
+ <VersionInfoKeys Name="versionCode"/>
154
+ <VersionInfoKeys Name="versionName"/>
155
+ <VersionInfoKeys Name="persistent"/>
156
+ <VersionInfoKeys Name="restoreAnyVersion"/>
157
+ <VersionInfoKeys Name="installLocation"/>
158
+ <VersionInfoKeys Name="largeHeap"/>
159
+ <VersionInfoKeys Name="theme"/>
160
+ </VersionInfoKeys>
161
+ <Source>
162
+ <Source Name="MainSource">BankAccountTests.dpr</Source>
163
+ </Source>
164
+ </Delphi.Personality>
165
+ <Deployment/>
166
+ <Platforms>
167
+ <Platform value="OSX32">False</Platform>
168
+ <Platform value="Win32">True</Platform>
169
+ <Platform value="Win64">False</Platform>
170
+ </Platforms>
171
+ </BorlandProject>
172
+ <ProjectFileVersion>12</ProjectFileVersion>
173
+ </ProjectExtensions>
174
+ <Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
175
+ <Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/>
176
+ </Project>
@@ -0,0 +1,96 @@
1
+ unit uBankAccount;
2
+
3
+ interface
4
+ uses System.SysUtils;
5
+
6
+ type
7
+ EAccountNotOpen = class(Exception);
8
+
9
+ IBankAccount = interface(IInvokable)
10
+ ['{5DA23C52-A1D1-4FBE-8601-1CF194B2C372}']
11
+ function GetBalance: Double;
12
+ procedure UpdateBalance(aValue: Double);
13
+ procedure Open;
14
+ procedure Close;
15
+ property Balance: Double read GetBalance;
16
+ end;
17
+
18
+ TBankAccount = class(TInterfacedObject, IBankAccount)
19
+ private
20
+ fLock: TMREWSync;
21
+ fBalance: Double;
22
+ fIsOpen: Boolean;
23
+ function GetBalance: Double;
24
+ public
25
+ constructor Create;
26
+ destructor Destroy; override;
27
+ procedure Open;
28
+ procedure Close;
29
+ procedure UpdateBalance(aValue: Double);
30
+ property Balance: Double read GetBalance;
31
+ end;
32
+
33
+ implementation
34
+
35
+
36
+ constructor TBankAccount.Create;
37
+ begin
38
+ inherited create;
39
+ fLock := TMREWSync.Create;
40
+ fBalance := 0;
41
+ fIsOpen := false;
42
+ end;
43
+
44
+ destructor TBankAccount.Destroy;
45
+ begin
46
+ fLock.Free;
47
+ inherited Destroy;
48
+ end;
49
+
50
+ procedure TBankAccount.Open;
51
+ begin
52
+ fLock.BeginWrite;
53
+ try
54
+ fIsOpen := true;
55
+ finally
56
+ fLock.EndWrite;
57
+ end;
58
+ end;
59
+
60
+ procedure TBankAccount.Close;
61
+ begin
62
+ fLock.BeginWrite;
63
+ try
64
+ fIsOpen := false;
65
+ finally
66
+ fLock.EndWrite;
67
+ end;
68
+ end;
69
+
70
+ function TBankAccount.GetBalance;
71
+ begin
72
+ fLock.BeginRead;
73
+ try
74
+ if not fIsOpen then
75
+ raise EAccountNotOpen.Create('Cannot get balance on an account that isn''t open');
76
+
77
+ result := fBalance;
78
+ finally
79
+ fLock.EndRead;
80
+ end;
81
+ end;
82
+
83
+ procedure TBankAccount.UpdateBalance(aValue: Double);
84
+ begin
85
+ fLock.BeginWrite;
86
+ try
87
+ if not fIsOpen then
88
+ raise EAccountNotOpen.Create('Cannot update balance on an account that isn''t open');
89
+
90
+ fBalance := fBalance + aValue;
91
+ finally
92
+ fLock.EndWrite;
93
+ end;
94
+ end;
95
+
96
+ end.
@@ -0,0 +1,140 @@
1
+ unit uBankAccountTests;
2
+
3
+ interface
4
+ uses
5
+ DUnitX.TestFramework;
6
+
7
+ type
8
+
9
+ [TestFixture]
10
+ BankAccountTests = class(TObject)
11
+ public
12
+ [Test]
13
+ [Ignore]
14
+ procedure Returns_empty_balance_after_opening;
15
+
16
+ [Test]
17
+ [Ignore]
18
+ procedure Check_basic_balance;
19
+
20
+ [Test]
21
+ [Ignore]
22
+ procedure Balance_can_increment_and_decrement;
23
+
24
+ [Test]
25
+ [Ignore]
26
+ procedure Closed_account_throws_exception_when_checking_balance;
27
+
28
+ [Test]
29
+ [Ignore]
30
+ procedure Change_account_balance_from_multiple_threads;
31
+ end;
32
+
33
+ implementation
34
+ uses System.Classes, System.SyncObjs, uBankAccount;
35
+
36
+ const HalfCentTolerance = 0.005;
37
+
38
+ procedure BankAccountTests.Returns_empty_balance_after_opening;
39
+ var account: IBankAccount;
40
+ begin
41
+ account := TBankAccount.Create;
42
+ account.Open;
43
+ assert.AreEqual(0.00,account.Balance,HalfCentTolerance);
44
+ end;
45
+
46
+ procedure BankAccountTests.Check_basic_balance;
47
+ var account: IBankAccount;
48
+ openingBalance: Double;
49
+ updatedBalance: Double;
50
+ begin
51
+ account := TBankAccount.Create;
52
+ account.Open;
53
+
54
+ openingBalance := account.Balance;
55
+ account.UpdateBalance(10);
56
+
57
+ updatedBalance := account.Balance;
58
+
59
+ assert.AreEqual(0, openingBalance, HalfCentTolerance);
60
+ assert.AreEqual(10, updatedBalance, HalfCentTolerance);
61
+ end;
62
+
63
+ procedure BankAccountTests.Balance_can_increment_and_decrement;
64
+ var account: IBankAccount;
65
+ openingBalance: Double;
66
+ addedBalance: Double;
67
+ subtractedBalance: Double;
68
+ begin
69
+ account := TBankAccount.Create;
70
+ account.Open;
71
+
72
+ openingBalance := account.Balance;
73
+
74
+ account.UpdateBalance(10);
75
+ addedBalance := account.Balance;
76
+
77
+ account.UpdateBalance(-15);
78
+ subtractedBalance := account.Balance;
79
+
80
+ assert.AreEqual(0, openingBalance, HalfCentTolerance);
81
+ assert.AreEqual(10, addedBalance, HalfCentTolerance);
82
+ assert.AreEqual(-5, subtractedBalance, HalfCentTolerance);
83
+ end;
84
+
85
+ procedure BankAccountTests.Closed_account_throws_exception_when_checking_balance;
86
+ var MyProc: TTestLocalMethod;
87
+ begin
88
+ MyProc := procedure
89
+ var account: IBankAccount;
90
+ begin
91
+ account := TBankAccount.Create;
92
+ account.Open;
93
+ account.Close;
94
+ account.Balance;
95
+ end;
96
+
97
+ assert.WillRaise(MyProc, EAccountNotOpen);
98
+ end;
99
+
100
+ procedure BankAccountTests.Change_account_balance_from_multiple_threads;
101
+ const threads = 500;
102
+ iterations = 100;
103
+
104
+ var account: IBankAccount;
105
+ activeThreadCount: integer;
106
+ allthreadsDone: TEvent;
107
+ i: integer;
108
+ begin
109
+ activeThreadCount := threads;
110
+ account := TBankAccount.Create;
111
+ account.Open;
112
+
113
+ allThreadsDone := TEvent.Create(nil, True, False,'AllThreadsDone');
114
+ allThreadsDone.ResetEvent;
115
+ for i := 1 to threads do
116
+ begin
117
+ TThread.CreateAnonymousThread(
118
+ procedure
119
+ var j: integer;
120
+ begin
121
+ for j := 1 to iterations do
122
+ begin
123
+ account.UpdateBalance(1);
124
+ account.UpdateBalance(-1);
125
+ end;
126
+
127
+ dec(activeThreadCount);
128
+ if activeThreadCount <= 0 then
129
+ allthreadsDone.SetEvent;
130
+ end)
131
+ .Start;
132
+ end;
133
+
134
+ assert.AreEqual(wrSignaled,allthreadsDone.WaitFor(60000));
135
+ assert.AreEqual(0, account.Balance, HalfCentTolerance);
136
+ end;
137
+
138
+ initialization
139
+ TDUnitX.RegisterTestFixture(BankAccountTests);
140
+ end.
@@ -0,0 +1,60 @@
1
+ program BeerSongTests;
2
+
3
+ {$IFNDEF TESTINSIGHT}
4
+ {$APPTYPE CONSOLE}
5
+ {$ENDIF}{$STRONGLINKTYPES ON}
6
+ uses
7
+ System.SysUtils,
8
+ {$IFDEF TESTINSIGHT}
9
+ TestInsight.DUnitX,
10
+ {$ENDIF }
11
+ DUnitX.Loggers.Console,
12
+ DUnitX.Loggers.Xml.NUnit,
13
+ DUnitX.TestFramework,
14
+ uBeerSongTests in 'uBeerSongTests.pas',
15
+ uBeerSong in 'uBeerSong.pas';
16
+
17
+ var
18
+ runner : ITestRunner;
19
+ results : IRunResults;
20
+ logger : ITestLogger;
21
+ nunitLogger : ITestLogger;
22
+ begin
23
+ {$IFDEF TESTINSIGHT}
24
+ TestInsight.DUnitX.RunRegisteredTests;
25
+ exit;
26
+ {$ENDIF}
27
+ try
28
+ //Check command line options, will exit if invalid
29
+ TDUnitX.CheckCommandLine;
30
+ //Create the test runner
31
+ runner := TDUnitX.CreateRunner;
32
+ //Tell the runner to use RTTI to find Fixtures
33
+ runner.UseRTTI := True;
34
+ //tell the runner how we will log things
35
+ //Log to the console window
36
+ logger := TDUnitXConsoleLogger.Create(true);
37
+ runner.AddLogger(logger);
38
+ //Generate an NUnit compatible XML File
39
+ nunitLogger := TDUnitXXMLNUnitFileLogger.Create(TDUnitX.Options.XMLOutputFile);
40
+ runner.AddLogger(nunitLogger);
41
+ runner.FailsOnNoAsserts := False; //When true, Assertions must be made during tests;
42
+
43
+ //Run tests
44
+ results := runner.Execute;
45
+ if not results.AllPassed then
46
+ System.ExitCode := EXIT_ERRORS;
47
+
48
+ {$IFNDEF CI}
49
+ //We don't want this happening when running under CI.
50
+ if TDUnitX.Options.ExitBehavior = TDUnitXExitBehavior.Pause then
51
+ begin
52
+ System.Write('Done.. press <Enter> key to quit.');
53
+ System.Readln;
54
+ end;
55
+ {$ENDIF}
56
+ except
57
+ on E: Exception do
58
+ System.Writeln(E.ClassName, ': ', E.Message);
59
+ end;
60
+ end.