Add environment cleanup tests for account management

IceOnly · IceOnly · commit 4ca4fee114c2 · 2025-01-23T19:20:17.000+01:00
diff --git a/Apps/W1/External File Storage - Azure Blob Service Connector/test/src/ExtAzureBlobServiceTest.Codeunit.al b/Apps/W1/External File Storage - Azure Blob Service Connector/test/src/ExtAzureBlobServiceTest.Codeunit.al
@@ -26,7 +26,7 @@ codeunit 144561 "Ext. Azure Blob Service Test"
 
         // [When] Multiple accounts are registered
         for Index := 1 to 3 do begin
-            SetBasicAccount(Index);
+            SetBasicAccount();
 
             Assert.IsTrue(ExtFileConnector.RegisterAccount(FileAccount), 'Failed to register account.');
             AccountIds[Index] := FileAccount."Account Id";
@@ -45,6 +45,44 @@ codeunit 144561 "Ext. Azure Blob Service Test"
         end;
     end;
 
+
+    [Test]
+    [Scope('OnPrem')]
+    [HandlerFunctions('AccountRegisterPageHandler')]
+    [TransactionModel(TransactionModel::AutoRollback)]
+    procedure TestEnviromentCleanupDisablesAccounts()
+    var
+        FileAccount: Record "File Account";
+        ExtSharePointAccount: Record "Ext. Blob Storage Account";
+        ExtFileConnector: Codeunit "Ext. Blob Sto. Connector Impl.";
+        EnvironmentTriggers: Codeunit "Environment Triggers";
+        AccountIds: array[3] of Guid;
+        Index: Integer;
+    begin
+        // [Scenario] Create multiple accounts
+        Initialize();
+
+        // [When] Multiple accounts are registered
+        for Index := 1 to 3 do begin
+            SetBasicAccount();
+
+            Assert.IsTrue(ExtFileConnector.RegisterAccount(FileAccount), 'Failed to register account.');
+            AccountIds[Index] := FileAccount."Account Id";
+
+            // [Then] Accounts are retrieved from the GetAccounts method
+            FileAccount.DeleteAll();
+            ExtFileConnector.GetAccounts(FileAccount);
+            Assert.RecordCount(FileAccount, Index);
+        end;
+
+        ExtSharePointAccount.SetRange(Disabled, true);
+        Assert.IsTrue(ExtSharePointAccount.IsEmpty(), 'Accounts are already disabled.');
+
+        EnvironmentTriggers.OnAfterCopyEnvironmentPerCompany(0, Any.AlphabeticText(30), 1, Any.AlphabeticText(30));
+
+        Assert.IsFalse(ExtSharePointAccount.IsEmpty(), 'Accounts are not disabled.');
+    end;
+
     [Test]
     [Scope('OnPrem')]
     [HandlerFunctions('AccountRegisterPageHandler,AccountShowPageHandler')]
@@ -58,7 +96,7 @@ codeunit 144561 "Ext. Azure Blob Service Test"
 
         // [Given] An file account
         Initialize();
-        SetBasicAccount(1);
+        SetBasicAccount();
         FileConnector.RegisterAccount(FileAccount);
 
         // [When] The ShowAccountInformation method is invoked
@@ -75,7 +113,7 @@ codeunit 144561 "Ext. Azure Blob Service Test"
         ExtBlobStorageAccount.DeleteAll();
     end;
 
-    local procedure SetBasicAccount(Index: Integer)
+    local procedure SetBasicAccount()
     begin
         FileAccountMock.Name(CopyStr(Any.AlphanumericText(250), 1, 250));
         FileAccountMock.StorageAccountName(CopyStr(Any.AlphanumericText(250), 1, 250));
diff --git a/Apps/W1/External File Storage - Azure File Service Connector/test/src/ExtAzureFileServiceTest.Codeunit.al b/Apps/W1/External File Storage - Azure File Service Connector/test/src/ExtAzureFileServiceTest.Codeunit.al
@@ -26,7 +26,7 @@ codeunit 144571 "Ext. Azure File Service Test"
 
         // [When] Multiple accounts are registered
         for Index := 1 to 3 do begin
-            SetBasicAccount(Index);
+            SetBasicAccount();
 
             Assert.IsTrue(ExtFileConnector.RegisterAccount(FileAccount), 'Failed to register account.');
             AccountIds[Index] := FileAccount."Account Id";
@@ -45,6 +45,44 @@ codeunit 144571 "Ext. Azure File Service Test"
         end;
     end;
 
