[nongnu] elpa/gptel 41dc988476: gptel: Move tests to submodule

[ELPA Syncer]

branch: elpa/gptel
commit 41dc9884761849a7ee2dd257467b6ec9b7d8d904
Author: Karthik Chikmagalur <karthikchikmagalur@gmail.com>
Commit: Karthik Chikmagalur <karthikchikmagalur@gmail.com>

    gptel: Move tests to submodule
    
    test: Since the number of example files required for testing is
    growing, move it to a separate repository and add tests as a
    submodule instead.  (Time will tell if this was a terrible idea!)
---
 .gitmodules            |   3 +
 test                   |   1 +
 test/gptel-org-test.el | 148 -------------------------------------------------
 3 files changed, 4 insertions(+), 148 deletions(-)

diff --git a/.gitmodules b/.gitmodules
new file mode 100644
index 0000000000..4a36a1c6fc
--- /dev/null
+++ b/.gitmodules
@@ -0,0 +1,3 @@
+[submodule "gptel-test"]
+       path = test
+       url = https://github.com/karthink/gptel-test.git
diff --git a/test b/test
new file mode 160000
index 0000000000..ada6dec8b2
--- /dev/null
+++ b/test
@@ -0,0 +1 @@
+Subproject commit ada6dec8b2229fddc81d6e772f59bee4e5733a60
diff --git a/test/gptel-org-test.el b/test/gptel-org-test.el
deleted file mode 100644
index 466dd4e95d..0000000000
--- a/test/gptel-org-test.el
+++ /dev/null
@@ -1,148 +0,0 @@
-;; -*- lexical-binding: t; no-byte-compile: t; -*-
-(require 'ert)
-(require 'gptel)
-(require 'gptel-org)
-(require 'cl-generic)
-
-(declare-function json-read "json" ())
-(defvar json-object-type)
-
-;;; Methods for collecting data from HTTP logs
-(cl-defgeneric gptel-test--read-response (backend &optional from to))
-(cl-defmethod gptel-test--read-response ((_backend gptel-openai) &optional 
from to)
-  (setq from (or from (point-min))
-        to (or to (point-max)))
-  (save-restriction
-    (narrow-to-region from to)
-    (goto-char from)
-    (let ((strs))
-      (while (re-search-forward "^data: *" nil t)
-        ;; (forward-char)
-        (condition-case-unless-debug err
-            (thread-first
-              (gptel--json-read)
-              (map-nested-elt '(:choices 0 :delta :content))
-              (push strs))
-          (error strs)
-          (:success strs)))
-      (setq strs (delq nil (nreverse strs))))))
-
-(defun gptel-org--test-compare-org (md-list)
-  "Given a list of markdown-formatted strings MD-LIST, covert it to
-Org markup incrementally and display both in buffers."
-  (let ((func (gptel--stream-convert-markdown->org)))
-    (with-current-buffer (get-buffer-create "gptel-org-test-md-input.md")
-      (erase-buffer)
-      (apply #'insert md-list)
-      (display-buffer (current-buffer)))
-    (with-current-buffer (get-buffer-create "gptel-org-test-org-output.org")
-      (erase-buffer)
-      (apply #'insert (mapcar func md-list))
-      (display-buffer (current-buffer)))))
-
-;; Oneshot converter test generation
-
-(defmacro gptel-org--test-conversion (md-list org-str)
-  `(ert-deftest
-       ,(intern (concat "gptel-org--test-conversion-"
-                 (substring (sha1 (prin1-to-string (current-time))) 0 10)))
-       ()
-     (should
-      (string= (gptel--convert-markdown->org
-                (apply #'concat ,md-list))
-       ,org-str))))
-
-;; Stream converter test generation
-
-(defmacro gptel-org--test-stream-conversion (md-list org-str)
-  `(ert-deftest
-       ,(intern (concat "gptel-org--test-stream-conversion-"
-                 (substring (sha1 (prin1-to-string (current-time))) 0 10)))
-       ()
-       (let ((func (gptel--stream-convert-markdown->org)))
-        (prog1
-            (should
-             (string= (apply #'concat (mapcar func ,md-list))
-              ,org-str))
-          (setq gptel-post-response-functions nil)))))
-
-;; Tests
-
-(let ((md '("" "```" "cpp" "
-" "#include" " <" "cstdio" ">
-
-" "int" " main" "()" " {
-" "   " " printf" "(\"" "``" "``" "`" "\n" "\");
-" "   " " return" " " "0" ";
-" "}
-" "```"))
-      (org "#+begin_src cpp
-#include <cstdio>
-
-int main() {
-    printf(\"`````\n\");
-    return 0;
-}
-#+end_src"))
-  (gptel-org--test-conversion md org)
-  (gptel-org--test-stream-conversion md org))
-
-(let ((md '("" "Here" " is" " a" " simple" " C" "++" " program" " that" " 
uses" " the" " `" "printf" "`" " function" " to" " print" " the" " string" " 
containing" " " "5" " back" "ticks" ":
-
-" "```" "cpp" "
-" "#include" " <" "iostream" ">
-
-" "int" " main" "()" " {
-" "   " " //" " Using" " printf" " to" " print" " " "5" " back" "ticks" "
-" "   " " printf" "(\"" "``" "``" "`" "\n" "\");
-
-" "   " " return" " " "0" ";
-" "}
-" "``" "`
-
-" "In" " this" " code" " snippet" "," " `" "printf" "(\"" "``" "``" "`" "\n" 
"\");" "`" " is" " used" " to" " print" " the" " string" " \"" "``" "```" "\"" 
" followed" " by" " a" " newline" " character" "."))
-      (org "Here is a simple C++ program that uses the =printf= function to 
print the string containing 5 backticks:
-
-#+begin_src cpp
-#include <iostream>
-
-int main() {
-    // Using printf to print 5 backticks
-    printf(\"`````\n\");
-
-    return 0;
-}
-#+end_src
-
-In this code snippet, =printf(\"`````\n\");= is used to print the string \"=\" 
followed by a newline character."))
-  (gptel-org--test-conversion md org)
-  (gptel-org--test-stream-conversion md org))
-
-
-(let ((md '("" "In" " the" " definition" " of" " the" " `" "struct" " json" 
"_parser" "`," " the" " line" " `" "L" "isp" "_Object" " *" "object" 
"_workspace" ";" "`" " declares" " a" " pointer" " named" " `" "object" 
"_workspace" "`" " of" " type" " `" "L" "isp" "_Object" "`.\n\n" "The" " aster" 
"isk" " (*)" " in" " `" "L" "isp" "_Object" " *" "object" "_workspace" ";" "`" 
" is" " the" " pointer" " ind" "irection" " operator" " in" " C" "." " It" " 
indicates" " that" " `" "object" "_work [...]
-      (org "In the definition of the =struct json_parser=, the line 
=Lisp_Object *object_workspace;= declares a pointer named =object_workspace= of 
type =Lisp_Object=.
-
-The asterisk (*) in =Lisp_Object *object_workspace;= is the pointer 
indirection operator in C. It indicates that =object_workspace= is a pointer to 
an object of type =Lisp_Object=. This means that =object_workspace= will store 
the memory address (location) of a =Lisp_Object= variable rather than storing 
the actual =Lisp_Object= value.
-
-Therefore, =object_workspace= will be used to point to or reference locations 
in memory where =Lisp_Object= instances are stored. This allows the =struct 
json_parser= to store and work with =Lisp_Object= instances indirectly through 
pointers."))
-  (gptel-org--test-conversion md org)
-  (gptel-org--test-stream-conversion md org))
-
-(let ((md '("#" "# Advantages of"
-            " Org-Mode: A Detailed Overview\n\nOrg-mode is a powerful and 
versatile Emacs extension that offers a wide range of features"
-            " for organizing information, planning projects, and writing 
documents. Here's a detailed overview of its advantages:\n\n**Note Taking and 
Idea Management:**\n\n"
-            "* **Unified platform:** Org-mode provides a single platform for 
capturing notes, ideas, and tasks, eliminating the need for multiple tools and 
ensuring everything is in one place.\n* **Flexibility:** Notes can be 
structured hierarchically"
-            " using headlines and subheadings, allowing for easy organization 
and navigation.\n* **Linking and tags:** Link notes together for easy reference 
and connect them with tags for categorized browsing.\n* **Metadata:** Capture 
additional information like author, deadline, and"
-            " priority for better organization and search.\n\n**Project 
Management and Planning:**\n\n* **Task management:** Create to-do lists with 
deadlines, priority levels, and tags for efficient task management.\n* **Gantt 
charts and time estimates:** Visualize project timelines and estimate time 
commitments for better planning and organization.\n* **Calendar integration:** 
Link tasks to your calendar for better integration and time management.\n* **"
-            "Progress tracking:** Track the progress of tasks and projects 
with checkboxes and progress bars.\n\n**Writing and Document Creation:**\n\n* 
**Rich text formatting:** Org-mode supports a variety of text formatting 
options, including bold, italics, headings, and lists, for creating 
professional-looking documents.\n* **Exporting to various formats:** Easily 
export your notes and documents to various formats like PDF, HTML, LaTeX, and"
-            " plain text.\n* **Beamer presentations:** Create Beamer 
presentations directly within Org-mode for academic or professional 
presentations.\n* **Source code blocks:** Include and highlight code blocks for 
easy reference and documentation.\n\n**Additional Features:**\n\n* 
**Org-Capture:** Quickly capture ideas, notes, and tasks from anywhere using 
keyboard shortcuts.\n* **Org-Agenda:** View and manage your tasks and 
appointments in a calendar-like format.\n* **Emacs Lisp scrip [...]
-            " functionality and automate tasks with Emacs Lisp scripting.\n* *"
-            "*Active development and community support:** Benefit from the 
active development and supportive community of Org-mode users.\n\n**Overall 
Advantages:**\n\n* **Increased productivity:** Organize your thoughts, tasks, 
and projects efficiently, leading to increased productivity.\n*"
-            " **Improved focus:** Eliminate distractions and stay focused on 
the task at hand.\n* **Enhanced creativity:** Capture ideas quickly and easily, 
fostering creativity and innovation.\n* **Knowledge management:** Build a 
comprehensive knowledge base"
-            " of notes, ideas, and projects for future reference.\n*"
-            " **Personalized workflow:** Tailor Org-mode to your specific 
needs and preferences for a truly personalized 
workflow.\n\n**Limitations:**\n\n* **Learning curve:** While powerful, Org-mode 
has a steeper learning curve compared to simpler note-taking apps.\n* **Emacs 
dependency:** Org-mode requires Emacs, which may not be suitable for all 
users.\n* **Limited mobile support:** Mobile support for Org-mode is available 
but not as feature-rich as"
-            " the desktop version.\n\n**Who should use Org-mode?**\n\n"
-            "* Students\n* Researchers\n* Writers\n* Project managers\n* 
Anyone who wants to improve their personal organization and 
productivity\n\n**Conclusion:**\n\nOrg-mode is a powerful and versatile tool 
that can significantly increase your productivity and organization. Its 
flexibility, rich features, and active community make it an excellent choice 
for managing notes, projects, and documents. If you're looking for a way to 
streamline your workflow and unleash your creativity, Org [...]
-      (org "** Advantages of Org-Mode: A Detailed Overview\n\nOrg-mode is a 
powerful and versatile Emacs extension that offers a wide range of features for 
organizing information, planning projects, and writing documents. Here's a 
detailed overview of its advantages:\n\n*Note Taking and Idea Management:*\n\n- 
*Unified platform:* Org-mode provides a single platform for capturing notes, 
ideas, and tasks, eliminating the need for multiple tools and ensuring 
everything is in one place.\n- *F [...]
-  (gptel-org--test-conversion md org)
-  (gptel-org--test-stream-conversion md org))