trackler 2.0.5.13 → 2.0.5.14

data/tracks/pascal/exercises/perfect-numbers/uPerfectNumbersExample.pas

@@ -0,0 +1,34 @@
+unit uPerfectNumbers;
+
+interface
+
+type
+  NumberType = (Perfect, Abundant, Deficient);
+
+  PerfectNumber = class
+  public
+    class function Classify(aNumber: integer): Numbertype; static;
+  end;
+
+implementation
+
+class function PerfectNumber.Classify(aNumber: Integer): NumberType;
+var sumOfFactors: integer;
+    i: integer;
+begin
+  sumOfFactors := 0;
+
+  for i := 1 to aNumber - 1 do
+    if aNumber mod i = 0 then
+      sumOfFactors := sumOfFactors + i;
+
+  if sumOfFactors < aNumber then
+    result := Deficient
+  else
+    if sumOfFactors = aNumber then
+      result := Perfect
+    else
+      result := Abundant;
+end;
+
+end.

data/tracks/pascal/exercises/perfect-numbers/uPerfectNumbersTest.pas

@@ -0,0 +1,48 @@
+unit uPerfectNumbersTest;
+
+interface
+uses
+  DUnitX.TestFramework;
+
+type
+
+  [TestFixture]
+  PerfectNumbersTest = class(TObject) 
+  public
+    [TestCase('3','3')]
+//    [TestCase('7','7')]
+//    [TestCase('13','13')]
+    procedure Can_classify_deficient_numbers(const aNumber: Integer);
+
+//    [TestCase('6','6')]
+//    [TestCase('28','28')]
+//    [TestCase('496','496')]
+    procedure Can_classify_perfect_numbers(const aNumber: Integer);
+
+//    [TestCase('12','12')]
+//    [TestCase('18','18')]
+//    [TestCase('20','20')]
+    procedure Can_classify_abundant_numbers(const aNumber: Integer);
+  end;
+
+implementation
+uses uPerfectNumbers;
+
+procedure PerfectNumbersTest.Can_classify_deficient_numbers(const aNumber: Integer);
+begin
+  Assert.AreEqual(Deficient, PerfectNumber.Classify(aNumber));
+end;
+
+procedure PerfectNumbersTest.Can_classify_perfect_numbers(const aNumber: Integer);
+begin
+  Assert.AreEqual(Perfect, PerfectNumber.Classify(aNumber));
+end;
+
+procedure PerfectNumbersTest.Can_classify_abundant_numbers(const aNumber: Integer);
+begin
+  Assert.AreEqual(Abundant, PerfectNumber.Classify(aNumber));
+end;
+
+initialization
+  TDUnitX.RegisterTestFixture(PerfectNumbersTest);
+end.

data/tracks/pascal/exercises/phone-number/PhoneNumberTests.dpr

@@ -0,0 +1,60 @@
+program PhoneNumberTests;
+
+{$IFNDEF TESTINSIGHT}
+{$APPTYPE CONSOLE}
+{$ENDIF}{$STRONGLINKTYPES ON}
+uses
+  System.SysUtils,
+  {$IFDEF TESTINSIGHT}
+  TestInsight.DUnitX,
+  {$ENDIF }
+  DUnitX.Loggers.Console,
+  DUnitX.Loggers.Xml.NUnit,
+  DUnitX.TestFramework,
+  uPhoneNumberTests in 'uPhoneNumberTests.pas',
+  uPhoneNumber in 'uPhoneNumber.pas';
+
+var
+  runner : ITestRunner;
+  results : IRunResults;
+  logger : ITestLogger;
+  nunitLogger : ITestLogger;
+begin
+{$IFDEF TESTINSIGHT}
+  TestInsight.DUnitX.RunRegisteredTests;
+  exit;
+{$ENDIF}
+  try
+    //Check command line options, will exit if invalid
+    TDUnitX.CheckCommandLine;
+    //Create the test runner
+    runner := TDUnitX.CreateRunner;
+    //Tell the runner to use RTTI to find Fixtures
+    runner.UseRTTI := True;
+    //tell the runner how we will log things
+    //Log to the console window
+    logger := TDUnitXConsoleLogger.Create(true);
+    runner.AddLogger(logger);
+    //Generate an NUnit compatible XML File
+    nunitLogger := TDUnitXXMLNUnitFileLogger.Create(TDUnitX.Options.XMLOutputFile);
+    runner.AddLogger(nunitLogger);
+    runner.FailsOnNoAsserts := False; //When true, Assertions must be made during tests;
+
+    //Run tests
+    results := runner.Execute;
+    if not results.AllPassed then
+      System.ExitCode := EXIT_ERRORS;
+
+    {$IFNDEF CI}
+    //We don't want this happening when running under CI.
+    if TDUnitX.Options.ExitBehavior = TDUnitXExitBehavior.Pause then
+    begin
+      System.Write('Done.. press <Enter> key to quit.');
+      System.Readln;
+    end;
+    {$ENDIF}
+  except
+    on E: Exception do
+      System.Writeln(E.ClassName, ': ', E.Message);
+  end;
+end.

