ci: add gh workflow test

Author: hlolli

.github/workflows/test.yml

@@ -0,0 +1,48 @@
+name: Test
+
+on:
+  push:
+  pull_request:
+
+permissions:
+  contents: read
+
+jobs:
+  test:
+    name: Emacs ${{ matrix.emacs-version }}
+    runs-on: ubuntu-latest
+    strategy:
+      fail-fast: false
+      matrix:
+        emacs-version:
+          - "30.2"
+          - "29.4"
+          - "28.2"
+          - "27.2"
+    steps:
+      - uses: actions/checkout@v4
+
+      - uses: purcell/setup-emacs@master
+        with:
+          version: ${{ matrix.emacs-version }}
+
+      - name: Install package dependencies
+        shell: bash
+        run: |
+          emacs --batch --no-site-file --no-splash \
+            --eval "(require 'package)" \
+            --eval "(setq package-user-dir (expand-file-name \".emacs.d/elpa\" default-directory))" \
+            --eval "(setq package-archives '((\"gnu\" . \"https://elpa.gnu.org/packages/\") (\"melpa\" . \"https://melpa.org/packages/\")))" \
+            --eval "(package-initialize)" \
+            --eval "(package-refresh-contents)" \
+            --eval "(dolist (pkg '(shut-up multi dash highlight test-simple)) (unless (package-installed-p pkg) (package-install pkg)))"
+
+      - name: Run tests
+        shell: bash
+        run: |
+          emacs --batch --no-site-file --no-splash -L . \
+            --eval "(setq-default indent-tabs-mode nil)" \
+            --eval "(require 'package)" \
+            --eval "(setq package-user-dir (expand-file-name \".emacs.d/elpa\" default-directory))" \
+            --eval "(package-initialize)" \
+            --load test/csound-mode-tests.el

README.md

@@ -98,7 +98,7 @@ The tests depend on the package _test-simple.el_.
 Run the tests locally from the command line
 
 ```
-emacs --batch --no-site-file --no-splash --load test/csound-mode-tests.el
+emacs --batch --no-site-file --no-splash -L . --load test/csound-mode-tests.el
 ```
 
 

test/csound-mode-tests.el

@@ -291,4 +291,38 @@ endop")
    example-udo-1-expected
    (buffer-substring-no-properties (point-min) (point-max))))
 
+(note "Test manual lookup URLs")
+
+(let ((csound-manual-url "file:///tmp/csound-manual"))
+  (assert-string-equal
+   "file:///tmp/csound-manual/index.html"
+   (csound-manual--file-name-concat csound-manual-url "index.html")))
+
+(let ((csound-manual-url "file:///tmp/csound-manual/"))
+  (assert-string-equal
+   "file:///tmp/csound-manual/ScoreGenRef.html"
+   (csound-manual--file-name-concat csound-manual-url "ScoreGenRef.html")))
+
+(let ((csound-manual-url "file:///tmp/csound-manual")
+      (browse-url-browser-function
+       (lambda (url &rest _args)
+         (setq csound-mode-test--browse-url url)))
+      (csound-mode-test--browse-url nil))
+  (csound-browse-manual)
+  (assert-string-equal
+   "file:///tmp/csound-manual/index.html"
+   csound-mode-test--browse-url))
+
+(test-with-temp-buffer "f 1 0 1024 10 1"
+  (let ((csound-manual-url "file:///tmp/csound-manual")
+        (browse-url-browser-function
+         (lambda (url &rest _args)
+           (setq csound-mode-test--browse-url url)))
+        (csound-mode-test--browse-url nil))
+    (goto-char 3)
+    (csound-gen-manual-lookup)
+    (assert-string-equal
+     "file:///tmp/csound-manual/GEN01.html"
+     csound-mode-test--browse-url)))
+
 (end-tests)