[nongnu] elpa/gptel d502ad8ecb 222/273: test-gptel-org: Add markdown conversion tests

[ELPA Syncer]

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

    test-gptel-org: Add markdown conversion tests
    
    * test/test-gptel-org.el (test--gptel-convert-markdown->org,
    test--gptel--stream-convert-markdown->org): Add tests
    
    Also remove out-of-date demo image.
---
 img/gptel.png          | Bin 235215 -> 0 bytes
 test/test-gptel-org.el |  32 ++++++++++++++++++++++++++++++++
 2 files changed, 32 insertions(+)

diff --git a/img/gptel.png b/img/gptel.png
deleted file mode 100755
index 146caea5e4..0000000000
Binary files a/img/gptel.png and /dev/null differ
diff --git a/test/test-gptel-org.el b/test/test-gptel-org.el
new file mode 100644
index 0000000000..8ecc68956b
--- /dev/null
+++ b/test/test-gptel-org.el
@@ -0,0 +1,32 @@
+;; -*- lexical-binding: t; -*-
+(require 'ert)
+(require 'gptel)
+
+(let ((string-sequence
+       '("" "```" "cpp" "
+" "#include" " <" "cstdio" ">
+
+" "int" " main" "()" " {
+" "   " " printf" "(\"" "``" "``" "`" "\n" "\");
+" "   " " return" " " "0" ";
+" "}
+" "```"))
+      (converted-sequence
+       "#+begin_src cpp
+#include <cstdio>
+
+int main() {
+    printf(\"`````\n\");
+    return 0;
+}
+#+end_src"))
+  (ert-deftest test--gptel--convert-markdown->org ()
+    (should (string= (gptel--convert-markdown->org (apply #'concat 
string-sequence))
+                     converted-sequence)))
+
+  (ert-deftest test--gptel--stream-convert-markdown->org ()
+    (let ((func (gptel--stream-convert-markdown->org)))
+      (should
+       (string= (apply #'concat (mapcar func string-sequence))
+                converted-sequence)))))
+