data/tracks/pascal/exercises/phone-number/PhoneNumberTests.dproj

@@ -0,0 +1,176 @@
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+    <PropertyGroup>
+        <ProjectGuid>{F48E93D8-4D8C-41F2-8704-CC866D636E78}</ProjectGuid>
+        <ProjectVersion>15.3</ProjectVersion>
+        <FrameworkType>None</FrameworkType>
+        <MainSource>PhoneNumberTests.dpr</MainSource>
+        <Base>True</Base>
+        <Config Condition="'$(Config)'==''">Debug</Config>
+        <Platform Condition="'$(Platform)'==''">Win32</Platform>
+        <TargetedPlatforms>1</TargetedPlatforms>
+        <AppType>Console</AppType>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='OSX32' and '$(Base)'=='true') or '$(Base_OSX32)'!=''">
+        <Base_OSX32>true</Base_OSX32>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
+        <Base_Win32>true</Base_Win32>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
+        <Base_Win64>true</Base_Win64>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_1)'!=''">
+        <Cfg_1>true</Cfg_1>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win32)'!=''">
+        <Cfg_1_Win32>true</Cfg_1_Win32>
+        <CfgParent>Cfg_1</CfgParent>
+        <Cfg_1>true</Cfg_1>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_2)'!=''">
+        <Cfg_2>true</Cfg_2>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Base)'!=''">
+        <DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;$(DCC_Namespace)</DCC_Namespace>
+        <Icns_MainIcns>$(BDS)\bin\delphi_PROJECTICNS.icns</Icns_MainIcns>
+        <DCC_UnitSearchPath>$(DUnitX);$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+        <DCC_DcuOutput>.\$(Platform)\$(Config)</DCC_DcuOutput>
+        <DCC_ExeOutput>.\$(Platform)\$(Config)</DCC_ExeOutput>
+        <DCC_E>false</DCC_E>
+        <DCC_N>false</DCC_N>
+        <DCC_S>false</DCC_S>
+        <DCC_F>false</DCC_F>
+        <DCC_K>false</DCC_K>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Base_OSX32)'!=''">
+        <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>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Base_Win32)'!=''">
+        <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>
+        <DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
+        <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
+        <VerInfo_Locale>1033</VerInfo_Locale>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Base_Win64)'!=''">
+        <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>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Cfg_1)'!=''">
+        <DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
+        <DCC_DebugDCUs>true</DCC_DebugDCUs>
+        <DCC_Optimize>false</DCC_Optimize>
+        <DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
+        <DCC_DebugInfoInExe>true</DCC_DebugInfoInExe>
+        <DCC_RemoteDebug>true</DCC_RemoteDebug>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
+        <DCC_RemoteDebug>false</DCC_RemoteDebug>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Cfg_2)'!=''">
+        <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
+        <DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
+        <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+        <DCC_DebugInformation>0</DCC_DebugInformation>
+    </PropertyGroup>
+    <ItemGroup>
+        <DelphiCompile Include="$(MainSource)">
+            <MainSource>MainSource</MainSource>
+        </DelphiCompile>
+        <DCCReference Include="uPhoneNumberTests.pas"/>
+        <DCCReference Include="uPhoneNumber.pas"/>
+        <BuildConfiguration Include="Release">
+            <Key>Cfg_2</Key>
+            <CfgParent>Base</CfgParent>
+        </BuildConfiguration>
+        <BuildConfiguration Include="Base">
+            <Key>Base</Key>
+        </BuildConfiguration>
+        <BuildConfiguration Include="Debug">
+            <Key>Cfg_1</Key>
+            <CfgParent>Base</CfgParent>
+        </BuildConfiguration>
+    </ItemGroup>
+    <ProjectExtensions>
+        <Borland.Personality>Delphi.Personality.12</Borland.Personality>
+        <Borland.ProjectType/>
+        <BorlandProject>
+            <Delphi.Personality>
+                <VersionInfo>
+                    <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+                    <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+                    <VersionInfo Name="MajorVer">1</VersionInfo>
+                    <VersionInfo Name="MinorVer">0</VersionInfo>
+                    <VersionInfo Name="Release">0</VersionInfo>
+                    <VersionInfo Name="Build">0</VersionInfo>
+                    <VersionInfo Name="Debug">False</VersionInfo>
+                    <VersionInfo Name="PreRelease">False</VersionInfo>
+                    <VersionInfo Name="Special">False</VersionInfo>
+                    <VersionInfo Name="Private">False</VersionInfo>
+                    <VersionInfo Name="DLL">False</VersionInfo>
+                    <VersionInfo Name="Locale">1033</VersionInfo>
+                    <VersionInfo Name="CodePage">1252</VersionInfo>
+                </VersionInfo>
+                <VersionInfoKeys>
+                    <VersionInfoKeys Name="CompanyName"/>
+                    <VersionInfoKeys Name="FileDescription"/>
+                    <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+                    <VersionInfoKeys Name="InternalName"/>
+                    <VersionInfoKeys Name="LegalCopyright"/>
+                    <VersionInfoKeys Name="LegalTrademarks"/>
+                    <VersionInfoKeys Name="OriginalFilename"/>
+                    <VersionInfoKeys Name="ProductName"/>
+                    <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+                    <VersionInfoKeys Name="Comments"/>
+                    <VersionInfoKeys Name="CFBundleName"/>
+                    <VersionInfoKeys Name="CFBundleDisplayName"/>
+                    <VersionInfoKeys Name="UIDeviceFamily"/>
+                    <VersionInfoKeys Name="CFBundleIdentifier"/>
+                    <VersionInfoKeys Name="CFBundleVersion"/>
+                    <VersionInfoKeys Name="CFBundlePackageType"/>
+                    <VersionInfoKeys Name="CFBundleSignature"/>
+                    <VersionInfoKeys Name="CFBundleAllowMixedLocalizations"/>
+                    <VersionInfoKeys Name="UISupportedInterfaceOrientations"/>
+                    <VersionInfoKeys Name="CFBundleExecutable"/>
+                    <VersionInfoKeys Name="CFBundleResourceSpecification"/>
+                    <VersionInfoKeys Name="LSRequiresIPhoneOS"/>
+                    <VersionInfoKeys Name="CFBundleInfoDictionaryVersion"/>
+                    <VersionInfoKeys Name="CFBundleDevelopmentRegion"/>
+                    <VersionInfoKeys Name="package"/>
+                    <VersionInfoKeys Name="label"/>
+                    <VersionInfoKeys Name="versionCode"/>
+                    <VersionInfoKeys Name="versionName"/>
+                    <VersionInfoKeys Name="persistent"/>
+                    <VersionInfoKeys Name="restoreAnyVersion"/>
+                    <VersionInfoKeys Name="installLocation"/>
+                    <VersionInfoKeys Name="largeHeap"/>
+                    <VersionInfoKeys Name="theme"/>
+                </VersionInfoKeys>
+                <Source>
+                    <Source Name="MainSource">PhoneNumberTests.dpr</Source>
+                </Source>
+            </Delphi.Personality>
+            <Deployment/>
+            <Platforms>
+                <Platform value="OSX32">False</Platform>
+                <Platform value="Win32">True</Platform>
+                <Platform value="Win64">False</Platform>
+            </Platforms>
+        </BorlandProject>
+        <ProjectFileVersion>12</ProjectFileVersion>
+    </ProjectExtensions>
+    <Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+    <Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/>
+</Project>

