test: print AQL queries for all regression tests

This has mainly two use cases

- Getting a general feeling of how queries are translated into AQL to discover potential for optimizations and simplifications
- Double-checking that a code change does not change AQL in a bad way, even if you don't notice it in the result with the test data

Author: Yogu

spec/regression/access-groups/tests/accounting/aql/allFiles.aql

@@ -0,0 +1,15 @@
+RETURN {
+  "allFiles": (
+    FOR v_file1
+    IN (
+      FOR v_item1
+      IN @@files
+      FILTER (v_item1.`accessGroup` IN @var1)
+      RETURN v_item1
+    )
+    SORT (v_file1.`name`)
+    RETURN {
+      "name": v_file1.`name`
+    }
+  )
+}

spec/regression/access-groups/tests/dynamic-access-groups/aql/correctAccessGroups.aql

@@ -0,0 +1,76 @@
+RETURN (@var1.`accessGroup` IN @var2)
+
+// --------------------------------
+
+RETURN FIRST(
+  INSERT @var1 IN @@files
+  RETURN NEW._key
+)
+
+// --------------------------------
+
+WITH @@files
+LET v_file1 = FIRST(
+  LET v_entity1 = DOCUMENT(@@files, @v_newEntityId1)
+  RETURN ((v_entity1.`accessGroup` IN @var1) ? v_entity1 : null)
+)
+RETURN (IS_NULL(v_file1) ? null : {
+  "accessGroup": v_file1.`accessGroup`
+})
+
+// --------------------------------
+
+WITH @@files
+RETURN (@var1.`accessGroup` IN @var2)
+
+// --------------------------------
+
+WITH @@files
+RETURN FIRST(
+  INSERT @var1 IN @@files
+  RETURN NEW._key
+)
+
+// --------------------------------
+
+WITH @@files
+LET v_file1 = FIRST(
+  LET v_entity1 = DOCUMENT(@@files, @v_newEntityId1)
+  RETURN ((v_entity1.`accessGroup` IN @var1) ? v_entity1 : null)
+)
+RETURN (IS_NULL(v_file1) ? null : {
+  "accessGroup": v_file1.`accessGroup`
+})
+
+// --------------------------------
+
+WITH @@files
+RETURN (@var1.`accessGroup` IN @var2)
+
+// --------------------------------
+
+WITH @@files
+RETURN FIRST(
+  INSERT @var1 IN @@files
+  RETURN NEW._key
+)
+
+// --------------------------------
+
+WITH @@files
+LET v_file1 = FIRST(
+  LET v_entity1 = DOCUMENT(@@files, @v_newEntityId1)
+  RETURN ((v_entity1.`accessGroup` IN @var1) ? v_entity1 : null)
+)
+RETURN (IS_NULL(v_file1) ? null : {
+  "accessGroup": v_file1.`accessGroup`
+})
+
+// --------------------------------
+
+WITH @@files
+RETURN {
+  "f1": @v_createFile1,
+  "f2": @v_createFile2,
+  "f3": @v_createFile3
+}

spec/regression/access-groups/tests/dynamic-access-groups/aql/list.aql

@@ -0,0 +1,16 @@
+RETURN {
+  "allFiles": (
+    FOR v_file1
+    IN (
+      FOR v_item1
+      IN @@files
+      FILTER (v_item1.`accessGroup` IN @var1)
+      RETURN v_item1
+    )
+    SORT (v_file1.`name`)
+    RETURN {
+      "name": v_file1.`name`,
+      "accessGroup": v_file1.`accessGroup`
+    }
+  )
+}

spec/regression/access-groups/tests/dynamic-access-groups/aql/wrongAccessGroup.aql

@@ -0,0 +1,26 @@
+RETURN (@var1.`accessGroup` IN @var2)
+
+// --------------------------------
+
+RETURN FIRST(
+  INSERT @var1 IN @@files
+  RETURN NEW._key
+)
+
+// --------------------------------
+
+WITH @@files
+LET v_file1 = FIRST(
+  LET v_entity1 = DOCUMENT(@@files, @v_newEntityId1)
+  RETURN ((v_entity1.`accessGroup` IN @var1) ? v_entity1 : null)
+)
+RETURN (IS_NULL(v_file1) ? null : {
+  "accessGroup": v_file1.`accessGroup`
+})
+
+// --------------------------------
+
+WITH @@files
+RETURN {
+  "createFile": @v_createFile1
+}

spec/regression/access-groups/tests/flex-search/aql/flexAuth.aql

@@ -0,0 +1,3 @@
+RETURN {
+  "flexSearchFiles": { __cruddl_runtime_error_code: @var1, __cruddl_runtime_error: @var2 }
+}

spec/regression/access-groups/tests/logistics-reader-bulk/aql/deletePublic.aql

@@ -0,0 +1,49 @@
+RETURN (FIRST(
+  FOR v_item1
+  IN (
+    FOR v_file1
+    IN (
+      FOR v_file2
+      IN (
+        FOR v_item2
+        IN @@files
+        FILTER (v_item2.`accessGroup` IN @var1)
+        RETURN v_item2
+      )
+      FILTER (v_file2._key == @var2)
+      RETURN v_file2
+    )
+    FILTER !((v_file1.`accessGroup` IN @var3))
+    RETURN v_file1
+  )
+  COLLECT WITH COUNT INTO v_count1
+  RETURN v_count1
+) == 0)
+
+// --------------------------------
+
+RETURN (
+  FOR v_File1
+  IN (
+    FOR v_file1
+    IN (
+      FOR v_item1
+      IN @@files
+      FILTER (v_item1.`accessGroup` IN @var1)
+      RETURN v_item1
+    )
+    FILTER (v_file1._key == @var2)
+    REMOVE v_file1
+    IN @@files
+    RETURN OLD
+  )
+  RETURN {
+    "name": v_File1.`name`
+  }
+)
+
+// --------------------------------
+
+RETURN {
+  "deleteAllFiles": @v_deleteAllFiles1
+}

