bram/kagi.el
1
0
Fork 0
Code Issues Activity

Added kagi-proofread tests, adjusted kagi-translate tests

Browse source
This commit is contained in:
Bram Schoenmakers 2024-02-14 20:54:32 +01:00
parent 5415473f67
commit ed6df4ba19
Signed by: bram
GPG key ID: 0CCD19DFDC63258F
1 changed files with 24 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

34
kagi-test.el
View file

@ -136,25 +136,39 @@ https://www.example.com"
(describe "kagi-translate"
(before-each
(spy-on #'kagi-fastgpt-prompt))
(it "returns output on minimal input"
(kagi-translate "foo" "English")
(it "calls kagi-fastgpt-prompt non-interactively with target language in prompt"
(kagi-translate "hello" "toki pona")
(expect #'kagi-fastgpt-prompt :to-have-been-called-times 1)
(let ((args (spy-calls-args-for #'kagi-fastgpt-prompt 0)))
;; has English in the prompt
(expect (nth 0 args) :to-match "English")
;; not going to test the exact
;; phrasing of the prompt, but at
;; least 'toki pona' has to
;; appear.
(expect (nth 0 args) :to-match "toki pona")
;; called non-interactively
(expect (nth 2 args) :to-equal nil)))
(it "returns output with a source language"
(kagi-translate "foo" "English" "Spanish")
(it "calls kagi-fastgpt-prompt non-interactively with source and target language in prompt"
(kagi-translate "bonjour" "toki pona" "French")
(let ((args (spy-calls-args-for #'kagi-fastgpt-prompt 0)))
;; has English in the prompt
(expect (nth 0 args) :to-match "English")
;; has Spanish in the prompt
(expect (nth 0 args) :to-match "Spanish")
;; has 'toki pona' in the prompt
(expect (nth 0 args) :to-match "toki pona")
;; and has French in the prompt
(expect (nth 0 args) :to-match "French")
;; called non-interactively
(expect (nth 2 args) :to-equal nil)))
(it "calls kagi-fastgpt-prompt with interactive flag when called interactively"
(kagi-translate "foo" "English" nil t)
(let ((args (spy-calls-args-for #'kagi-fastgpt-prompt 0)))
;; called interactively
(expect (nth 2 args) :to-equal t))))
(describe "kagi-proofread"
(before-each
(spy-on #'kagi-fastgpt-prompt))
(it "calls kagi-fastgpt-prompt"
(kagi-proofread "foo")
(expect #'kagi-fastgpt-prompt :to-have-been-called))
(it "calls kagi-fastgpt-prompt with interactive flag when called interactively"
(kagi-proofread "foo" t)
(let ((args (spy-calls-args-for #'kagi-fastgpt-prompt 0)))
;; called interactively
(expect (nth 2 args) :to-equal t)))))