Add German ClearSpeak rule and tests for pause intent

Rules/Languages/de/ClearSpeak_Rules.yaml

@@ -1,4 +1,19 @@
 ---
+- name: pause
+  tag: "!*"
+  match: "not(self::m:math) and not($MatchingPause) and @data-intent-property[contains(., ':pause')]"
+  replace:
+   - with:
+      variables: [MatchingPause: "true()"]
+      replace:
+      - test:
+        - if: "contains(@data-intent-property, ':pause-long')"
+          then: [pause: long]
+        - else_if: "contains(@data-intent-property, ':pause-short')"
+          then: [pause: short]
+          else: [pause: medium]
+      - x: "."
+
 - name: intent-literal-silent
   tag: [mi, mo, mn]
   match: "contains(@data-intent-property, ':silent:')"

tests/Languages/de/intent.rs

@@ -3,6 +3,27 @@
 use crate::common::*;
 use anyhow::Result;
 
+#[test]
+fn clear_speak_short_pause_intent() -> Result<()> {
+    // A short pause intent should survive intent inference and render as a comma.
+    let expr = "<math><mrow><mi>x</mi><mi intent=':pause-short:y'>y</mi></mrow></math>";
+    test("de", "ClearSpeak", expr, "x, y")
+}
+
+#[test]
+fn clear_speak_medium_pause_intent() -> Result<()> {
+    // An unsuffixed pause intent requests the default medium pause.
+    let expr = "<math><mrow><mi>x</mi><mi intent=':pause:y'>y</mi></mrow></math>";
+    test("de", "ClearSpeak", expr, "x; y")
+}
+
+#[test]
+fn clear_speak_long_pause_intent() -> Result<()> {
+    // A long pause intent should be preserved in ClearSpeak text output.
+    let expr = "<math><mrow><mi>x</mi><mi intent=':pause-long:y'>y</mi></mrow></math>";
+    test("de", "ClearSpeak", expr, "x; y")
+}
+
 
 #[test]
 fn silent_intent() -> Result<()> {