EMail validation

Author: Al-Muhandis

tests/test_yookassa_api.pas

@@ -74,6 +74,8 @@   TTestYooKassa = class(TTestCase)
     procedure TestLogging;
     procedure TestMarkCodeInfoValidation;
     procedure TestPhoneValidation;
+    procedure TestEmailValidation;
+    procedure TestEmailAndPhoneValidationTogether;
   end;
 
 implementation
@@ -819,6 +821,163 @@ procedure TTestYooKassa.TestPhoneValidation;
   end;
 end;
 
+procedure TTestYooKassa.TestEmailValidation;
+var
+  User: TYookassaUser;
+begin
+  User := TYookassaUser.Create;
+  try
+    // Валидные форматы email с нормализацией
+    User.Email := 'User@Example.Com';
+    AssertEquals('user@example.com', User.Email);
+
+    User.Email := 'user_name@sub.domain.org';
+    AssertEquals('user_name@sub.domain.org', User.Email);
+
+    User.Email := 'test-email@domain-name.com';
+    AssertEquals('test-email@domain-name.com', User.Email);
+
+    // Пустой email должен работать
+    User.Email := '';
+    AssertEquals('', User.Email);
+
+    // Невалидные email должны вызывать исключение
+    try
+      User.Email := 'invalid-email'; // Нет @
+      Fail('Should raise validation error for missing @');
+    except
+      on EYooKassaValidationError do
+        ; // Expected
+    end;
+
+    try
+      User.Email := 'user@@domain.com'; // Двойной @
+      Fail('Should raise validation error for double @');
+    except
+      on EYooKassaValidationError do
+        ; // Expected
+    end;
+
+    try
+      User.Email := '@domain.com'; // Нет локальной части
+      Fail('Should raise validation error for missing local part');
+    except
+      on EYooKassaValidationError do
+        ; // Expected
+    end;
+
+    try
+      User.Email := 'user@'; // Нет доменной части
+      Fail('Should raise validation error for missing domain');
+    except
+      on EYooKassaValidationError do
+        ; // Expected
+    end;
+
+    try
+      User.Email := 'user@domain'; // Нет TLD
+      Fail('Should raise validation error for missing TLD');
+    except
+      on EYooKassaValidationError do
+        ; // Expected
+    end;
+
+    try
+      User.Email := '.user@domain.com'; // Локальная часть начинается с точки
+      Fail('Should raise validation error for local part starting with dot');
+    except
+      on EYooKassaValidationError do
+        ; // Expected
+    end;
+
+    try
+      User.Email := 'user.@domain.com'; // Локальная часть заканчивается точкой
+      Fail('Should raise validation error for local part ending with dot');
+    except
+      on EYooKassaValidationError do
+        ; // Expected
+    end;
+
+    try
+      User.Email := 'user@.domain.com'; // Домен начинается с точки
+      Fail('Should raise validation error for domain starting with dot');
+    except
+      on EYooKassaValidationError do
+        ; // Expected
+    end;
+
+    try
+      User.Email := 'user@domain.com.'; // Домен заканчивается точкой
+      Fail('Should raise validation error for domain ending with dot');
+    except
+      on EYooKassaValidationError do
+        ; // Expected
+    end;
+
+    try
+      User.Email := 'user with spaces@domain.com'; // Пробелы в локальной части
+      Fail('Should raise validation error for spaces in local part');
+    except
+      on EYooKassaValidationError do
+        ; // Expected
+    end;
+
+    try
+      User.Email := 'user@domain with spaces.com'; // Пробелы в домене
+      Fail('Should raise validation error for spaces in domain');
+    except
+      on EYooKassaValidationError do
+        ; // Expected
+    end;
+
+  finally
+    User.Free;
+  end;
+end;
+
+procedure TTestYooKassa.TestEmailAndPhoneValidationTogether;
+var
+  User: TYookassaUser;
+  Receipt: TYookassaReceipt;
+  JSON: TJSONObject;
+begin
+  // Тестируем совместное использование валидации email и phone
+  User := TYookassaUser.Create;
+  try
+    // Валидация и нормализация обоих полей
+    User.Email := 'TEST.User@EXAMPLE.COM';
+    User.Phone := '+7 (900) 123-45-67';
+
+    AssertEquals('test.user@example.com', User.Email);
+    AssertEquals('79001234567', User.Phone);
+
+    // Тест в составе чека
+    Receipt := TYookassaReceipt.Create;
+    try
+      Receipt.Customer.Email := '  Customer@TEST.RU  ';
+      Receipt.Customer.Phone := '8-900-123-45-67';
+
+      AssertEquals('customer@test.ru', Receipt.Customer.Email);
+      AssertEquals('79001234567', Receipt.Customer.Phone);
+
+      // Проверяем что в JSON попадают нормализованные значения
+      JSON := Receipt.ToJSON;
+      try
+        AssertEquals('customer@test.ru', JSON.Objects['customer'].Get('email', ''));
+        AssertEquals('79001234567', JSON.Objects['customer'].Get('phone', ''));
+      finally
+        JSON.Free;
+      end;
+
+    finally
+      Receipt.Free;
+    end;
+
+  finally
+    User.Free;
+  end;
+end;
+
 initialization
   RegisterTest(TTestYooKassa);
 

