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

Change test for upcasing

Browse source
This commit is contained in:
Bram Schoenmakers 2024-02-18 07:47:14 +01:00
parent 21c9fcda38
commit d2187e309a
Signed by: bram
GPG key ID: 0CCD19DFDC63258F
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
kagi-test.el
View file

@ -242,7 +242,9 @@ https://www.example.com"
(just-too-little-text-input nil)
(dummy-https-url "https://www.example.com")
(dummy-http-url "http://www.example.com")
(dummp-ftp-url "ftp://example.com"))
(dummy-ftp-url "ftp://example.com")
;; make pattern matching case sensitive
(case-fold-search nil))
(before-all
(dotimes (_ 50) (push "a" just-enough-text-input))
(setq just-too-little-text-input (string-join (cdr just-enough-text-input) " "))
@ -292,6 +294,8 @@ https://www.example.com"
(expect (map-elt args "target_language") :to-equal "XY")))
(it "returns a summary for an HTTPS URL"
(expect (kagi-summarize dummy-https-url) :to-equal dummy-output))
(it "returns a summary for an uppercase HTTPS URL"
(expect (kagi-summarize (upcase dummy-https-url)) :to-equal dummy-output))
(it "returns a summary for an HTTP URL"
(expect (kagi-summarize dummy-http-url) :to-equal dummy-output))
(it "throws for an unsupported URL scheme"