diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-10-27 16:08:39 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-11-06 00:46:25 +0100 |
| commit | a89a4b152fda1c6346e82ea92af498fcfbc53089 (patch) | |
| tree | 6319dfaa7ae1a4af5d1250a564abd90f14c19976 /tests | |
| parent | Remove unused 'color-if'. (diff) | |
| download | calp-a89a4b152fda1c6346e82ea92af498fcfbc53089.tar.gz calp-a89a4b152fda1c6346e82ea92af498fcfbc53089.tar.xz | |
Add proper text calendar.
Previously the program `cal` was used, this was slow and unreliable.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/unit/text/text-calendar.scm | 83 |
1 files changed, 83 insertions, 0 deletions
diff --git a/tests/unit/text/text-calendar.scm b/tests/unit/text/text-calendar.scm new file mode 100644 index 00000000..43064ad1 --- /dev/null +++ b/tests/unit/text/text-calendar.scm @@ -0,0 +1,83 @@ +(define-module (test text-calendar) + :use-module (srfi srfi-64) + :use-module (srfi srfi-71) + :use-module (srfi srfi-88) + :use-module (datetime) + :use-module (text calendar)) + +;;; TODO these tests are locale-dependant + +(test-equal "Start and end week are partial" + '(" oktober 2023 " + "må ti on to fr lö sö" + " 1" + " 2 3 4 5 6 7 8" + " 9 10 11 12 13 14 15" + "16 17 18 19 20 21 22" + "23 24 25 26 27 28 29" + "30 31 ") + (graphical-calendar (date year: 2023 month: oct) wkst: mon)) + +(test-equal "End week is full, start is partial" + '(" april 2023 " + "må ti on to fr lö sö" + " 1 2" + " 3 4 5 6 7 8 9" + "10 11 12 13 14 15 16" + "17 18 19 20 21 22 23" + "24 25 26 27 28 29 30" + " ") + (graphical-calendar (date year: 2023 month: apr) wkst: mon)) + +(test-equal "Start week is full, end is partial" + '(" oktober 2023 " + "sö må ti on to fr lö" + " 1 2 3 4 5 6 7" + " 8 9 10 11 12 13 14" + "15 16 17 18 19 20 21" + "22 23 24 25 26 27 28" + "29 30 31 " + " ") + (graphical-calendar (date year: 2023 month: oct) wkst: sun)) + +(test-equal "Exact lineup" + '(" februari 1800 " + "to fr lö sö må ti on" + " 1 2 3 4 5 6 7" + " 8 9 10 11 12 13 14" + "15 16 17 18 19 20 21" + "22 23 24 25 26 27 28" + " " + " ") + (graphical-calendar (date year: 1800 month: feb) wkst: thu)) + +(test-equal "Exact lineup" + '(" februari 1800 " + "to fr lö sö må ti on" + " 1 2 3 4 5 6 7" + " 8 9 10 11 12 13 14" + "15 16 17 \x1b[7m18\x1b[m 19 20 21" + "22 23 24 25 26 27 28" + " " + " ") + (graphical-calendar (date year: 1800 month: feb day: 18) wkst: thu)) + + + +;;; This also tests that month overflow into next year works +(test-equal "Displayed calendar + overflowing into next year" + (string-append + " november 2023 december 2023 januari 2024 \n" + "må ti on to fr lö sö må ti on to fr lö sö må ti on to fr lö sö\n" + " 1 2 3 4 5 1 2 3 1 2 3 4 5 6 7\n" + " 6 7 8 9 10 11 12 4 5 6 7 8 9 10 8 9 10 11 12 13 14\n" + "13 14 15 16 17 18 19 11 12 13 14 15 16 17 15 16 17 18 19 20 21\n" + "20 21 22 23 24 25 26 18 19 20 21 22 23 24 22 23 24 25 26 27 28\n" + "27 28 29 30 25 26 27 28 29 30 31 29 30 31 \n" + " \n") + (with-output-to-string + (lambda () + (cal-3 (date year: 2023 month: dec))))) + + +'((text calendar)) |