data/tracks/pascal/exercises/phone-number/uPhoneNumberExample.pas

@@ -0,0 +1,102 @@
+unit uPhoneNumber;
+
+interface
+
+type
+   IPhoneNumber = interface(IInvokable)
+   ['{2415B863-E2D7-4E13-BDEF-F7FE9B3E0788}']
+     function GetNumber: string;
+     function GetAreaCode: string;
+     function ToString: string;
+     property Number: string read GetNumber;
+     property AreaCode: string read GetAreaCode;
+   end;
+
+function NewPhoneNumber(aPhoneNumber: string): IPhoneNumber;
+
+implementation
+uses RegularExpressions, System.SysUtils, System.StrUtils;
+
+type
+   TPhoneNumber = class(TInterfacedObject, IPhoneNumber)
+   private
+     fDigitsOnly: TRegex;
+     fContainsLetters: TRegex;
+     fNumber: string;
+     fAreaCode: string;
+     function GetNumber: string;
+     function GetAreaCode: string;
+     function GetValidatedPhoneNumber(aPhoneNumber: string): string;
+     function StripOutNonNumerics(aValue: string): string;
+     function IsInvalidPhoneNumber(aPhoneNumber: string): Boolean;
+     function GetInvalidPhoneNumberReplacement(aPhoneNumber: string): string;
+     function IsPhoneNumberwithUSAreaCode(aValue: string): Boolean;
+   public
+     constructor Create(aPhoneNumber: string);
+     function ToString: string;
+     property Number: string read GetNumber;
+     property AreaCode: string read GetAreaCode;
+   end;
+
+function NewPhoneNumber(aPhoneNumber: string): IPhoneNumber;
+begin
+  result := TPhoneNumber.Create(aPhoneNumber);
+end;
+
+constructor TPhoneNumber.Create(aPhoneNumber: string);
+begin
+  fDigitsOnly := TRegEx.Create('[^\d]');
+  fContainsLetters := TRegEx.Create('[a-zA-Z]');
+  fNumber := GetValidatedPhoneNumber(aPhoneNumber);
+  fAreaCode := fNumber.Substring(0, 3);
+end;
+
+function TPhoneNumber.GetNumber: string;
+begin
+  result := fNumber;
+end;
+
+function TPhoneNumber.GetAreaCode: string;
+begin
+  result := fAreaCode;
+end;
+
+function TPhoneNumber.GetValidatedPhoneNumber(aPhoneNumber: string):string;
+var stripped: string;
+begin
+  stripped := StripOutNonNumerics(aPhoneNumber);
+  if IsInvalidPhoneNumber(stripped) then
+    result := GetInvalidPhoneNumberReplacement(stripped)
+  else
+    result := stripped;
+end;
+
+function TPhoneNumber.StripOutNonNumerics(aValue: string): string;
+begin
+  if fContainsLetters.IsMatch(aValue) then
+    result := ''
+  else
+    result := fDigitsOnly.Replace(aValue, '');
+end;
+
+function TPhoneNumber.IsInvalidPhoneNumber(aPhoneNumber: string): Boolean;
+begin
+  result := aPhoneNumber.Length <> 10;
+end;
+
+function TPhoneNumber.GetInvalidPhoneNumberReplacement(aPhoneNumber: string): string;
+begin
+  result := ifthen(IsPhoneNumberwithUSAreaCode(aPhoneNumber), aPhoneNumber.Substring(1), '');
+end;
+
+function TPhoneNumber.IsPhoneNumberwithUSAreaCode(aValue: string): Boolean;
+begin
+  result := (aValue.Length = 11) and aValue.StartsWith('1');
+end;
+
+function TPhoneNumber.ToString: string;
+begin
+  result := Format('(%s) %s-%s',[AreaCode, Number.Substring(3, 3), Number.Substring(6)]);
+end;
+
+end.