yookassa_constants.pas

@@ -185,6 +185,12 @@ interface
   _ERR_REFUND_ID_REQUIRED = 'For refund receipt, either PaymentId or RefundId must be specified';
   _ERR_HTTP_METHOD_NOT_SUPPORTED = 'HTTP method not supported: %s';
   _ERR_INVALID_PHONE_FORMAT = '%s "%s" is not in valid ITU-T E.164 format. Expected format: 79001234567';
+  _ERR_INVALID_EMAIL_FORMAT = '%s "%s" is not in valid email format. Expected format: user@example.com';
+
+  // Validation Limits для email (НОВОЕ)
+  _MAX_EMAIL_LENGTH = 254;
+  _MAX_LOCAL_PART_LENGTH = 64;
+  _MAX_DOMAIN_PART_LENGTH = 253;
 
   // Response Messages
   _RESPONSE_STATUS_OK = '{"status": "ok"}';

yookassa_models.pas

@@ -115,6 +115,7 @@   TYookassaUser = class(TYookassaAPIObject)
     FFullName: String;
     FINN: String;
     FPhone: String;
+    procedure SetEmail(const AValue: String);
     procedure SetPhone(const AValue: String);
   public
     function ToJSON: TJSONObject; override;
@@ -126,7 +127,7 @@   TYookassaUser = class(TYookassaAPIObject)
     property INN: String read FINN write FINN;
 { Электронная почта пользователя для отправки чека. Обязательный параметр, если используете Чеки от ЮKassa
   или если используете другое решение (стороннюю онлайн-кассу, чеки самозанятых) и не передаете phone. }
-    property Email: String read FEmail write FEmail;
+    property Email: String read FEmail write SetEmail;
 { Телефон пользователя для отправки чека. Указывается в формате ITU-T E.164, например 79000000000.
   Обязательный параметр, если не передан email }
     property Phone: String read FPhone write SetPhone;
@@ -546,6 +547,15 @@ procedure TYookassaUser.SetPhone(const AValue: String);
   FPhone := aTempPhone;
 end;
 
+procedure TYookassaUser.SetEmail(const AValue: String);
+var
+  aTempEmail: string;
+begin
+  aTempEmail := AValue;
+  TYookassaEmailValidator.ValidateAndNormalizeEmail(aTempEmail, 'Customer');
+  FEmail := aTempEmail;
+end;
+
 function TYookassaUser.ToJSON: TJSONObject;
 begin
   Result := TJSONObject.Create;