dividing the yookassa_api.pas

Author: Al-Muhandis

tests/test_yookassa_api.pas

@@ -5,7 +5,7 @@
 interface
 
 uses
-  Classes, SysUtils, fpcunit, testregistry, yookassa_api, fpjson
+  Classes, SysUtils, fpcunit, testregistry, fpjson, yookassa_responses, yookassa_models, yookassa_requests
   ;
 
 type
@@ -114,7 +114,7 @@ procedure TTestYooKassa.CallToJSON;
 
 procedure TTestYooKassa.FillPaymentData(aPayment: TYookassaCreatePaymentRequest);
 begin
-  aPayment.Amount := 123000.45;
+  aPayment.Amount := 12300.55;
   aPayment.Currency := 'RUB';
   aPayment.Description := 'Test payment';
   aPayment.ReturnUrl:='https://sample.com/';
@@ -175,7 +175,7 @@ procedure TTestYooKassa.TestBuildRequestData;
     o.Free;
   end;
   AssertTrue(Pos('"amount"', aJSON) > 0);
-  AssertTrue(Pos('"value" : "123000.45"', aJSON) > 0);
+  AssertTrue(Pos('"value" : "12300.55"', aJSON) > 0);
 end;
 
 procedure TTestYooKassa.TestCreatePaymentStatic;
@@ -782,4 +782,5 @@ procedure TTestYooKassa.TestMarkCodeInfoValidation;
 
 initialization
   RegisterTest(TTestYooKassa);
+
 end.

tests/test_yookassa_api_gui.lpi

@@ -113,7 +113,7 @@
         <IsPartOfProject Value="True"/>
       </Unit>
       <Unit>
-        <Filename Value="..\yookassa_api.pas"/>
+        <Filename Value="..\yookassa_responses.pas"/>
         <IsPartOfProject Value="True"/>
       </Unit>
       <Unit>
@@ -124,6 +124,14 @@
         <Filename Value="test_yookassa_webhook.pas"/>
         <IsPartOfProject Value="True"/>
       </Unit>
+      <Unit>
+        <Filename Value="..\yookassa_models.pas"/>
+        <IsPartOfProject Value="True"/>
+      </Unit>
+      <Unit>
+        <Filename Value="..\yookassa_requests.pas"/>
+        <IsPartOfProject Value="True"/>
+      </Unit>
     </Units>
   </ProjectOptions>
   <CompilerOptions>

tests/test_yookassa_api_gui.lpr

@@ -3,8 +3,7 @@
 {$mode objfpc}{$H+}
 
 uses
-  Interfaces, Forms, GuiTestRunner, test_yookassa_api, test_yookassa_webhook
-  ;
+  Interfaces, Forms, GuiTestRunner, test_yookassa_api, test_yookassa_webhook, yookassa_models;
 
 {$R *.res}
 

tests/test_yookassa_api_integration.pas

@@ -5,7 +5,7 @@
 interface
 
 uses
-  Classes, SysUtils, fpcunit, testregistry, fpjson, yookassa_api, eventlog
+  Classes, SysUtils, fpcunit, testregistry, fpjson, eventlog, yookassa_responses, yookassa_models, yookassa_requests
   ;
 
 type

tests/test_yookassa_api_integration_gui.lpi

@@ -115,16 +115,11 @@
         <IsPartOfProject Value="True"/>
       </Unit>
       <Unit>
-        <Filename Value="tests_test_yookassa_api_integration.pas"/>
-        <IsPartOfProject Value="True"/>
-        <UnitName Value="test_yookassa_api_integration"/>
-      </Unit>
-      <Unit>
-        <Filename Value="..\yookassa_api.pas"/>
+        <Filename Value="..\yookassa_exceptions.pas"/>
         <IsPartOfProject Value="True"/>
       </Unit>
       <Unit>
-        <Filename Value="..\yookassa_exceptions.pas"/>
+        <Filename Value="..\yookassa_responses.pas"/>
         <IsPartOfProject Value="True"/>
       </Unit>
     </Units>

tests/test_yookassa_api_integration_gui.lpr

@@ -3,7 +3,7 @@
 {$mode objfpc}{$H+}
 
 uses
-  Interfaces, Forms, GuiTestRunner, test_yookassa_api_integration
+  Interfaces, Forms, GuiTestRunner, test_yookassa_api_integration, yookassa_responses
   ;
 
 {$R *.res}