data/tracks/pascal/exercises/phone-number/uPhoneNumberTests.pas

@@ -0,0 +1,138 @@
+unit uPhoneNumberTests;
+
+interface
+uses
+  DUnitX.TestFramework;
+
+type
+
+  [TestFixture]
+  PhoneNumberTests = class(TObject)
+  public
+    [Test]
+    procedure Cleans_parens_spaces_and_dashes;
+
+    [Test]
+    [Ignore]
+    procedure Cleans_numbers_with_dots;
+
+    [Test]
+    [Ignore]
+    procedure Valid_when_11_digits_and_starting_with_1;
+
+    [Test]
+    [Ignore]
+    procedure Invalid_when_11_digits;
+
+    [Test]
+    [Ignore]
+    procedure Invalid_when_12_digits;
+
+    [Test]
+    [Ignore]
+    procedure Invalid_when_9_digits;
+
+    [Test]
+    [Ignore]
+    procedure Invalid_with_letters;
+
+    [Test]
+    [Ignore]
+    procedure Invalid_with_punctuations;
+
+    [Test]
+    [Ignore]
+    procedure Invalid_with_right_number_of_digits_but_letters_mixed_in;
+
+    [Test]
+    [Ignore]
+    procedure Has_an_area_code;
+
+    [Test]
+    [Ignore]
+    procedure Formats_a_number;
+  end;
+
+implementation
+uses uPhoneNumber;
+
+procedure PhoneNumberTests.Cleans_parens_spaces_and_dashes;
+var phone: IPhoneNumber;
+begin
+  phone := NewPhoneNumber('(123) 456-7890');
+  assert.AreEqual('1234567890',phone.Number);
+end;
+
+procedure PhoneNumberTests.Cleans_numbers_with_dots;
+var phone: IPhoneNumber;
+begin
+  phone := NewPhoneNumber('123.456.7890');
+  assert.AreEqual('1234567890',phone.Number);
+end;
+
+procedure PhoneNumberTests.Valid_when_11_digits_and_starting_with_1;
+var phone: IPhoneNumber;
+begin
+  phone := NewPhoneNumber('11234567890');
+  assert.AreEqual('1234567890', phone.Number);
+end;
+
+procedure PhoneNumberTests.Invalid_when_11_digits;
+var phone: IPhoneNumber;
+begin
+  phone := NewPhoneNumber('21234567890');
+  assert.AreEqual('', phone.Number);
+end;
+
+procedure PhoneNumberTests.Invalid_when_12_digits;
+var phone: IPhoneNumber;
+begin
+  phone := NewPhoneNumber('321234567890');
+  assert.AreEqual('', phone.Number);
+end;
+
+procedure PhoneNumberTests.Invalid_when_9_digits;
+var phone: IPhoneNumber;
+begin
+  phone := NewPhoneNumber('123456789');
+  assert.AreEqual('', phone.Number);
+end;
+
+procedure PhoneNumberTests.Invalid_with_letters;
+var phone: IPhoneNumber;
+begin
+  phone := NewPhoneNumber('123-abc-7890');
+  assert.AreEqual('', phone.Number);
+end;
+
+procedure PhoneNumberTests.Invalid_with_punctuations;
+var phone: IPhoneNumber;
+begin
+  phone := NewPhoneNumber('123-@:!-7890');
+  assert.AreEqual('', phone.Number);
+end;
+
+procedure PhoneNumberTests.Invalid_with_right_number_of_digits_but_letters_mixed_in;
+var phone: IPhoneNumber;
+begin
+  phone := NewPhoneNumber('1a2b3c4d5e6f7g8h9i0j');
+  assert.AreEqual('', phone.Number);
+end;
+
+procedure PhoneNumberTests.Has_an_area_code;
+var phone: IPhoneNumber;
+begin
+  phone := NewPhoneNumber('1234567890');
+  assert.AreEqual('123', phone.AreaCode);
+end;
+
+procedure PhoneNumberTests.Formats_a_number;
+var phone: IPhoneNumber;
+begin
+  phone := NewPhoneNumber('1234567890');
+  assert.AreEqual('(123) 456-7890', phone.ToString);
+end;
+
+initialization
+  TDUnitX.RegisterTestFixture(PhoneNumberTests);
+end.