Create first tests for the 'composable rule files' feature

Author: HugoGGuerrier

testsuite/drivers/gnatcheck_driver.py

@@ -128,6 +128,8 @@ class GnatcheckDriver(BaseDriver):
           True.
         - ``in_tty`` (bool): Whether to run GNATcheck in a pseudo TTY using the
           ``pty`` Python module.
+        - ``lkql_path`` (list[str]): A list of directories forwarded to the
+            `LKQL_PATH` environment variable when the test is run.
 
         - ``jobs`` (int): The number of jobs to forward to the GNATcheck command.
         - ``project`` (str): GPR build file to use (if any).
@@ -289,6 +291,8 @@ def run_one_test(test_data: dict[str, any]) -> None:
                     f"{exe}.{'xml' if output_format == 'xml' else 'out'}"
                 )
             )
+            test_env = dict(gnatcheck_env)
+
 
             pre_python = test_data.get('pre_python', None)
             post_python = test_data.get('post_python', None)
@@ -298,6 +302,13 @@ def run_one_test(test_data: dict[str, any]) -> None:
             if pre_python:
                 capture_exec_python(pre_python)
 
+            # If required, add provided directories to the LKQL_PATH variable
+            for d in test_data.get('lkql_path', []):
+                test_env['LKQL_PATH'] = os.pathsep.join([
+                    self.working_dir(d),
+                    test_env.get('LKQL_PATH', ""),
+                ])
+
             # Set the target if one has been provided
             if test_data.get('target'):
                 args.append(f"--target={test_data['target']}")
@@ -420,9 +431,9 @@ def run_one_test(test_data: dict[str, any]) -> None:
                 exec_output = ""
                 status_code = 0
                 if test_data.get("in_tty"):
-                    exec_output, status_code = self.run_in_tty(args, env=gnatcheck_env)
+                    exec_output, status_code = self.run_in_tty(args, env=test_env)
                 else:
-                    p = self.shell(args, env=gnatcheck_env, catch_error=False, analyze_output=False)
+                    p = self.shell(args, env=test_env, catch_error=False, analyze_output=False)
                     exec_output = p.out
                     status_code = p.status
 

testsuite/tests/gnatcheck/lkql_rules_config/combine_rule_files/ambiguous_import.lkql

@@ -0,0 +1,5 @@
+import null_stmt
+
+val rules = null_stmt.rules & @{
+    Goto_Statements
+}

testsuite/tests/gnatcheck/lkql_rules_config/combine_rule_files/circular_import.lkql

@@ -0,0 +1,5 @@
+import part_one
+
+val rules = part_one.rules & @{
+    Goto_Statements
+}

testsuite/tests/gnatcheck/lkql_rules_config/combine_rule_files/invalid_import.lkql

@@ -0,0 +1,3 @@
+import null_stmt
+
+val rules = null_stmt.rules @{}

testsuite/tests/gnatcheck/lkql_rules_config/combine_rule_files/main.adb

@@ -0,0 +1,13 @@
+procedure Main is
+begin
+   null;
+   goto First;  --  FLAG
+
+   <<First>>
+
+   if C then
+      goto Second;  --  FLAG
+   end if;
+
+   <<Second>>
+end Main;

testsuite/tests/gnatcheck/lkql_rules_config/combine_rule_files/other_rule_configs/null_stmt.lkql

@@ -0,0 +1,5 @@
+import part_two
+
+val rules = part_two.rules & @{
+    Redundant_Null_Statements
+}

testsuite/tests/gnatcheck/lkql_rules_config/combine_rule_files/other_rule_configs/part_one.lkql

@@ -0,0 +1,5 @@
+import part_one
+
+val rules = part_one.rules & @{
+    Blocks
+}

testsuite/tests/gnatcheck/lkql_rules_config/combine_rule_files/other_rule_configs/part_two.lkql

@@ -0,0 +1,3 @@
+val rules = @{
+    Redundant_Null_Statements
+}

testsuite/tests/gnatcheck/lkql_rules_config/combine_rule_files/rule_configs/null_stmt.lkql

@@ -0,0 +1,3 @@
+val rules = @{
+    Goto_Statements: {Only_Unconditional: true, instance_name: "unconditional_goto"}
+}