[elpa] externals/org-transclusion 27abeab88d 06/29: test: test files things-at-point

[ELPA Syncer]

branch: externals/org-transclusion
commit 27abeab88debe275ee36ceaf18b5b471ab6210ac
Author: Noboru Ota <me@nobiot.com>
Commit: Noboru Ota <me@nobiot.com>

    test: test files things-at-point
---
 test/things-at-point-dir/baz.el    | 10 ++++++++++
 test/things-at-point-dir/story.txt |  7 +++++++
 test/things-at-point.org           | 27 +++++++++++++++++++++++++++
 3 files changed, 44 insertions(+)

diff --git a/test/things-at-point-dir/baz.el b/test/things-at-point-dir/baz.el
new file mode 100644
index 0000000000..f0546a38dc
--- /dev/null
+++ b/test/things-at-point-dir/baz.el
@@ -0,0 +1,10 @@
+(defun bar (arg)
+  "Documentation for bar"
+  arg)
+
+
+;; Comments
+(defun foo ()
+  "Documentation for this function."
+  (bar (let ((fuzz (buzz))) ;<id:1234567890>
+            (baz fuzz)))
diff --git a/test/things-at-point-dir/story.txt 
b/test/things-at-point-dir/story.txt
new file mode 100644
index 0000000000..3c9521de54
--- /dev/null
+++ b/test/things-at-point-dir/story.txt
@@ -0,0 +1,7 @@
+This is a story
+
+Once upon a time. This paragraph should be transcluded. This is a story.
+And if I have a hard line break, I belive this line is still part of
+the paragraph as defined by ... thing-at-point I think.
+
+This is a new paragraph and should not be included.
diff --git a/test/things-at-point.org b/test/things-at-point.org
new file mode 100644
index 0000000000..1b1a99e0b1
--- /dev/null
+++ b/test/things-at-point.org
@@ -0,0 +1,27 @@
+    What are the allowed (intended?) or tested "things"?
+
+I've briefly tested these:
+
+    word
+    symbol
+    line (redundant, since we already have :lines)
+
+forward-thing is the function used for selecting multiple things. Some gotchas 
from some of the less common things could stem from this not handing them as 
expected.
+
+I expect these will be more common:
+
+    sentence
+    paragraph
+    defun
+    sexp
+    list
+
+#+transclude: [[./things-at-point-dir/story.txt::Once upon a time][story]]  
:thing-at-point paragraph
+
+#+transclude: [[./things-at-point-dir/story.txt::Once upon a time][story]]  
:thing-at-point sentence
+
+#+transclude: [[./things-at-point-dir/baz.el::id:1234567890][[barz-baz-fuzz]]  
:src elisp :thing-at-point sexp
+
+#+transclude: [[./things-at-point-dir/baz.el::foo][[barz-baz-fuzz]]  :src 
elisp :thing-at-point defun
+
+#+transclude: [[./things-at-point-dir/baz.el::id:1234567890][[barz-baz-fuzz]]  
:src elisp :thing-at-point defun