Define function for add-log-current-defun-function

1 files changed, 28 insertions, 0 deletions

diff --git a/snakemake-test.el b/snakemake-test.el
index d725345..fc063c6 100644
--- a/snakemake-test.el
+++ b/snakemake-test.el
@@ -681,6 +681,34 @@ rule xyz:
               (snakemake-end-of-block)
               (buffer-substring (point-min) (point))))))
 
+(ert-deftest snakemake-test-block-or-defun-name ()
+  (should
+   (string= "abc"
+            (snakemake-with-temp-text
+                "
+rule abc:
+<point>    output: 'file'
+"
+              (snakemake-block-or-defun-name))))
+  (should
+   (string= "xyz"
+            (snakemake-with-temp-text
+                "
+rule abc:
+    output: 'file'
+
+<point>def xyz():
+    pass
+"
+              (snakemake-block-or-defun-name))))
+  (should-not
+   (snakemake-with-temp-text
+       "
+rule abc:
+    output: 'file'
+"
+     (snakemake-block-or-defun-name))))
+
 
 ;;; snakemake.el