tristan/gptel
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

test-gptel-org: Add markdown conversion tests

Browse source 
* 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.
This commit is contained in:
Karthik Chikmagalur 2024-03-11 00:49:05 -07:00
parent 3935a6dcf8
commit d502ad8ecb
2 changed files with 32 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

BIN
img/gptel.png
View file

Binary file not shown.
Side by side

Before

Width:  |  Height:  |  Size: 230 KiB

32
test/test-gptel-org.el Normal file
View file

@ -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)))))