Support for Entitlements (#274)

waldo1001 · Jan 12, 2023 · c67c31a · c67c31a
1 parent eb13692
commit c67c31a
Show file tree

Hide file tree

Showing 4 changed files with 31 additions and 3 deletions.
diff --git a/src/DynamicsNAV.ts b/src/DynamicsNAV.ts
@@ -202,6 +202,7 @@ export class DynamicsNAV {
             case 'dotnet': return 'Dotnet';
             case 'permissionset': return 'PermissionSet';
             case 'permissionsetextension': return 'PermissionSetExt';
+            case 'entitlement': return 'Entitlement';
         }
     }
 
@@ -224,6 +225,7 @@ export class DynamicsNAV {
             case 'interface': return 'Interface';
             case 'permissionset': return 'PermissionSet';
             case 'permissionsetextension': return 'PermissionSetExt';
+            case 'entitlement': return 'Entitlement';
         }
     }
 

diff --git a/src/NAVObject.ts b/src/NAVObject.ts
@@ -135,7 +135,7 @@ export class NAVObject {
     }
 
     private loadObjectProperties(): any {
-        var patternObjectType = new RegExp('(codeunit |page |pagecustomization |pageextension |reportextension |permissionset |permissionsetextension |profile |query |report |requestpage |table |tableextension |xmlport |enum |enumextension |controladdin |interface)', "i")
+        var patternObjectType = new RegExp('(codeunit |page |pagecustomization |pageextension |reportextension |permissionset |permissionsetextension |profile |query |report |requestpage |table |tableextension |xmlport |enum |enumextension |controladdin |interface |entitlement)', "i");
 
         //Remove content between crs-al disable -> enable
         var initNAVObjectText = this.NAVObjectText;
@@ -163,7 +163,8 @@ export class NAVObject {
         if (!ObjectTypeArr) { return null }
 
         if (ObjectTypeArr) {
-            switch (ObjectTypeArr[0].trim().toLowerCase()) {
+            const objectType = ObjectTypeArr[0].trim().toLowerCase();
+            switch (objectType) {
                 case 'page':
                 case 'codeunit':
                 case 'query':
@@ -213,8 +214,9 @@ export class NAVObject {
 
                     break;
                 }
+                case 'entitlement':
                 case 'interface': {
-                    var patternObject = new RegExp('(interface)( +"?[ a-zA-Z0-9._/&-]+"?)', "i");
+                    var patternObject = new RegExp(`(${objectType})( +"?[ a-zA-Z0-9._/&-]+"?)`, "i");
                     let currObject = this.NAVObjectText.match(patternObject);
 
                     this.objectType = currObject[1];
@@ -344,6 +346,7 @@ export class NAVObject {
             case 'interface':
             case 'permissionset':
             case 'permissionsetextension':
+            case 'entitlement':
                 return true;
             default: return false;
         }

diff --git a/src/test/suite/NAVObject.FilePattern.test.ts b/src/test/suite/NAVObject.FilePattern.test.ts
@@ -435,6 +435,15 @@ suite("NAVObject FilePattern Tests", () => {
 
         assert.strictEqual(navObject.objectFileNameFixed, 'IBallColorIdentifier.Interface.al')
     })
+    test("FileName - Simple Entitlement (not DataAgnostic)", () => {
+        let testSettings = Settings.GetConfigSettings(null);
+        testSettings[Settings.FileNamePattern] = '<ObjectNameShort>.<ObjectTypeShortPascalCase>.al';
+
+        let navTestObject = NAVTestObjectLibrary.getSimpleEntitlement();
+        let navObject = new NAVObject(navTestObject.ObjectText, testSettings, navTestObject.ObjectFileName);
+
+        assert.strictEqual(navObject.objectFileNameFixed, 'TheEntitlement.Entitlement.al');
+    });
 
     test("Filename - Rename PageExtension with Suffix with underscore in object name, and remove suffix in filename (not data-agnostic)", () => {
         let testSettings = Settings.GetConfigSettings(null)

diff --git a/src/test/suite/NAVTestObjectLibrary.ts b/src/test/suite/NAVTestObjectLibrary.ts
@@ -956,6 +956,20 @@ export function getSimpleInterface(): NAVTestObject {
     `
     return object;
 }
+export function getSimpleEntitlement(): NAVTestObject {
+    let object = new NAVTestObject;
+
+    object.ObjectFileName = 'SomeEntitlement.al';
+    object.ObjectText = `entitlement "The Entitlement"
+    {
+        Id = '62e90394-69f5-4237-9190-012177145e10';
+        ObjectEntitlements = "The PermissionSet";
+        RoleType = Local;
+        Type = Role;    
+    }
+`;
+    return object;
+}
 export function getSimpleReportExtension(): NAVTestObject {
     let object = new NAVTestObject;