From 57134d70fe8a518b71ace9ada268fefbeb9f5ecc Mon Sep 17 00:00:00 2001
From: Matthew Fernandez <matthew.fernandez@gmail.com>
Date: Tue, 21 Jun 2022 19:38:30 -0700
Subject: [PATCH] add a test case for #1624

---
 tests/1624.dot           | 18 ++++++++++++++++++
 tests/test_regression.py | 14 ++++++++++++++
 2 files changed, 32 insertions(+)
 create mode 100644 tests/1624.dot

diff --git a/tests/1624.dot b/tests/1624.dot
new file mode 100644
index 000000000..ba8ae1527
--- /dev/null
+++ b/tests/1624.dot
@@ -0,0 +1,18 @@
+digraph cluster {
+    node [ shape = "record"]
+
+    subgraph cluster_dc1 {
+        label = "dc1";
+        cas1
+        app1
+    }
+    subgraph cluster_dc2 {
+        label = "dc2";
+        cas2
+        app2
+    }
+    app1 -> cas1
+    app1 -> cas2
+    app2 -> cas1
+}
+
diff --git a/tests/test_regression.py b/tests/test_regression.py
index ca89458ab..ec9b1f475 100644
--- a/tests/test_regression.py
+++ b/tests/test_regression.py
@@ -555,6 +555,20 @@ def test_1594():
   assert "line 3:" in stderr, \
     "GVPR did not identify correct line of syntax error"
 
+@pytest.mark.xfail(strict=True)
+def test_1624():
+  """
+  record shapes should be usable
+  https://gitlab.com/graphviz/graphviz/-/issues/1624
+  """
+
+  # locate our associated test case in this directory
+  input = Path(__file__).parent / "1624.dot"
+  assert input.exists(), "unexpectedly missing test case"
+
+  # process it with Graphviz
+  dot("svg", input)
+
 def test_1658():
   """
   the graph associated with this test case should not crash Graphviz
-- 
2.40.0