test(pp): add test for preprocessor whitespaces

test/test_preproc_parser.py

@@ -0,0 +1,19 @@
+from __future__ import annotations
+
+from setup_tests import test_dir
+
+from fortls.parsers.internal.parser import preprocess_file
+
+
+def test_pp_leading_spaces():
+    root_dir = test_dir / "pp" / "leading_spaces"
+    file_path = root_dir / "spaces.F90"
+    with open(file_path, encoding="utf-8") as file:
+        lines = file.readlines()
+    _, _, _, defs = preprocess_file(lines)
+    ref = {
+        "LEADING_SPACES_INDENT": "1",
+        "LEADING_SPACES_INDENT2": "True",
+        "FILE_ENCODING": ",encoding='UTF-8'",
+    }
+    assert defs == ref

test/test_source/pp/leading_spaces/spaces.F90

@@ -0,0 +1,8 @@
+ #define LEADING_SPACES_INDENT 1
+  #   define LEADING_SPACES_INDENT2
+    #    define FILE_ENCODING ,encoding='UTF-8'
+program pp_intentation
+  implicit none
+  print*, LEADING_SPACES_INDENT
+  open(unit=1,file='somefile.txt' FILE_ENCODING)
+end program pp_intentation