lowercase_keywords: add missing test

raph-amiard · HugoGGuerrier · commit bc5716da846b · 2025-07-15T11:49:40.000+02:00
diff --git a/testsuite/tests/checks/lowercase_keywords/83/test.out b/testsuite/tests/checks/lowercase_keywords/83/test.out
@@ -0,0 +1,8 @@
+test_83.adb:1:1: rule violation: Keyword should be lowercase
+1 | procedurE Test_83 IS -- FLAG (2)
+  | ^^^^^^^^^
+
+test_83.adb:1:19: rule violation: Keyword should be lowercase
+1 | procedurE Test_83 IS -- FLAG (2)
+  |                   ^^
+
diff --git a/testsuite/tests/checks/lowercase_keywords/83/test.yaml b/testsuite/tests/checks/lowercase_keywords/83/test.yaml
@@ -0,0 +1,5 @@
+driver: 'checker'
+rule_name: lowercase_keywords
+input_sources: ['test_83.adb']
+rule_arguments:
+    lowercase_keywords.language_version: '"ada_83"'
diff --git a/testsuite/tests/checks/lowercase_keywords/83/test_83.adb b/testsuite/tests/checks/lowercase_keywords/83/test_83.adb
@@ -0,0 +1,6 @@
+procedurE Test_83 IS -- FLAG (2)
+   A : InterfacE;  -- NOFLAG
+   B : TaggeD;  -- NOFLAG
+begin
+   null;
+end Test_83;
diff --git a/testsuite/tests/checks/lowercase_keywords/95/test.out b/testsuite/tests/checks/lowercase_keywords/95/test.out
@@ -0,0 +1,8 @@
+test_95.adb:2:14: rule violation: Keyword should be lowercase
+2 |    type A is Abstract Tagged null record; -- FLAG (2)
+  |              ^^^^^^^^
+
+test_95.adb:2:23: rule violation: Keyword should be lowercase
+2 |    type A is Abstract Tagged null record; -- FLAG (2)
+  |                       ^^^^^^
+
diff --git a/testsuite/tests/checks/lowercase_keywords/95/test.yaml b/testsuite/tests/checks/lowercase_keywords/95/test.yaml
@@ -0,0 +1,5 @@
+driver: 'checker'
+rule_name: lowercase_keywords
+input_sources: ['test_95.adb']
+rule_arguments:
+    lowercase_keywords.language_version: '"ada_95"'
diff --git a/testsuite/tests/checks/lowercase_keywords/95/test_95.adb b/testsuite/tests/checks/lowercase_keywords/95/test_95.adb
@@ -0,0 +1,5 @@
+procedure Test_83 is
+   type A is Abstract Tagged null record; -- FLAG (2)
+begin
+   null;
+end Test_83;
diff --git a/testsuite/tests/checks/lowercase_keywords/default/test.adb b/testsuite/tests/checks/lowercase_keywords/default/test.adb
@@ -0,0 +1,9 @@
+procedurE Test is  -- FLAG
+   B : Integer;
+   A : access Integer := B'Access;  -- NOFLAG
+begin  -- NOFLAG
+   DECLARE  -- FLAG
+   begin
+      NULL;  -- FLAG
+   end;
+end Test; -- NOFLAG
diff --git a/testsuite/tests/checks/lowercase_keywords/default/test.out b/testsuite/tests/checks/lowercase_keywords/default/test.out
@@ -0,0 +1,12 @@
+test.adb:1:1: rule violation: Keyword should be lowercase
+1 | procedurE Test is  -- FLAG
+  | ^^^^^^^^^
+
+test.adb:5:4: rule violation: Keyword should be lowercase
+5 |    DECLARE  -- FLAG
+  |    ^^^^^^^
+
+test.adb:7:7: rule violation: Keyword should be lowercase
+7 |       NULL;  -- FLAG
+  |       ^^^^
+
diff --git a/testsuite/tests/checks/lowercase_keywords/default/test.yaml b/testsuite/tests/checks/lowercase_keywords/default/test.yaml
@@ -0,0 +1,3 @@
+driver: 'checker'
+rule_name: lowercase_keywords
+input_sources: ['test.adb']

Original file line number	Diff line number	Diff line change
`@@ -0,0 +1,3 @@`
	`1`	`+driver: 'checker'`
	`2`	`+rule_name: lowercase_keywords`
	`3`	`+input_sources: ['test.adb']`