From 79a22046c93aa770cb2393a288cb0fab13febed6 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Thu, 2 Nov 2023 17:46:05 +0100 Subject: Fix rec advance test. --- tests/unit/README.md | 12 ++++++++++++ tests/unit/text/text-numbers.scm | 10 ++++++++++ tests/unit/vcomponent/recurrence-advanced.scm | 2 +- 3 files changed, 23 insertions(+), 1 deletion(-) create mode 100644 tests/unit/README.md create mode 100644 tests/unit/text/text-numbers.scm diff --git a/tests/unit/README.md b/tests/unit/README.md new file mode 100644 index 00000000..e0252627 --- /dev/null +++ b/tests/unit/README.md @@ -0,0 +1,12 @@ +Unit tests +========== + +Unit tests are grouped into directories according to what I felt like. The +groups doesn't actually do anything (except allow easier running of only some). + +Each test file is written as a module declaration, since that make Guile +slightly happier, and should end with a quoted list of modules which are +explicitly tested in that file. Later, the coverage data from that test +will be limited to the modules specified. This gives *much* better coverage +data, and ensures that we actually cover all procedures with tests, instead +of them being covered by some test "higher up" in the chain. diff --git a/tests/unit/text/text-numbers.scm b/tests/unit/text/text-numbers.scm new file mode 100644 index 00000000..c2fb3160 --- /dev/null +++ b/tests/unit/text/text-numbers.scm @@ -0,0 +1,10 @@ +;;; for each selected language +;;; Run all the following tests + +;;; number->string-cardinal +;;; number->string-ordinal +;;; resolve-language ; TOOD this is a re-export. Is it used anywhere? +;;; each-string + + +'((text numbers)) diff --git a/tests/unit/vcomponent/recurrence-advanced.scm b/tests/unit/vcomponent/recurrence-advanced.scm index 41e4770e..75d1a8fb 100644 --- a/tests/unit/vcomponent/recurrence-advanced.scm +++ b/tests/unit/vcomponent/recurrence-advanced.scm @@ -1400,7 +1400,7 @@ bymonthday: (list 15 30) count: 5) x-summary: - "den femtonde & tretionde varje månad, totalt 5 gånger" + "den femtonde & trettionde varje månad, totalt 5 gånger" x-set: (list (datetime year: 2007 month: 01 day: 15 hour: 09 minute: 00 second: 00) (datetime year: 2007 month: 01 day: 30 hour: 09 minute: 00 second: 00) -- cgit v1.2.3