From 2d6136fe2b44ec4f21d7fa4a20be1a43f103e308 Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Wed, 11 May 2016 21:01:41 -0400
Subject: Define function for add-log-current-defun-function

---
 snakemake-test.el | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)

(limited to 'snakemake-test.el')

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
 
-- 
cgit v1.2.3