[nongnu] elpa/dslide 129e16c562 19/21: Extra test files

[ELPA Syncer]

branch: elpa/dslide
commit 129e16c5625ab420f87b5f09a8e8127602739b7a
Author: Psionik K <73710933+psionic-k@users.noreply.github.com>
Commit: Psionik K <73710933+psionic-k@users.noreply.github.com>

    Extra test files
    
    Now I just need to automate them
---
 test/babel.org | 73 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 test/links.org | 18 +++++++++++++++
 2 files changed, 91 insertions(+)

diff --git a/test/babel.org b/test/babel.org
new file mode 100644
index 0000000000..6f542b80aa
--- /dev/null
+++ b/test/babel.org
@@ -0,0 +1,73 @@
+#+title:       Babel Tests
+#+author:      Positron
+#+email:       contact@positron.solutions
+* Ignore Block
+#+begin_src elisp :eval never
+  (error "This wasn't supposed to happen")
+#+end_src
+* Detect Direction
+#+begin_src elisp :direction begin
+  (message "I begin")
+#+end_src
+
+#+begin_src elisp :direction backward
+  (message "I can go backwards")
+#+end_src
+
+#+begin_src elisp :direction [forward backward]
+  (message "I am a vector setting for going either way")
+#+end_src
+
+#+begin_src elisp :direction '(forward backward)
+  (message "I am a quoted list setting for going either way")
+#+end_src
+
+#+begin_src elisp :direction forward
+  (message "I can go forwards")
+#+end_src
+
+#+begin_src elisp :direction forward :eval never
+  (message "I can go forwards, but I am never evaluated")
+#+end_src
+
+#+begin_src elisp :direction final
+  (message "I am the end")
+#+end_src
+
+* Warn on Legacy
+#+attr_dslide: begin
+#+begin_src elisp
+  (message "I begin but I do warn")
+#+end_src
+
+#+attr_dslide: backward
+#+begin_src elisp
+  (message "I go backward, but I do warn")
+#+end_src
+
+#+attr_dslide: forward
+#+begin_src elisp
+  (message "I go forward, but I do warn")
+#+end_src
+
+* Hidden
+#+begin_src elisp :exports none
+  (message "I'm hidden")
+#+end_src
+
+* Results Only
+#+begin_src elisp :exports results
+  (message "Im results only")
+#+end_src
+* Push Step
+This block will take one extra step, due to the non-nil return value
+#+begin_src elisp :direction forward
+  (message "I can go forwards")
+  (dslide-push-step
+   (lambda (direction)
+     (prog1 t
+       (message "going %s" direction))))
+#+end_src
+
+* Next Slide
+Did the previous slide take an extra step?
diff --git a/test/links.org b/test/links.org
new file mode 100644
index 0000000000..ae66f6b88b
--- /dev/null
+++ b/test/links.org
@@ -0,0 +1,18 @@
+#+title:       Link Tests
+#+author:      Positron
+#+email:       contact@positron.solutions
+* An Image
+[[./images/elpaca.jpg]]
+* A Link
+[[https://www.youtube.com/watch?v=NfuiB52K7X8][Pen Pineapple Apple Pen]]
+
+If this is treated as an image, things are bad.
+* An Org Link
+[[orgit-rev:~/.emacs.d/elpaca/repos/dslide/::0da4acfb737eb00c483358f66f14ffe6dcc3be07][~/.emacs.d/elpaca/repos/dslide/
 (magit-rev 0da4acf)]]
+This is also not an image and should not be treated as such.
+* Interior Link
+[[An Image]]
+Nope, still not an image.
+* Web Link
+[[https://raw.githubusercontent.com/positron-solutions/dslide/refs/heads/master/test/images/elpaca.jpg]]
+An Image, but hopefully does not explode