forked from jforget/emacs-lisp-cal-french
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathverif-calfrench.el
executable file
·132 lines (132 loc) · 10.3 KB
/
verif-calfrench.el
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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
#!/usr/bin/emacs --script
; -*- encoding: utf-8; indent-tabs-mode: nil -*-
;
; Generated test file for the Emacs cal-french.el program.
; Fichier de test généré pour tester le programme cal-french.el de Emacs
;
; Copyright (C) 2014, Jean Forget
;
; Author: Jean Forget
; Maintainer: Jean Forget
; Keywords: French Revolution, calendar
;
; This program is free software; you can redistribute it and modify
; it under the terms of Emacs:
; the GNU General Public License as published by
; the Free Software Foundation; version 3, or (at your option)
; any later version,
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
; GNU General Public License for more details.
;
; You should have received a copy of the GNU General Public License
; along with GNU Emacs; see the file COPYING. If not, see <http://www.gnu.org/licenses/>.
(require 'cal-french)
(defvar cal-french-check-num 0)
(defun ymd-to-mdy (date)
"Convert the date from the logical format to the funny format"
(let ((y (car date))
(m (cadr date))
(d (nth 2 date)))
(list m d y))
)
(defun cal-french-check-unit (date expected-string)
"Unit check for cal-french.el"
(let ((actual-string (calendar-french-date-string (ymd-to-mdy date))))
(setq cal-french-check-num (1+ cal-french-check-num))
(cond ((equal expected-string actual-string)
(princ (format "ok %d
" cal-french-check-num)))
(t
(princ (format "not ok %d %s %s
" cal-french-check-num actual-string expected-string)))
)
)
)
(defun cal-french-check ()
"Self-check for cal-french.el"
(cal-french-check-unit '(1792 9 22) "Primidi 1 Vendémiaire an 1 de la Révolution, jour du Raisin")
(cal-french-check-unit '(1793 10 23) "Duodi 2 Brumaire an 2 de la Révolution, jour du Céleri")
(cal-french-check-unit '(1794 7 27) "Nonidi 9 Thermidor an 2 de la Révolution, jour de la Mûre")
(cal-french-check-unit '(1794 11 23) "Tridi 3 Frimaire an 3 de la Révolution, jour de la Chicorée")
(cal-french-check-unit '(1795 10 5) "Tridi 13 Vendémiaire an 4 de la Révolution, jour du Potiron")
(cal-french-check-unit '(1795 12 25) "Quartidi 4 Nivôse an 4 de la Révolution, jour du Soufre")
(cal-french-check-unit '(1797 1 24) "Quintidi 5 Pluviôse an 5 de la Révolution, jour du Taureau")
(cal-french-check-unit '(1798 2 24) "Sextidi 6 Ventôse an 6 de la Révolution, jour de l'Asaret")
(cal-french-check-unit '(1799 11 9) "Octidi 18 Brumaire an 8 de la Révolution, jour de la Dentelaire")
(cal-french-check-unit '(1801 3 29) "Octidi 8 Germinal an 9 de la Révolution, jour de la Jonquille")
(cal-french-check-unit '(1804 4 30) "Décadi 10 Floréal an 12 de la Révolution, jour du Rateau")
(cal-french-check-unit '(1807 6 1) "Duodi 12 Prairial an 15 de la Révolution, jour de la Bétoine")
(cal-french-check-unit '(1810 7 3) "Quartidi 14 Messidor an 18 de la Révolution, jour de la Lavande")
(cal-french-check-unit '(1813 8 4) "Sextidi 16 Thermidor an 21 de la Révolution, jour de la Guimauve")
(cal-french-check-unit '(1816 9 4) "Octidi 18 Fructidor an 24 de la Révolution, jour du Nerprun")
(cal-french-check-unit '(2000 1 1) "Duodi 12 Nivôse an 208 de la Révolution, jour de l'Argile")
(cal-french-check-unit '(2001 5 11) "Duodi 22 Floréal an 209 de la Révolution, jour de la Fritillaire")
(cal-french-check-unit '(1792 9 22) "Primidi 1 Vendémiaire an 1 de la Révolution, jour du Raisin")
(cal-french-check-unit '(1793 9 21) "Quintidi 5 jour complémentaire an 1 de la Révolution, jour des Récompenses")
(cal-french-check-unit '(1793 9 22) "Primidi 1 Vendémiaire an 2 de la Révolution, jour du Raisin")
(cal-french-check-unit '(1794 9 21) "Quintidi 5 jour complémentaire an 2 de la Révolution, jour des Récompenses")
(cal-french-check-unit '(1794 9 22) "Primidi 1 Vendémiaire an 3 de la Révolution, jour du Raisin")
(cal-french-check-unit '(1795 9 22) "Sextidi 6 jour complémentaire an 3 de la Révolution, jour de la Révolution")
(cal-french-check-unit '(1795 9 23) "Primidi 1 Vendémiaire an 4 de la Révolution, jour du Raisin")
(cal-french-check-unit '(1796 9 21) "Quintidi 5 jour complémentaire an 4 de la Révolution, jour des Récompenses")
(cal-french-check-unit '(1796 9 22) "Primidi 1 Vendémiaire an 5 de la Révolution, jour du Raisin")
(cal-french-check-unit '(1797 9 21) "Quintidi 5 jour complémentaire an 5 de la Révolution, jour des Récompenses")
(cal-french-check-unit '(1797 9 22) "Primidi 1 Vendémiaire an 6 de la Révolution, jour du Raisin")
(cal-french-check-unit '(1799 9 22) "Sextidi 6 jour complémentaire an 7 de la Révolution, jour de la Révolution")
(cal-french-check-unit '(1799 9 23) "Primidi 1 Vendémiaire an 8 de la Révolution, jour du Raisin")
(cal-french-check-unit '(1800 9 22) "Quintidi 5 jour complémentaire an 8 de la Révolution, jour des Récompenses")
(cal-french-check-unit '(1800 9 23) "Primidi 1 Vendémiaire an 9 de la Révolution, jour du Raisin")
(cal-french-check-unit '(1801 9 22) "Quintidi 5 jour complémentaire an 9 de la Révolution, jour des Récompenses")
(cal-french-check-unit '(1801 9 23) "Primidi 1 Vendémiaire an 10 de la Révolution, jour du Raisin")
(cal-french-check-unit '(1823 9 22) "Quintidi 5 jour complémentaire an 31 de la Révolution, jour des Récompenses")
(cal-french-check-unit '(1823 9 23) "Primidi 1 Vendémiaire an 32 de la Révolution, jour du Raisin")
(cal-french-check-unit '(1824 9 22) "Sextidi 6 jour complémentaire an 32 de la Révolution, jour de la Révolution")
(cal-french-check-unit '(1824 9 23) "Primidi 1 Vendémiaire an 33 de la Révolution, jour du Raisin")
(cal-french-check-unit '(1825 9 22) "Quintidi 5 jour complémentaire an 33 de la Révolution, jour des Récompenses")
(cal-french-check-unit '(1825 9 23) "Primidi 1 Vendémiaire an 34 de la Révolution, jour du Raisin")
(cal-french-check-unit '(1892 9 21) "Quintidi 5 jour complémentaire an 100 de la Révolution, jour des Récompenses")
(cal-french-check-unit '(1892 9 22) "Primidi 1 Vendémiaire an 101 de la Révolution, jour du Raisin")
(cal-french-check-unit '(1900 9 22) "Sextidi 6 jour complémentaire an 108 de la Révolution, jour de la Révolution")
(cal-french-check-unit '(1900 9 23) "Primidi 1 Vendémiaire an 109 de la Révolution, jour du Raisin")
(cal-french-check-unit '(1992 9 21) "Quintidi 5 jour complémentaire an 200 de la Révolution, jour des Récompenses")
(cal-french-check-unit '(1992 9 22) "Primidi 1 Vendémiaire an 201 de la Révolution, jour du Raisin")
(cal-french-check-unit '(2000 9 21) "Sextidi 6 jour complémentaire an 208 de la Révolution, jour de la Révolution")
(cal-french-check-unit '(2000 9 22) "Primidi 1 Vendémiaire an 209 de la Révolution, jour du Raisin")
(cal-french-check-unit '(2092 9 20) "Quintidi 5 jour complémentaire an 300 de la Révolution, jour des Récompenses")
(cal-french-check-unit '(2092 9 21) "Primidi 1 Vendémiaire an 301 de la Révolution, jour du Raisin")
(cal-french-check-unit '(2100 9 21) "Sextidi 6 jour complémentaire an 308 de la Révolution, jour de la Révolution")
(cal-french-check-unit '(2100 9 22) "Primidi 1 Vendémiaire an 309 de la Révolution, jour du Raisin")
(cal-french-check-unit '(2192 9 21) "Sextidi 6 jour complémentaire an 400 de la Révolution, jour de la Révolution")
(cal-french-check-unit '(2192 9 22) "Primidi 1 Vendémiaire an 401 de la Révolution, jour du Raisin")
(cal-french-check-unit '(2193 9 21) "Quintidi 5 jour complémentaire an 401 de la Révolution, jour des Récompenses")
(cal-french-check-unit '(2199 9 22) "Primidi 1 Vendémiaire an 408 de la Révolution, jour du Raisin")
(cal-french-check-unit '(2200 9 22) "Sextidi 6 jour complémentaire an 408 de la Révolution, jour de la Révolution")
(cal-french-check-unit '(2791 9 23) "Primidi 1 Vendémiaire an 1000 de la Révolution, jour du Raisin")
(cal-french-check-unit '(2792 9 22) "Primidi 1 Vendémiaire an 1001 de la Révolution, jour du Raisin")
(cal-french-check-unit '(3000 1 1) "Duodi 12 Nivôse an 1208 de la Révolution, jour de l'Argile")
(cal-french-check-unit '(3001 1 1) "Primidi 11 Nivôse an 1209 de la Révolution, jour du Granit")
(cal-french-check-unit '(3791 9 22) "Primidi 1 Vendémiaire an 2000 de la Révolution, jour du Raisin")
(cal-french-check-unit '(3792 9 22) "Primidi 1 Vendémiaire an 2001 de la Révolution, jour du Raisin")
(cal-french-check-unit '(4000 1 1) "Duodi 12 Nivôse an 2208 de la Révolution, jour de l'Argile")
(cal-french-check-unit '(4001 1 1) "Duodi 12 Nivôse an 2209 de la Révolution, jour de l'Argile")
(cal-french-check-unit '(4320 9 10) "Quartidi 24 Fructidor an 2528 de la Révolution, jour du Sorgho")
(cal-french-check-unit '(4320 9 11) "Quintidi 25 Fructidor an 2528 de la Révolution, jour de l'Écrevisse")
(cal-french-check-unit '(4791 9 23) "Primidi 1 Vendémiaire an 3000 de la Révolution, jour du Raisin")
(cal-french-check-unit '(4792 9 22) "Primidi 1 Vendémiaire an 3001 de la Révolution, jour du Raisin")
(cal-french-check-unit '(5000 1 1) "Duodi 12 Nivôse an 3208 de la Révolution, jour de l'Argile")
(cal-french-check-unit '(5001 1 1) "Primidi 11 Nivôse an 3209 de la Révolution, jour du Granit")
(cal-french-check-unit '(5791 9 22) "Primidi 1 Vendémiaire an 4000 de la Révolution, jour du Raisin")
(cal-french-check-unit '(5792 9 21) "Primidi 1 Vendémiaire an 4001 de la Révolution, jour du Raisin")
(cal-french-check-unit '(6000 1 1) "Tridi 13 Nivôse an 4208 de la Révolution, jour de l'Ardoise")
(cal-french-check-unit '(6001 1 1) "Tridi 13 Nivôse an 4209 de la Révolution, jour de l'Ardoise")
(cal-french-check-unit '(6791 9 22) "Primidi 1 Vendémiaire an 5000 de la Révolution, jour du Raisin")
(cal-french-check-unit '(6792 9 21) "Primidi 1 Vendémiaire an 5001 de la Révolution, jour du Raisin")
(cal-french-check-unit '(7791 9 21) "Primidi 1 Vendémiaire an 6000 de la Révolution, jour du Raisin")
(cal-french-check-unit '(7792 9 21) "Primidi 1 Vendémiaire an 6001 de la Révolution, jour du Raisin")
)
(message "%s" "c est parti
")
(cal-french-check)