spec/regression/access-groups/tests/logistics-reader-bulk/aql/deleteReadRestricted.aql

@@ -0,0 +1,49 @@
+RETURN (FIRST(
+  FOR v_item1
+  IN (
+    FOR v_file1
+    IN (
+      FOR v_file2
+      IN (
+        FOR v_item2
+        IN @@files
+        FILTER (v_item2.`accessGroup` IN @var1)
+        RETURN v_item2
+      )
+      FILTER (v_file2._key == @var2)
+      RETURN v_file2
+    )
+    FILTER !((v_file1.`accessGroup` IN @var3))
+    RETURN v_file1
+  )
+  COLLECT WITH COUNT INTO v_count1
+  RETURN v_count1
+) == 0)
+
+// --------------------------------
+
+RETURN (
+  FOR v_File1
+  IN (
+    FOR v_file1
+    IN (
+      FOR v_item1
+      IN @@files
+      FILTER (v_item1.`accessGroup` IN @var1)
+      RETURN v_item1
+    )
+    FILTER (v_file1._key == @var2)
+    REMOVE v_file1
+    IN @@files
+    RETURN OLD
+  )
+  RETURN {
+    "name": v_File1.`name`
+  }
+)
+
+// --------------------------------
+
+RETURN {
+  "deleteAllFiles": @v_deleteAllFiles1
+}

spec/regression/access-groups/tests/logistics-reader-bulk/aql/deleteWriteRestricted.aql

@@ -0,0 +1,49 @@
+RETURN (FIRST(
+  FOR v_item1
+  IN (
+    FOR v_file1
+    IN (
+      FOR v_file2
+      IN (
+        FOR v_item2
+        IN @@files
+        FILTER (v_item2.`accessGroup` IN @var1)
+        RETURN v_item2
+      )
+      FILTER (v_file2._key == @var2)
+      RETURN v_file2
+    )
+    FILTER !((v_file1.`accessGroup` IN @var3))
+    RETURN v_file1
+  )
+  COLLECT WITH COUNT INTO v_count1
+  RETURN v_count1
+) == 0)
+
+// --------------------------------
+
+RETURN (
+  FOR v_File1
+  IN (
+    FOR v_file1
+    IN (
+      FOR v_item1
+      IN @@files
+      FILTER (v_item1.`accessGroup` IN @var1)
+      RETURN v_item1
+    )
+    FILTER (v_file1._key == @var2)
+    REMOVE v_file1
+    IN @@files
+    RETURN OLD
+  )
+  RETURN {
+    "name": v_File1.`name`
+  }
+)
+
+// --------------------------------
+
+RETURN {
+  "deleteAllFiles": @v_deleteAllFiles1
+}

spec/regression/access-groups/tests/logistics-reader-bulk/aql/updatePublic.aql

@@ -0,0 +1,96 @@
+RETURN (FIRST(
+  FOR v_item1
+  IN (
+    FOR v_file1
+    IN (
+      FOR v_file2
+      IN (
+        FOR v_item2
+        IN @@files
+        FILTER (v_item2.`accessGroup` IN @var1)
+        RETURN v_item2
+      )
+      FILTER (v_file2._key == @var2)
+      RETURN v_file2
+    )
+    FILTER !((v_file1.`accessGroup` IN @var3))
+    RETURN v_file1
+  )
+  COLLECT WITH COUNT INTO v_count1
+  RETURN v_count1
+) == 0)
+
+// --------------------------------
+
+RETURN (FIRST(
+  FOR v_item1
+  IN (
+    FOR v_currentEntity1
+    IN (
+      FOR v_file1
+      IN (
+        FOR v_item2
+        IN @@files
+        FILTER (v_item2.`accessGroup` IN @var1)
+        RETURN v_item2
+      )
+      FILTER (v_file1._key == @var2)
+      RETURN v_file1
+    )
+    FILTER !((MERGE(v_currentEntity1, {
+      "name": @var3,
+      "updatedAt": @var4
+    }).`accessGroup` IN @var5))
+    RETURN v_currentEntity1
+  )
+  COLLECT WITH COUNT INTO v_count1
+  RETURN v_count1
+) == 0)
+
+// --------------------------------
+
+RETURN (
+  FOR v_currentEntity1
+  IN (
+    FOR v_file1
+    IN (
+      FOR v_item1
+      IN @@files
+      FILTER (v_item1.`accessGroup` IN @var1)
+      RETURN v_item1
+    )
+    FILTER (v_file1._key == @var2)
+    RETURN v_file1
+  )
+  UPDATE v_currentEntity1
+  WITH {
+    "name": @var3,
+    "updatedAt": @var4
+  }
+  IN @@files
+  OPTIONS { mergeObjects: false }
+  RETURN NEW._key
+)
+
+// --------------------------------
+
+WITH @@files
+RETURN (
+  FOR v_File1
+  IN (
+    FOR v_id1
+    IN @v_updatedIds1
+    LET v_entity1 = DOCUMENT(@@files, v_id1)
+    RETURN ((v_entity1.`accessGroup` IN @var1) ? v_entity1 : null)
+  )
+  RETURN {
+    "name": v_File1.`name`
+  }
+)
+
+// --------------------------------
+
+WITH @@files
+RETURN {
+  "updateAllFiles": @v_updateAllFiles1
+}