anchor.diff:  
       [Test]
       [Ignore]
  +    procedure Invalid_when_9_digits;
  +
  +    [Test]
  +    [Ignore]
  +    procedure Invalid_when_11_digits_does_not_start_with_a_1;
  +
  +    [Test]
  +    [Ignore]
       procedure Valid_when_11_digits_and_starting_with_1;
   
       [Test]
       [Ignore]
  -    procedure Invalid_when_9_digits;
  -
  -    [Test]
  -    [Ignore]
  -    procedure Invalid_when_11_digits_does_not_start_with_a_1;
  +    procedure Valid_when_11_digits_and_starting_with_1_even_with_punctuation;
   
       [Test]
       [Ignore]
  
positive.code: uses
    DUnitX.TestFramework;
  
  type
  
    [TestFixture]
  
negative.code:   assert.AreEqual('', phone.Clean);
  end;
  
  procedure PhoneNumberTests.Invalid_if_area_code_starts_with_0;
  var phone: IPhoneNumber;
  begin
    phone := NewPhoneNumber('(023) 456-7890');
    assert.AreEqual('', phone.Clean);
  end;
  
  procedure PhoneNumberTests.Invalid_if_area_code_starts_with_1;
  var phone: IPhoneNumber;
  begin
    phone := NewPhoneNumber('(123) 456-7890');
    assert.AreEqual('', phone.Clean);
  end;
  
  procedure PhoneNumberTests.Invalid_if_exchange_code_starts_with_0;
  var phone: IPhoneNumber;
  begin
    phone := NewPhoneNumber('(223) 056-7890');
    assert.AreEqual('', phone.Clean);
  end;
  
  procedure PhoneNumberTests.Invalid_if_exchange_code_starts_with_1;
  var phone: IPhoneNumber;
  begin
    phone := NewPhoneNumber('(223) 156-7890');
    assert.AreEqual('', phone.Clean);
  end;
  
  