diff --git a/tests/test-dirs/refactor-open/record_field.t b/tests/test-dirs/refactor-open/record_field.t
new file mode 100644
index 0000000000..8b94345614
--- /dev/null
+++ b/tests/test-dirs/refactor-open/record_field.t
@@ -0,0 +1,25 @@
+FIXME refactor open rewriting the whole record instead of a field label
+  $ $MERLIN single refactor-open -action unqualify -position 4:7 <<EOF
+  > module M = struct
+  >   type r = {i: int}
+  > end
+  > open M
+  > let r = {M.i = 1}
+  > EOF
+  {
+    "class": "return",
+    "value": [
+      {
+        "start": {
+          "line": 5,
+          "col": 8
+        },
+        "end": {
+          "line": 5,
+          "col": 17
+        },
+        "content": "i"
+      }
+    ],
+    "notifications": []
+  }