add RST_EXCEPTION

Author: gbicann

ChangeLog.yaml

@@ -1,4 +1,8 @@
 2024-12-11:
+  - |
+    Added the [`RST_EXCEPTION`](#Error-RST_EXCEPTION) error, which may be
+    emitted by any test case, and indicates that an internal exception has
+    occurred.
   - |
     Updated [epp-19](#Test-Case-epp-19) to avoid the use of the EPP message
     queue.

inc/suites.yaml.in

@@ -200,9 +200,6 @@ StandardRDE:
     - rde.depositFile
     - epp.hostModel
     - general.registryDataModel
-  Errors:
-    - RDE_XML_PARSE_ERROR
-    - RDE_SCHEMA_VALIDATION_ERROR
 
 StandardIDN:
   Order: 6

rst-test-specs.yaml.in

@@ -57,6 +57,16 @@ Input-Parameters:
 #exec sed 's/^/  /' inc/integration/inputs.yaml
 
 Errors:
+  RST_EXCEPTION:
+    Severity: CRITICAL
+    Description: |
+      This error occurs when an exception occurs in the RST test system that
+      cannot be recovered. This issue is with RST system, not the target
+      registry system. If this error occurs, then the test run will have a
+      `result` property of `exception`.
+
+      This error may occur in any test case.
+
 #exec sed 's/^/  /' tmp/zonemaster-errors.yaml
 #exec sed 's/^/  /' inc/dns/errors.yaml
 #exec sed 's/^/  /' inc/dnssec/errors.yaml

tools/lint.pl

@@ -232,32 +232,34 @@ sub check_error {
         warn(sprintf("Error '%s' has unsupported severity '%s'", $error->id, $error->severity));
     }
 
-    my $used;
-    CASE: foreach my $case ($spec->cases) {
-        if (scalar(grep { $error->id eq $_ } @{$case->{'Errors'}}) > 0) {
-            $used = 1;
-            last CASE;
+    warn(sprintf("Error '%s' appears to have a placeholder description", $error->id)) if ($error->{'Description'} =~ /^TBA/);
+
+    if (q{RST_EXCEPTION} ne $error->id) {
+        my $used;
+        CASE: foreach my $case ($spec->cases) {
+            if (scalar(grep { $error->id eq $_ } @{$case->{'Errors'}}) > 0) {
+                $used = 1;
+                last CASE;
+            }
         }
-    }
 
-    PROVIDER: foreach my $provider ($spec->providers) {
-        my $i = 0;
-        COLUMN: foreach my $column ($provider->columns) {
-            if ('errorCode' eq $column->name) {
-                ROW: foreach my $row (@{$provider->rows}) {
-                    if ($error->id eq $row->[$i]) {
-                        $used = 1;
-                        last PROVIDER;
+        PROVIDER: foreach my $provider ($spec->providers) {
+            my $i = 0;
+            COLUMN: foreach my $column ($provider->columns) {
+                if ('errorCode' eq $column->name) {
+                    ROW: foreach my $row (@{$provider->rows}) {
+                        if ($error->id eq $row->[$i]) {
+                            $used = 1;
+                            last PROVIDER;
+                        }
                     }
                 }
+                $i++;
             }
-            $i++;
         }
-    }
 
-    warn(sprintf("Error '%s' appears to have a placeholder description", $error->id)) if ($error->{'Description'} =~ /^TBA/);
-
-    warn(sprintf("Error '%s' is not used by any cases or data providers", $error->id)) unless ($used);
+        warn(sprintf("Error '%s' is not used by any cases or data providers", $error->id)) unless ($used);
+    }
 }
 
 sub check_provider {