Main build (Jenkins)

.github/workflows/oint_test_full_ru.yml

@@ -1286,6 +1286,10 @@ jobs:
 
 
 
+      - name: Общие методы
+        if: ${{ cancelled() }} == false
+        run: oscript /home/runner/.local/share/ovm/current/lib/1testrunner/src/main.os -run ./src/ru/OInt/tests/Modules/internal/OPI_ТестыCLI.os "CLI_AWS_ОбщиеМетоды"
+
       - name: Работа с бакетами
         if: ${{ cancelled() }} == false
         run: oscript /home/runner/.local/share/ovm/current/lib/1testrunner/src/main.os -run ./src/ru/OInt/tests/Modules/internal/OPI_ТестыCLI.os "CLI_AWS_РаботаСБакетами"

ci/cli_ostestru

@@ -641,6 +641,10 @@ pipeline {
 			steps {
 					
 
+               catchError(buildResult: 'FAILURE', stageResult: 'FAILURE') {   
+					powershell encoding: 'UTF-8', script:'1testrunner -run "./src/ru/OInt/tests/Modules/internal/OPI_ТестыCLI.os" "CLI_AWS_ОбщиеМетоды"'
+               }
+
                catchError(buildResult: 'FAILURE', stageResult: 'FAILURE') {   
 					powershell encoding: 'UTF-8', script:'1testrunner -run "./src/ru/OInt/tests/Modules/internal/OPI_ТестыCLI.os" "CLI_AWS_РаботаСБакетами"'
                }

ci/ostestru

@@ -641,6 +641,10 @@ pipeline {
 			steps {
 					
 
+               catchError(buildResult: 'FAILURE', stageResult: 'FAILURE') {   
+					powershell encoding: 'UTF-8', script:'1testrunner -run "./src/ru/OInt/tests/Modules/internal/OPI_Тесты.os" "AWS_ОбщиеМетоды"'
+               }
+
                catchError(buildResult: 'FAILURE', stageResult: 'FAILURE') {   
 					powershell encoding: 'UTF-8', script:'1testrunner -run "./src/ru/OInt/tests/Modules/internal/OPI_Тесты.os" "AWS_РаботаСБакетами"'
                }

docs/en/data/S3/GetBasicDataStructure.json

@@ -0,0 +1,5 @@
+{
+"URL": "storage-155.s3hoster.by",
+"AccessKey": "BRN5RKJE67...",
+"SecretKey": "NNhv+i9PrytpT8Tu0C1N..."
+}

docs/en/data/S3/SendRequestWithBody.json

@@ -0,0 +1,5 @@
+{
+"URL": "storage-155.s3hoster.by",
+"AccessKey": "BRN5RKJE67...",
+"SecretKey": "NNhv+i9PrytpT8Tu0C1N..."
+}

docs/en/data/S3/SendRequestWithoutBody.json

@@ -0,0 +1,5 @@
+{
+"URL": "storage-155.s3hoster.by",
+"AccessKey": "BRN5RKJE67...",
+"SecretKey": "NNhv+i9PrytpT8Tu0C1N..."
+}

docs/en/examples/S3/GetBasicDataStructure.txt

@@ -0,0 +1,6 @@
+    URL          = "storage-155.s3hoster.by";
+    AccessKey = "BRN5RKJE67...";
+    SecretKey = "NNhv+i9PrytpT8Tu0C1N...";
+    Region    = "BTC";
+
+    Result = OPI_S3.GetBasicDataStructure(URL, AccessKey, SecretKey, Region);

docs/en/examples/S3/SendRequestWithBody.txt

@@ -0,0 +1,11 @@
+    URL       = "storage-155.s3hoster.by";
+    AccessKey = "BRN5RKJE67...";
+    SecretKey = "NNhv+i9PrytpT8Tu0C1N...";
+    Region    = "BTC";
+
+    BasicData = OPI_S3.GetBasicDataStructure(URL, AccessKey, SecretKey, Region);
+
+    Method = "PUT";
+    Body   = "C:\test_data\document.docx"; // URL, Path or Binary Data
+
+    Result = OPI_S3.SendRequestWithBody(Method, BasicData, Body);

docs/en/examples/S3/SendRequestWithoutBody.txt

@@ -0,0 +1,9 @@
+    URL       = "storage-155.s3hoster.by" + "/opi-newbucket2";
+    AccessKey = "BRN5RKJE67...";
+    SecretKey = "NNhv+i9PrytpT8Tu0C1N...";
+    Region    = "BTC";
+
+    BasicData = OPI_S3.GetBasicDataStructure(URL, AccessKey, SecretKey, Region);
+    Method = "GET";
+
+    Result = OPI_S3.SendRequestWithoutBody(Method, BasicData);

docs/en/md/S3/Common-methods/Get-basic-data-structure.mdx

@@ -29,7 +29,12 @@ import TabItem from '@theme/TabItem';
 
 
 ```bsl title="1C:Enterprise/OneScript code example"
+    URL          = "storage-155.s3hoster.by";
+    AccessKey = "BRN5RKJE67...";
+    SecretKey = "NNhv+i9PrytpT8Tu0C1N...";
+    Region    = "BTC";
 
+    Result = OPI_S3.GetBasicDataStructure(URL, AccessKey, SecretKey, Region);
 ```
  
 

docs/en/md/S3/Common-methods/Send-request-with-body.mdx

@@ -31,7 +31,17 @@ Parameters with Binary data type can also accept file paths on disk and URLs
 
 
 ```bsl title="1C:Enterprise/OneScript code example"
+    URL       = "storage-155.s3hoster.by";
+    AccessKey = "BRN5RKJE67...";
+    SecretKey = "NNhv+i9PrytpT8Tu0C1N...";
+    Region    = "BTC";
 
+    BasicData = OPI_S3.GetBasicDataStructure(URL, AccessKey, SecretKey, Region);
+
+    Method = "PUT";
+    Body   = "C:\test_data\document.docx"; // URL, Path or Binary Data
+
+    Result = OPI_S3.SendRequestWithBody(Method, BasicData, Body);
 ```
  
 

docs/en/md/S3/Common-methods/Send-request-without-body.mdx

@@ -27,7 +27,15 @@ import TabItem from '@theme/TabItem';
 
 
 ```bsl title="1C:Enterprise/OneScript code example"
+    URL       = "storage-155.s3hoster.by" + "/opi-newbucket2";
+    AccessKey = "BRN5RKJE67...";
+    SecretKey = "NNhv+i9PrytpT8Tu0C1N...";
+    Region    = "BTC";
 
+    BasicData = OPI_S3.GetBasicDataStructure(URL, AccessKey, SecretKey, Region);
+    Method = "GET";
+
+    Result = OPI_S3.SendRequestWithoutBody(Method, BasicData);
 ```
  
 

docs/ru/data/S3/ОтправитьЗапросБезТела.json

@@ -0,0 +1,5 @@
+{
+"URL": "storage-155.s3hoster.by",
+"AccessKey": "BRN5RKJE67...",
+"SecretKey": "NNhv+i9PrytpT8Tu0C1N..."
+}

docs/ru/data/S3/ОтправитьЗапросСТелом.json

@@ -0,0 +1,5 @@
+{
+"URL": "storage-155.s3hoster.by",
+"AccessKey": "BRN5RKJE67...",
+"SecretKey": "NNhv+i9PrytpT8Tu0C1N..."
+}

docs/ru/data/S3/ПолучитьСтруктуруДанных.json

@@ -0,0 +1,5 @@
+{
+"URL": "storage-155.s3hoster.by",
+"AccessKey": "BRN5RKJE67...",
+"SecretKey": "NNhv+i9PrytpT8Tu0C1N..."
+}

docs/ru/examples/S3/ОтправитьЗапросБезТела.txt

@@ -0,0 +1,9 @@
+    URL       = "storage-155.s3hoster.by" + "/opi-newbucket2";
+    AccessKey = "BRN5RKJE67...";
+    SecretKey = "NNhv+i9PrytpT8Tu0C1N...";
+    Region    = "BTC";
+
+    ОсновныеДанные    = OPI_S3.ПолучитьСтруктуруДанных(URL, AccessKey, SecretKey, Region);
+    Метод          = "GET";
+
+    Результат = OPI_S3.ОтправитьЗапросБезТела(Метод, ОсновныеДанные);

docs/ru/examples/S3/ОтправитьЗапросСТелом.txt

@@ -0,0 +1,11 @@
+    URL       = "storage-155.s3hoster.by";
+    AccessKey = "BRN5RKJE67...";
+    SecretKey = "NNhv+i9PrytpT8Tu0C1N...";
+    Region    = "BTC";
+
+    ОсновныеДанные = OPI_S3.ПолучитьСтруктуруДанных(URL, AccessKey, SecretKey, Region);
+
+    Метод = "PUT";
+    Тело  = "C:\test_data\document.docx";  // URL, Путь или Двоичные данные
+
+    Результат = OPI_S3.ОтправитьЗапросСТелом(Метод, ОсновныеДанные, Тело);

docs/ru/examples/S3/ПолучитьСтруктуруДанных.txt

@@ -0,0 +1,6 @@
+    URL          = "storage-155.s3hoster.by";
+    AccessKey = "BRN5RKJE67...";
+    SecretKey = "NNhv+i9PrytpT8Tu0C1N...";
+    Region    = "BTC";
+
+    Результат = OPI_S3.ПолучитьСтруктуруДанных(URL, AccessKey, SecretKey, Region);

docs/ru/md/S3/Buckets-managment/Create-bucket.mdx

@@ -54,9 +54,4 @@ import TabItem from '@theme/TabItem';
 
 
 
-```json title="Результат"
+
-{
- "message": "Неподдерживаемое сообщение",
- "status": 200
-}
-```

docs/ru/md/S3/Buckets-managment/Delete-bucket-encryption.mdx

@@ -46,9 +46,4 @@ import TabItem from '@theme/TabItem';
 
 
 
-```json title="Результат"
+
-{
- "status": 204,
- "response": {}
-}
-```

docs/ru/md/S3/Buckets-managment/Delete-bucket-tagging.mdx

@@ -54,9 +54,4 @@ import TabItem from '@theme/TabItem';
 
 
 
-```json title="Результат"
+
-{
- "status": 204,
- "response": {}
-}
-```

docs/ru/md/S3/Buckets-managment/Delete-bucket.mdx

@@ -54,9 +54,4 @@ import TabItem from '@theme/TabItem';
 
 
 
-```json title="Результат"
+
-{
- "message": {},
- "status": 204
-}
-```

docs/ru/md/S3/Buckets-managment/Get-bucket-encryption.mdx

@@ -46,9 +46,4 @@ import TabItem from '@theme/TabItem';
 
 
 
-```json title="Результат"
+
-{
- "status": 404,
- "response": "version=\"1.0\" encoding=\"UTF-8\""
-}
-```

docs/ru/md/S3/Buckets-managment/Get-bucket-tagging.mdx

@@ -54,24 +54,4 @@ import TabItem from '@theme/TabItem';
 
 
 
-```json title="Результат"
+
-{
- "status": 200,
- "response": {
-  "Tagging": {
-   "TagSet": {
-    "Tag": [
-     {
-      "Key": "MyTag2",
-      "Value": "AnotherOne"
-     },
-     {
-      "Key": "MyTag1",
-      "Value": "SomeValue"
-     }
-    ]
-   }
-  }
- }
-}
-```

docs/ru/md/S3/Buckets-managment/Get-bucket-versioning.mdx

@@ -54,13 +54,4 @@ import TabItem from '@theme/TabItem';
 
 
 
-```json title="Результат"
+
-{
- "status": 200,
- "response": {
-  "VersioningConfiguration": {
-   "Status": "Enabled"
-  }
- }
-}
-```

docs/ru/md/S3/Buckets-managment/Head-bucket.mdx

@@ -48,9 +48,4 @@ import TabItem from '@theme/TabItem';
 
 
 
-```json title="Результат"
+
-{
- "status": 200,
- "response": {}
-}
-```

docs/ru/md/S3/Buckets-managment/List-buckets.mdx

@@ -45,9 +45,4 @@ import TabItem from '@theme/TabItem';
 
 
 
-```json title="Результат"
+
-{
- "status": 200,
- "response": "version=\"1.0\" encoding=\"UTF-8\""
-}
-```

docs/ru/md/S3/Buckets-managment/Put-bucket-encryption.mdx

@@ -55,9 +55,4 @@ import TabItem from '@theme/TabItem';
 
 
 
-```json title="Результат"
+
-{
- "status": 501,
- "response": "version=\"1.0\" encoding=\"UTF-8\""
-}
-```

docs/ru/md/S3/Buckets-managment/Put-bucket-tagging.mdx

@@ -61,9 +61,4 @@ import TabItem from '@theme/TabItem';
 
 
 
-```json title="Результат"
+
-{
- "status": 200,
- "response": {}
-}
-```

docs/ru/md/S3/Buckets-managment/Put-bucket-versioning.mdx

@@ -60,9 +60,4 @@ import TabItem from '@theme/TabItem';
 
 
 
-```json title="Результат"
+
-{
- "status": 200,
- "response": {}
-}
-```

docs/ru/md/S3/Common-methods/Get-basic-data-structure.mdx

@@ -29,7 +29,12 @@ import TabItem from '@theme/TabItem';
 
 
 ```bsl title="Пример использования для 1С:Предприятие/OneScript"
+    URL          = "storage-155.s3hoster.by";
+    AccessKey = "BRN5RKJE67...";
+    SecretKey = "NNhv+i9PrytpT8Tu0C1N...";
+    Region    = "BTC";
 
+    Результат = OPI_S3.ПолучитьСтруктуруДанных(URL, AccessKey, SecretKey, Region);
 ```
     
 

docs/ru/md/S3/Common-methods/Send-request-with-body.mdx

@@ -31,7 +31,17 @@ import TabItem from '@theme/TabItem';
 
 
 ```bsl title="Пример использования для 1С:Предприятие/OneScript"
+    URL       = "storage-155.s3hoster.by";
+    AccessKey = "BRN5RKJE67...";
+    SecretKey = "NNhv+i9PrytpT8Tu0C1N...";
+    Region    = "BTC";
 
+    ОсновныеДанные = OPI_S3.ПолучитьСтруктуруДанных(URL, AccessKey, SecretKey, Region);
+
+    Метод = "PUT";
+    Тело  = "C:\test_data\document.docx";  // URL, Путь или Двоичные данные
+
+    Результат = OPI_S3.ОтправитьЗапросСТелом(Метод, ОсновныеДанные, Тело);
 ```
     
 

docs/ru/md/S3/Common-methods/Send-request-without-body.mdx

@@ -27,7 +27,15 @@ import TabItem from '@theme/TabItem';
 
 
 ```bsl title="Пример использования для 1С:Предприятие/OneScript"
+    URL       = "storage-155.s3hoster.by" + "/opi-newbucket2";
+    AccessKey = "BRN5RKJE67...";
+    SecretKey = "NNhv+i9PrytpT8Tu0C1N...";
+    Region    = "BTC";
 
+    ОсновныеДанные    = OPI_S3.ПолучитьСтруктуруДанных(URL, AccessKey, SecretKey, Region);
+    Метод          = "GET";
+
+    Результат = OPI_S3.ОтправитьЗапросБезТела(Метод, ОсновныеДанные);
 ```
     
 

src/en/OInt/tests/Modules/internal/OPI_Tests.os

@@ -2103,6 +2103,19 @@ EndProcedure
 
 #Region S3
 
+Procedure AWS_CommonMethods() Export
+
+    TestParameters = New Structure;
+    OPI_TestDataRetrieval.ParameterToCollection("S3_AccessKey", TestParameters);
+    OPI_TestDataRetrieval.ParameterToCollection("S3_SecretKey", TestParameters);
+    OPI_TestDataRetrieval.ParameterToCollection("S3_URL"      , TestParameters);
+
+    S3_GetBasicDataStructure(TestParameters);
+    S3_SendRequestWithoutBody(TestParameters);
+    S3_SendRequestWithBody(TestParameters);
+
+EndProcedure
+
 Procedure AWS_BucketsManagment() Export
 
     TestParameters = New Structure;
@@ -14618,6 +14631,61 @@ EndProcedure
 
 #Region S3
 
+Procedure S3_GetBasicDataStructure(FunctionParameters)
+
+    URL          = FunctionParameters["S3_URL"];
+    AccessKey = FunctionParameters["S3_AccessKey"];
+    SecretKey = FunctionParameters["S3_SecretKey"];
+    Region    = "BTC";
+
+    Result = OPI_S3.GetBasicDataStructure(URL, AccessKey, SecretKey, Region);
+
+    // END
+
+    OPI_TestDataRetrieval.WriteLog(Result, "GetBasicDataStructure", "S3");
+
+EndProcedure
+
+Procedure S3_SendRequestWithoutBody(FunctionParameters)
+
+    URL       = FunctionParameters["S3_URL"] + "/opi-newbucket2";
+    AccessKey = FunctionParameters["S3_AccessKey"];
+    SecretKey = FunctionParameters["S3_SecretKey"];
+    Region    = "BTC";
+
+    BasicData = OPI_S3.GetBasicDataStructure(URL, AccessKey, SecretKey, Region);
+    Method = "GET";
+
+    Result = OPI_S3.SendRequestWithoutBody(Method, BasicData);
+
+    // END
+
+    OPI_TestDataRetrieval.WriteLog(Result, "SendRequestWithoutBody");
+    OPI_TestDataRetrieval.WriteLogFile("", "SendRequestWithoutBody", "S3", True);
+
+EndProcedure
+
+Procedure S3_SendRequestWithBody(FunctionParameters)
+
+    URL       = FunctionParameters["S3_URL"];
+    AccessKey = FunctionParameters["S3_AccessKey"];
+    SecretKey = FunctionParameters["S3_SecretKey"];
+    Region    = "BTC";
+
+    BasicData = OPI_S3.GetBasicDataStructure(URL, AccessKey, SecretKey, Region);
+
+    Method = "PUT";
+    Body   = "C:\test_data\document.docx"; // URL, Path or Binary Data
+
+    Result = OPI_S3.SendRequestWithBody(Method, BasicData, Body);
+
+    // END
+
+    OPI_TestDataRetrieval.WriteLog(Result, "SendRequestWithBody");
+    OPI_TestDataRetrieval.WriteLogFile("", "SendRequestWithBody", "S3", True);
+
+EndProcedure
+
 Procedure S3_CreateBucket(FunctionParameters)
 
     URL       = FunctionParameters["S3_URL"];
@@ -14741,7 +14809,7 @@ Procedure S3_GetBucketEncryption(FunctionParameters)
 
     OPI_TestDataRetrieval.WriteLog(Result, "GetBucketEncryption", "S3");
     OPI_TestDataRetrieval.Check_Map(Result);
-    OPI_TestDataRetrieval.WriteLogFile("", "GetBucketEncryption", "S3");
+    OPI_TestDataRetrieval.WriteLogFile("", "GetBucketEncryption", "S3", True);
 
 EndProcedure
 
@@ -14790,7 +14858,7 @@ Procedure S3_PutBucketEncryption(FunctionParameters)
 
     OPI_TestDataRetrieval.WriteLog(Result, "PutBucketEncryption", "S3");
     OPI_TestDataRetrieval.Check_S3NotImplemented(Result);
-    OPI_TestDataRetrieval.WriteLogFile("", "PutBucketEncryption", "S3");
+    OPI_TestDataRetrieval.WriteLogFile("", "PutBucketEncryption", "S3", True);
 
 EndProcedure
 

src/en/OInt/tools/Modules/OPI_TestDataRetrieval.os

@@ -254,6 +254,7 @@ Function GetTestTable() Export
     NewTest(TestTable, "CdekAPI_CourierInvitationsManagment"  , "Courier invitations managment"   , Cdek);
     NewTest(TestTable, "YaMetrika_TagsManagment"              , "Tags managment"                  , Metrika);
     NewTest(TestTable, "YaMetrika_CountersManagement"         , "Counters management"             , Metrika);
+    NewTest(TestTable, "AWS_CommonMethods"                    , "Common methods"                  , S3_);
     NewTest(TestTable, "AWS_BucketsManagment"                 , "Buckets managment"               , S3_);
 
     Return TestTable;
@@ -443,7 +444,7 @@ Procedure WriteLog(Val Result, Val Method, Val Library = "") Export
 
 EndProcedure
 
-Procedure WriteLogFile(Val Data, Val Method, Val Library) Export
+Procedure WriteLogFile(Val Data, Val Method, Val Library, Val Forced = False) Export
 
     Try
 
@@ -465,7 +466,7 @@ Procedure WriteLogFile(Val Data, Val Method, Val Library) Export
         FilePath = LibraryLogPath + "/" + Method + ".log";
         LogFile  = New File(FilePath);
 
-        If Not LogFile.Exist() Then
+        If Not LogFile.Exist() Or Forced Then
             LogDocument = New TextDocument;
             LogDocument.SetText(Data);
             LogDocument.Write(FilePath);

src/en/OPI/src/CommonModules/OPI_TestDataRetrieval/Module.bsl

@@ -254,6 +254,7 @@ Function GetTestTable() Export
     NewTest(TestTable, "CdekAPI_CourierInvitationsManagment"  , "Courier invitations managment"   , Cdek);
     NewTest(TestTable, "YaMetrika_TagsManagment"              , "Tags managment"                  , Metrika);
     NewTest(TestTable, "YaMetrika_CountersManagement"         , "Counters management"             , Metrika);
+    NewTest(TestTable, "AWS_CommonMethods"                    , "Common methods"                  , S3_);
     NewTest(TestTable, "AWS_BucketsManagment"                 , "Buckets managment"               , S3_);
 
     Return TestTable;
@@ -443,7 +444,7 @@ Procedure WriteLog(Val Result, Val Method, Val Library = "") Export
 
 EndProcedure
 
-Procedure WriteLogFile(Val Data, Val Method, Val Library) Export
+Procedure WriteLogFile(Val Data, Val Method, Val Library, Val Forced = False) Export
 
     Try
 
@@ -465,7 +466,7 @@ Procedure WriteLogFile(Val Data, Val Method, Val Library) Export
         FilePath = LibraryLogPath + "/" + Method + ".log";
         LogFile  = New File(FilePath);
 
-        If Not LogFile.Exists() Then
+        If Not LogFile.Exists() Or Forced Then
             LogDocument = New TextDocument;
             LogDocument.SetText(Data);
             LogDocument.Write(FilePath);

src/en/OPI/src/CommonModules/OPI_Tests/Module.bsl

@@ -2103,6 +2103,19 @@ EndProcedure
 
 #Region S3
 
+Procedure AWS_CommonMethods() Export
+
+    TestParameters = New Structure;
+    OPI_TestDataRetrieval.ParameterToCollection("S3_AccessKey", TestParameters);
+    OPI_TestDataRetrieval.ParameterToCollection("S3_SecretKey", TestParameters);
+    OPI_TestDataRetrieval.ParameterToCollection("S3_URL"      , TestParameters);
+
+    S3_GetBasicDataStructure(TestParameters);
+    S3_SendRequestWithoutBody(TestParameters);
+    S3_SendRequestWithBody(TestParameters);
+
+EndProcedure
+
 Procedure AWS_BucketsManagment() Export
 
     TestParameters = New Structure;
@@ -14618,6 +14631,61 @@ EndProcedure
 
 #Region S3
 
+Procedure S3_GetBasicDataStructure(FunctionParameters)
+
+    URL          = FunctionParameters["S3_URL"];
+    AccessKey = FunctionParameters["S3_AccessKey"];
+    SecretKey = FunctionParameters["S3_SecretKey"];
+    Region    = "BTC";
+
+    Result = OPI_S3.GetBasicDataStructure(URL, AccessKey, SecretKey, Region);
+
+    // END
+
+    OPI_TestDataRetrieval.WriteLog(Result, "GetBasicDataStructure", "S3");
+
+EndProcedure
+
+Procedure S3_SendRequestWithoutBody(FunctionParameters)
+
+    URL       = FunctionParameters["S3_URL"] + "/opi-newbucket2";
+    AccessKey = FunctionParameters["S3_AccessKey"];
+    SecretKey = FunctionParameters["S3_SecretKey"];
+    Region    = "BTC";
+
+    BasicData = OPI_S3.GetBasicDataStructure(URL, AccessKey, SecretKey, Region);
+    Method = "GET";
+
+    Result = OPI_S3.SendRequestWithoutBody(Method, BasicData);
+
+    // END
+
+    OPI_TestDataRetrieval.WriteLog(Result, "SendRequestWithoutBody");
+    OPI_TestDataRetrieval.WriteLogFile("", "SendRequestWithoutBody", "S3", True);
+
+EndProcedure
+
+Procedure S3_SendRequestWithBody(FunctionParameters)
+
+    URL       = FunctionParameters["S3_URL"];
+    AccessKey = FunctionParameters["S3_AccessKey"];
+    SecretKey = FunctionParameters["S3_SecretKey"];
+    Region    = "BTC";
+
+    BasicData = OPI_S3.GetBasicDataStructure(URL, AccessKey, SecretKey, Region);
+
+    Method = "PUT";
+    Body   = "C:\test_data\document.docx"; // URL, Path or Binary Data
+
+    Result = OPI_S3.SendRequestWithBody(Method, BasicData, Body);
+
+    // END
+
+    OPI_TestDataRetrieval.WriteLog(Result, "SendRequestWithBody");
+    OPI_TestDataRetrieval.WriteLogFile("", "SendRequestWithBody", "S3", True);
+
+EndProcedure
+
 Procedure S3_CreateBucket(FunctionParameters)
 
     URL       = FunctionParameters["S3_URL"];
@@ -14741,7 +14809,7 @@ Procedure S3_GetBucketEncryption(FunctionParameters)
 
     OPI_TestDataRetrieval.WriteLog(Result, "GetBucketEncryption", "S3");
     OPI_TestDataRetrieval.Check_Map(Result);
-    OPI_TestDataRetrieval.WriteLogFile("", "GetBucketEncryption", "S3");
+    OPI_TestDataRetrieval.WriteLogFile("", "GetBucketEncryption", "S3", True);
 
 EndProcedure
 
@@ -14790,7 +14858,7 @@ Procedure S3_PutBucketEncryption(FunctionParameters)
 
     OPI_TestDataRetrieval.WriteLog(Result, "PutBucketEncryption", "S3");
     OPI_TestDataRetrieval.Check_S3NotImplemented(Result);
-    OPI_TestDataRetrieval.WriteLogFile("", "PutBucketEncryption", "S3");
+    OPI_TestDataRetrieval.WriteLogFile("", "PutBucketEncryption", "S3", True);
 
 EndProcedure