From d2187e309aefc67844a12da0e9f851d12f1fd00d Mon Sep 17 00:00:00 2001 From: Bram Schoenmakers Date: Sun, 18 Feb 2024 07:47:14 +0100 Subject: [PATCH] Change test for upcasing --- kagi-test.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/kagi-test.el b/kagi-test.el index a950e9a..3c61457 100644 --- a/kagi-test.el +++ b/kagi-test.el @@ -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"