add tests

.github/workflows/emacs-test.yml

@@ -0,0 +1,23 @@
+name: Emacs Tests
+
+on:
+ push:
+ branches:
+ - main
+ pull_request:
+ branches:
+ - main
+
+jobs:
+ build:
+ runs-on: ubuntu-latest
+
+ steps:
+ - name: Checkout code
+ uses: actions/checkout@v2
+
+ - name: Install Emacs
+ run: sudo apt-get install emacs
+
+ - name: Run tests
+ run: emacs --batch -l ert -l tzc-tests.el -f ert-run-tests-batch-and-exit

tzc-tests.el

@@ -0,0 +1,9 @@
+(require 'ert)
+(load-file "tzc.el")
+
+(ert-deftest tzc-test-get-offset-lisbon ()
+ (should (equal (mapcar (lambda (date) (tzc--get-offset "Europe/Lisbon" date)) (list "2024-03-25" "2024-04-05")) (list "+0000" "+0100"))))
+
+(ert-deftest tzc-test-get-offset-los-angeles ()
+ (should (equal (mapcar (lambda (date) (tzc--get-offset "America/Los_Angeles" date)) (list "2024-02-25" "2024-03-15")) (list "-0800" "-0700"))))
+