Add hsettings tests (#452)

ChangeLog

@@ -1,5 +1,8 @@
 2024-01-20  Mats Lidell  <[email protected]>
 
+* test/hsettings-test.el: New test file for hsettings.
+    (hsettings-test--hyperbole-web-search): Test hyperbole-web-search.
+
 * Makefile (package-lint): Add explicit loading of package-lint from Melpa
     for this target. Only needed there.
 

test/MANIFEST

@@ -9,6 +9,7 @@ hibtypes-tests.el       - unit test for hib-kbd
 hmouse-drv-tests.el     - hmouse-drv unit tests
 hmouse-info-tests.el    - hmouse-info unit tests
 hpath-tests.el          - unit tests for hpath
+hsettings-test.el       - unit tests for hsettings
 hsys-org-tests.el       - hsys-org tests
 hui-register-tests.el   - test for hui-register
 hui-select-tests.el     - hui-select tests

test/hsettings-test.el

@@ -0,0 +1,46 @@
+;;; hsettings-test.el --- one line summary                -*- lexical-binding: t; -*-
+;;
+;; Author:       Mats Lidell
+;;
+;; Orig-Date:    20-Jan-24 at 12:28:01
+;; Last-Mod:     20-Jan-24 at 14:25:44 by Mats Lidell
+;;
+;; SPDX-License-Identifier: GPL-3.0-or-later
+;;
+;; Copyright (C) 2024  Free Software Foundation, Inc.
+;; See the "HY-COPY" file for license information.
+;;
+;; This file is part of GNU Hyperbole.
+
+;;; Commentary:
+;;
+
+;;; Code:
+
+(require 'ert)
+(require 'el-mock)
+(require 'hsettings)
+
+(ert-deftest hsettings-test--hyperbole-web-search ()
+  "Verify `hyperbole-web-search´."
+  (mocklet (((browse-url "http://www.google.com/search?q=hyperbole") => "return"))
+    (should (string= (hyperbole-web-search "google" "hyperbole" nil) "return")))
+  (should (string= (hyperbole-web-search "google" "hyperbole" t) "http://www.google.com/search?q=hyperbole"))
+  (should-error (hyperbole-web-search "unknown" "hyperbole" nil))
+  (should-error (hyperbole-web-search "unknown" "hyperbole" t))
+
+  ;; Jump
+  ;; Fails due to being called with argument: See test below.
+  ;; (mocklet (((webjump) => "return"))
+  ;;   (should (string= (hyperbole-web-search "Jump" "arg" nil) "return")))
+  (should (equal (hyperbole-web-search "Jump" "arg" t) '(webjump "arg"))))
+
+(ert-deftest hsettings-test--hyperbole-web-search-webjump-called-with-arg ()
+  "Verify `hyperbole-web-search´."
+  :expected-result :failed
+  ;; Jump
+  (mocklet (((webjump) => "return"))
+    (should (string= (hyperbole-web-search "Jump" "arg" nil) "return"))))
+
+(provide 'hsettings-test)
+;;; hsettings-test.el ends here