+
+    [Test]
+    [Scope('OnPrem')]
+    [HandlerFunctions('AccountRegisterPageHandler')]
+    [TransactionModel(TransactionModel::AutoRollback)]
+    procedure TestEnviromentCleanupDisablesAccounts()
+    var
+        FileAccount: Record "File Account";
+        ExtSharePointAccount: Record "Ext. File Share Account";
+        ExtFileConnector: Codeunit "Ext. File Share Connector Impl";
+        EnvironmentTriggers: Codeunit "Environment Triggers";
+        AccountIds: array[3] of Guid;
+        Index: Integer;
+    begin
+        // [Scenario] Create multiple accounts
+        Initialize();
+
+        // [When] Multiple accounts are registered
+        for Index := 1 to 3 do begin
+            SetBasicAccount();
+
+            Assert.IsTrue(ExtFileConnector.RegisterAccount(FileAccount), 'Failed to register account.');
+            AccountIds[Index] := FileAccount."Account Id";
+
+            // [Then] Accounts are retrieved from the GetAccounts method
+            FileAccount.DeleteAll();
+            ExtFileConnector.GetAccounts(FileAccount);
+            Assert.RecordCount(FileAccount, Index);
+        end;
+
+        ExtSharePointAccount.SetRange(Disabled, true);
+        Assert.IsTrue(ExtSharePointAccount.IsEmpty(), 'Accounts are already disabled.');
+
+        EnvironmentTriggers.OnAfterCopyEnvironmentPerCompany(0, Any.AlphabeticText(30), 1, Any.AlphabeticText(30));
+
+        Assert.IsFalse(ExtSharePointAccount.IsEmpty(), 'Accounts are not disabled.');
+    end;
+
     [Test]
     [Scope('OnPrem')]
     [HandlerFunctions('AccountRegisterPageHandler,AccountShowPageHandler')]
@@ -58,7 +96,7 @@ codeunit 144571 "Ext. Azure File Service Test"
 
         // [Given] An file account
         Initialize();
-        SetBasicAccount(1);
+        SetBasicAccount();
         FileConnector.RegisterAccount(FileAccount);
 
         // [When] The ShowAccountInformation method is invoked
@@ -75,7 +113,7 @@ codeunit 144571 "Ext. Azure File Service Test"
         ExtFileShareAccount.DeleteAll();
     end;
 
-    local procedure SetBasicAccount(Index: Integer)
+    local procedure SetBasicAccount()
     begin
         FileAccountMock.Name(CopyStr(Any.AlphanumericText(250), 1, 250));
         FileAccountMock.StorageAccountName(CopyStr(Any.AlphanumericText(250), 1, 250));
diff --git a/Apps/W1/External File Storage - SharePoint Connector/test/src/ExtSharePointConnectorTest.Codeunit.al b/Apps/W1/External File Storage - SharePoint Connector/test/src/ExtSharePointConnectorTest.Codeunit.al
@@ -26,7 +26,7 @@ codeunit 144581 "Ext. SharePoint Connector Test"
 
         // [When] Multiple accounts are registered
         for Index := 1 to 3 do begin
-            SetBasicAccount(Index);
+            SetBasicAccount();
 
             Assert.IsTrue(ExtFileConnector.RegisterAccount(FileAccount), 'Failed to register account.');
             AccountIds[Index] := FileAccount."Account Id";
@@ -45,6 +45,43 @@ codeunit 144581 "Ext. SharePoint Connector Test"
         end;
     end;
 
+    [Test]
+    [Scope('OnPrem')]
+    [HandlerFunctions('AccountRegisterPageHandler')]
+    [TransactionModel(TransactionModel::AutoRollback)]
+    procedure TestEnviromentCleanupDisablesAccounts()
+    var
+        FileAccount: Record "File Account";
+        ExtSharePointAccount: Record "Ext. SharePoint Account";
+        ExtFileConnector: Codeunit "Ext. SharePoint Connector Impl";
+        EnvironmentTriggers: Codeunit "Environment Triggers";
+        AccountIds: array[3] of Guid;
+        Index: Integer;
+    begin
+        // [Scenario] Create multiple accounts
+        Initialize();
+
+        // [When] Multiple accounts are registered
+        for Index := 1 to 3 do begin
+            SetBasicAccount();
+
+            Assert.IsTrue(ExtFileConnector.RegisterAccount(FileAccount), 'Failed to register account.');
+            AccountIds[Index] := FileAccount."Account Id";
+
+            // [Then] Accounts are retrieved from the GetAccounts method
+            FileAccount.DeleteAll();
+            ExtFileConnector.GetAccounts(FileAccount);
+            Assert.RecordCount(FileAccount, Index);
+        end;
+
+        ExtSharePointAccount.SetRange(Disabled, true);
+        Assert.IsTrue(ExtSharePointAccount.IsEmpty(), 'Accounts are already disabled.');
+
+        EnvironmentTriggers.OnAfterCopyEnvironmentPerCompany(0, Any.AlphabeticText(30), 1, Any.AlphabeticText(30));
+
+        Assert.IsFalse(ExtSharePointAccount.IsEmpty(), 'Accounts are not disabled.');
+    end;
+
     [Test]
     [Scope('OnPrem')]
     [HandlerFunctions('AccountRegisterPageHandler,AccountShowPageHandler')]
@@ -58,7 +95,7 @@ codeunit 144581 "Ext. SharePoint Connector Test"
 
         // [Given] An file account
         Initialize();
-        SetBasicAccount(1);
+        SetBasicAccount();
         FileConnector.RegisterAccount(FileAccount);
 
         // [When] The ShowAccountInformation method is invoked
@@ -75,7 +112,7 @@ codeunit 144581 "Ext. SharePoint Connector Test"
         ExtSharePointAccount.DeleteAll();
     end;
 
-    local procedure SetBasicAccount(Index: Integer)
+    local procedure SetBasicAccount()
     begin
         FileAccountMock.Name(CopyStr(Any.AlphanumericText(250), 1, 250));
         FileAccountMock.SharePointUrl(CopyStr(Any.AlphanumericText(250), 1, 250));
