From b3164d64f46a2c9e606f4ff833082b94d460900c Mon Sep 17 00:00:00 2001
From: Ilya Sherenkov <ilya.sherenkov@gmail.com>
Date: Thu, 12 Nov 2026 03:14:34 +0300
Subject: [PATCH] #1697: skip unit tests written as applications in
 compound-name

---
 .../org/eolang/lints/names/compound-name.xsl  | 10 ++++++++-
 ...ws-unit-tests-written-as-applications.yaml | 21 +++++++++++++++++++
 ...nd-attribute-next-to-application-test.yaml | 16 ++++++++++++++
 3 files changed, 46 insertions(+), 1 deletion(-)
 create mode 100644 src/test/resources/org/eolang/lints/packs/single/compound-name/allows-unit-tests-written-as-applications.yaml
 create mode 100644 src/test/resources/org/eolang/lints/packs/single/compound-name/catches-compound-attribute-next-to-application-test.yaml

diff --git a/src/main/resources/org/eolang/lints/names/compound-name.xsl b/src/main/resources/org/eolang/lints/names/compound-name.xsl
index 280f0f914..c2ee86af4 100644
--- a/src/main/resources/org/eolang/lints/names/compound-name.xsl
+++ b/src/main/resources/org/eolang/lints/names/compound-name.xsl
@@ -7,6 +7,7 @@
   <xsl:import href="/org/eolang/funcs/lineno.xsl"/>
   <xsl:import href="/org/eolang/funcs/defect-context.xsl"/>
   <xsl:import href="/org/eolang/funcs/special-name.xsl"/>
+  <xsl:import href="/org/eolang/funcs/test-name.xsl"/>
   <xsl:import href="/org/eolang/funcs/escape.xsl"/>
   <xsl:output encoding="UTF-8" method="xml"/>
   <!-- Since developers might decide not to use kebab-case, it's better to catch all such cases. -->
@@ -27,7 +28,14 @@
   </xsl:function>
   <xsl:template match="/">
     <defects>
-      <xsl:for-each select="//o[@base and (@local, @name)[1][not(eo:special(.)) and eo:compound(.) and not(eo:idiomatic(.))]]">
+      <!--
+      A unit test is not an attribute, even when it is written as an
+      application, such as "pos.eq 6 +> can-find-space", and therefore
+      carries a "@base", unlike a "[] +> can-find-space" formation. Its name
+      must start with a prefix such as "can-" (see "bad-test-name"), so it is
+      always compound.
+      -->
+      <xsl:for-each select="//o[@base and not(eo:test-name(@name)) and (@local, @name)[1][not(eo:special(.)) and eo:compound(.) and not(eo:idiomatic(.))]]">
         <defect>
           <xsl:variable name="line" select="eo:lineno(@line)"/>
           <xsl:attribute name="line">
diff --git a/src/test/resources/org/eolang/lints/packs/single/compound-name/allows-unit-tests-written-as-applications.yaml b/src/test/resources/org/eolang/lints/packs/single/compound-name/allows-unit-tests-written-as-applications.yaml
new file mode 100644
index 000000000..937090b51
--- /dev/null
+++ b/src/test/resources/org/eolang/lints/packs/single/compound-name/allows-unit-tests-written-as-applications.yaml
@@ -0,0 +1,21 @@
+# SPDX-FileCopyrightText: Copyright (c) 2016-2026 Objectionary.com
+# SPDX-License-Identifier: MIT
+---
+sheets:
+  - /org/eolang/lints/names/compound-name.xsl
+defects: 0
+input: |
+  [] > phrase
+    "Object Thinking" > text
+    text.index-of " " > pos
+
+    pos.eq 6 +> can-find-space
+
+    eq. +> can-find-space-again
+      pos
+      6
+
+    text.slice 20 1 -> cannot-slice-past-end
+
+    [] +> can-find-space-in-formation
+      ^.pos.eq 6 > @
diff --git a/src/test/resources/org/eolang/lints/packs/single/compound-name/catches-compound-attribute-next-to-application-test.yaml b/src/test/resources/org/eolang/lints/packs/single/compound-name/catches-compound-attribute-next-to-application-test.yaml
new file mode 100644
index 000000000..835169a23
--- /dev/null
+++ b/src/test/resources/org/eolang/lints/packs/single/compound-name/catches-compound-attribute-next-to-application-test.yaml
@@ -0,0 +1,16 @@
+# SPDX-FileCopyrightText: Copyright (c) 2016-2026 Objectionary.com
+# SPDX-License-Identifier: MIT
+---
+sheets:
+  - /org/eolang/lints/names/compound-name.xsl
+asserts:
+  - /defects[count(defect[@severity='warning'])=1]
+  - /defects/defect[@line='3']
+  - /defects/defect[contains(., 'space-pos')]
+  - /defects[not(defect[contains(., 'can-find-space')])]
+input: |
+  [] > phrase
+    "Object Thinking" > text
+    text.index-of " " > space-pos
+
+    space-pos.eq 6 +> can-find-space