branch: elpa/datetime
commit 6f116352a66693857dc91716936eb94a4f75da2f
Author: Paul Pogonyshev <pogonys...@gmail.com>
Commit: Paul Pogonyshev <pogonys...@gmail.com>
Drop word `test' from regression test names.
---
test/format.el | 28 ++++++++++++++--------------
test/parse.el | 30 +++++++++++++++---------------
2 files changed, 29 insertions(+), 29 deletions(-)
diff --git a/test/format.el b/test/format.el
index 2e49763195..0d9e5aa880 100644
--- a/test/format.el
+++ b/test/format.el
@@ -47,11 +47,11 @@
(+ time 7200) (- time 7200)))) ; two hours
-(ert-deftest datetime-test-formatting-now ()
+(ert-deftest datetime-formatting-now ()
(datetime--test-set-up-formatter 'UTC 'en "yyyy-MM-dd HH:mm:ss.SSS"
(datetime--test-formatter (float-time))))
-(ert-deftest datetime-test-formatting-now-standard-formats ()
+(ert-deftest datetime-formatting-now-standard-formats ()
(let ((now (float-time)))
(dolist (locale (datetime-list-locales t))
(dolist (variant '(:short :medium :long :full))
@@ -59,62 +59,62 @@
(datetime--test-set-up-formatter 'UTC locale pattern
(datetime--test-formatter now)))))))
-(ert-deftest datetime-test-formatting-various-timestamps-1 ()
+(ert-deftest datetime-formatting-various-timestamps-1 ()
(datetime--test-set-up-formatter 'UTC 'en "yyyy-MM-dd HH:mm:ss.SSS"
;; Roughly from 400 AD till 3500 AD with 4 month step.
(datetime--test-formatter (mapcar (lambda (k) (* k 10000000.123))
(number-sequence -5000 5000)))))
-(ert-deftest
datetime-test-formatting-various-timestamps-with-fixed-offset-timezone-1 ()
+(ert-deftest
datetime-formatting-various-timestamps-with-fixed-offset-timezone-1 ()
(datetime--test-set-up-formatter 'Etc/GMT+1 'en "yyyy-MM-dd HH:mm:ss.SSS"
;; Roughly from 400 AD till 3500 AD with 4 month step.
(datetime--test-formatter (mapcar (lambda (k) (* k 10000000.123))
(number-sequence -5000 5000)))))
-(ert-deftest
datetime-test-formatting-various-timestamps-with-shifting-timezone-1 ()
+(ert-deftest datetime-formatting-various-timestamps-with-shifting-timezone-1 ()
(datetime--test-set-up-formatter 'Europe/Madrid 'en "yyyy-MM-dd HH:mm:ss.SSS"
;; Roughly from 400 AD till 3500 AD with 4 month step.
(datetime--test-formatter (mapcar (lambda (k) (* k 10000000.123))
(number-sequence -5000 5000)))))
-(ert-deftest
datetime-test-formatting-various-timestamps-with-shifting-timezone-2 ()
+(ert-deftest datetime-formatting-various-timestamps-with-shifting-timezone-2 ()
(datetime--test-set-up-formatter 'America/Anchorage 'en "yyyy-MM-dd
HH:mm:ss.SSS"
;; Roughly from 400 AD till 3500 AD with 4 month step.
(datetime--test-formatter (mapcar (lambda (k) (* k 10000000.123))
(number-sequence -5000 5000)))))
-(ert-deftest
datetime-test-formatting-various-timestamps-with-shifting-timezone-3 ()
+(ert-deftest datetime-formatting-various-timestamps-with-shifting-timezone-3 ()
(datetime--test-set-up-formatter 'Australia/Hobart 'en "yyyy-MM-dd
HH:mm:ss.SSS"
;; Roughly from 400 AD till 3500 AD with 4 month step.
(datetime--test-formatter (mapcar (lambda (k) (* k 10000000.123))
(number-sequence -5000 5000)))))
-(ert-deftest datetime-test-formatting-text-1 ()
+(ert-deftest datetime-formatting-text-1 ()
(datetime--test-set-up-formatter 'UTC 'en "'on' EEEE 'the' d MMMM 'of' yyyy
G, 'at' h:mm:ss a"
;; Roughly from 1200 BC till 5100 AD with 6 and a half year step.
(datetime--test-formatter (mapcar (lambda (k) (* k 200000000.123))
(number-sequence -500 500)))))
-(ert-deftest datetime-test-formatting-around-offset-transition-1 ()
+(ert-deftest datetime-formatting-around-offset-transition-1 ()
(datetime--test-set-up-formatter 'Europe/Madrid 'en "yyyy-MM-dd HH:mm:ss.SSS"
;; First historical transition.
(datetime--test-formatter-around-transition -2177452800)))
-(ert-deftest datetime-test-formatting-around-offset-transition-2 ()
+(ert-deftest datetime-formatting-around-offset-transition-2 ()
(datetime--test-set-up-formatter 'Europe/Madrid 'en "yyyy-MM-dd HH:mm:ss.SSS"
;; Rule-based transition on 2010-03-25.
(datetime--test-formatter-around-transition 1269738000)))
-(ert-deftest datetime-test-formatting-around-offset-transition-3 ()
+(ert-deftest datetime-formatting-around-offset-transition-3 ()
(datetime--test-set-up-formatter 'Europe/Madrid 'en "yyyy-MM-dd HH:mm:ss.SSS"
;; Future transition on 2480-10-27 (according to the rules as of 2018).
(datetime--test-formatter-around-transition 16119997200)))
-(ert-deftest datetime-test-formatting-around-offset-transition-4 ()
+(ert-deftest datetime-formatting-around-offset-transition-4 ()
(datetime--test-set-up-formatter 'America/Anchorage 'en "yyyy-MM-dd
HH:mm:ss.SSS"
;; Rule-based transition on 2009-03-08.
(datetime--test-formatter-around-transition 1236510000)))
-(ert-deftest datetime-test-formatting-around-offset-transition-5 ()
+(ert-deftest datetime-formatting-around-offset-transition-5 ()
(datetime--test-set-up-formatter 'Australia/Hobart 'en "yyyy-MM-dd
HH:mm:ss.SSS"
;; Rule-based transition on 2014-10-05.
(datetime--test-formatter-around-transition 1412438400)))
-(ert-deftest datetime-test-formatting-with-timezone-name-1 ()
+(ert-deftest datetime-formatting-with-timezone-name-1 ()
(datetime--test-set-up-formatter 'Europe/Berlin 'en "yyyy-MM-dd HH:mm:ss z"
;; Rule-based transition on 2014-10-26. Should also result in
;; timezone name changing between CEST and CET.
diff --git a/test/parse.el b/test/parse.el
index edf8b81127..4e6166f779 100644
--- a/test/parse.el
+++ b/test/parse.el
@@ -55,11 +55,11 @@
(+ time 7200) (- time
7200))))) ; two hours
-(ert-deftest datetime-test-parsing-now ()
+(ert-deftest datetime-parsing-now ()
(datetime--test-set-up-parser 'UTC 'en "yyyy-MM-dd HH:mm:ss.SSS"
(datetime--test-parser (datetime--test 'format (float-time)))))
-(ert-deftest datetime-test-parsing-now-standard-formats ()
+(ert-deftest datetime-parsing-now-standard-formats ()
(let ((now (float-time)))
(dolist (locale (datetime-list-locales t))
(dolist (variant '(:short :medium :long :full))
@@ -68,62 +68,62 @@
(datetime--test-set-up-parser 'UTC locale pattern
(datetime--test-parser (datetime--test 'format now)))))))))
-(ert-deftest datetime-test-parsing-various-timestamps-1 ()
+(ert-deftest datetime-parsing-various-timestamps-1 ()
(datetime--test-set-up-parser 'UTC 'en "yyyy-MM-dd HH:mm:ss.SSS"
;; Roughly from 400 AD till 3500 AD with 4 month step.
(datetime--test-parser (datetime--test 'format (mapcar (lambda (k) (* k
10000000.123)) (number-sequence -5000 5000))))))
-(ert-deftest
datetime-test-parsing-various-timestamps-with-fixed-offset-timezone-1 ()
+(ert-deftest datetime-parsing-various-timestamps-with-fixed-offset-timezone-1
()
(datetime--test-set-up-parser 'Etc/GMT+1 'en "yyyy-MM-dd HH:mm:ss.SSS"
;; Roughly from 400 AD till 3500 AD with 4 month step.
(datetime--test-parser (datetime--test 'format (mapcar (lambda (k) (* k
10000000.123)) (number-sequence -5000 5000))))))
-(ert-deftest datetime-test-parsing-various-timestamps-with-shifting-timezone-1
()
+(ert-deftest datetime-parsing-various-timestamps-with-shifting-timezone-1 ()
(datetime--test-set-up-parser 'Europe/Madrid 'en "yyyy-MM-dd HH:mm:ss.SSS"
;; Roughly from 400 AD till 3500 AD with 4 month step.
(datetime--test-parser (datetime--test 'format (mapcar (lambda (k) (* k
10000000.123)) (number-sequence -5000 5000))))))
-(ert-deftest datetime-test-parsing-various-timestamps-with-shifting-timezone-2
()
+(ert-deftest datetime-parsing-various-timestamps-with-shifting-timezone-2 ()
(datetime--test-set-up-parser 'America/Anchorage 'en "yyyy-MM-dd
HH:mm:ss.SSS"
;; Roughly from 400 AD till 3500 AD with 4 month step.
(datetime--test-parser (datetime--test 'format (mapcar (lambda (k) (* k
10000000.123)) (number-sequence -5000 5000))))))
-(ert-deftest datetime-test-parsing-various-timestamps-with-shifting-timezone-3
()
+(ert-deftest datetime-parsing-various-timestamps-with-shifting-timezone-3 ()
(datetime--test-set-up-parser 'Australia/Hobart 'en "yyyy-MM-dd HH:mm:ss.SSS"
;; Roughly from 400 AD till 3500 AD with 4 month step.
(datetime--test-parser (datetime--test 'format (mapcar (lambda (k) (* k
10000000.123)) (number-sequence -5000 5000))))))
-(ert-deftest datetime-test-parsing-text-1 ()
+(ert-deftest datetime-parsing-text-1 ()
(datetime--test-set-up-parser 'UTC 'en "'on' EEEE 'the' d MMMM 'of' yyyy G,
'at' h:mm:ss a"
;; Roughly from 1200 BC till 5100 AD with 6 and a half year step.
(datetime--test-parser (datetime--test 'format (mapcar (lambda (k) (* k
200000000.123)) (number-sequence -500 500))))))
-(ert-deftest datetime-test-parsing-around-offset-transition-1 ()
+(ert-deftest datetime-parsing-around-offset-transition-1 ()
(datetime--test-set-up-parser 'Europe/Madrid 'en "yyyy-MM-dd HH:mm:ss.SSS"
;; First historical transition.
(datetime--test-parser-around-transition -2177452800)))
-(ert-deftest datetime-test-parsing-around-offset-transition-2 ()
+(ert-deftest datetime-parsing-around-offset-transition-2 ()
(datetime--test-set-up-parser 'Europe/Madrid 'en "yyyy-MM-dd HH:mm:ss.SSS"
;; Rule-based transition on 2010-03-25.
(datetime--test-parser-around-transition 1269738000)))
-(ert-deftest datetime-test-parsing-around-offset-transition-3 ()
+(ert-deftest datetime-parsing-around-offset-transition-3 ()
(datetime--test-set-up-parser 'Europe/Madrid 'en "yyyy-MM-dd HH:mm:ss.SSS"
;; Future transition on 2480-10-27 (according to the rules as of 2018).
(datetime--test-parser-around-transition 16119997200)))
-(ert-deftest datetime-test-parsing-around-offset-transition-4 ()
+(ert-deftest datetime-parsing-around-offset-transition-4 ()
(datetime--test-set-up-parser 'America/Anchorage 'en "yyyy-MM-dd
HH:mm:ss.SSS"
;; Rule-based transition on 2009-03-08.
(datetime--test-parser-around-transition 1236510000)))
-(ert-deftest datetime-test-parsing-around-offset-transition-5 ()
+(ert-deftest datetime-parsing-around-offset-transition-5 ()
(datetime--test-set-up-parser 'Australia/Hobart 'en "yyyy-MM-dd HH:mm:ss.SSS"
;; Rule-based transition on 2014-10-05.
(datetime--test-parser-around-transition 1412438400)))
-(ert-deftest datetime-test-parser-validating-1 ()
+(ert-deftest datetime-parser-validating-1 ()
(datetime--test-set-up-parser 'UTC 'en "yyyy-MM-dd HH:mm:ss.SSS"
(should-error (funcall datetime--test-parser "lol") :type
'datetime-invalid-string)
(should-error (funcall datetime--test-parser "2000-00-01 00:00:00.000")
:type 'datetime-invalid-string)
@@ -134,7 +134,7 @@
(should-error (funcall datetime--test-parser "2000-01-01 00:60:00.000")
:type 'datetime-invalid-string)
(should-error (funcall datetime--test-parser "2000-01-01 00:00:60.000")
:type 'datetime-invalid-string)))
-(ert-deftest datetime-test-parser-validating-excessive-patterns ()
+(ert-deftest datetime-parser-validating-excessive-patterns ()
(datetime--test-set-up-parser 'UTC 'en "dd 'of' MMMM '(month' M')'"
(datetime--test-parser "12 of March (month 3)")
(should-error (funcall datetime--test-parser "12 of March (month 1)")
:type 'datetime-invalid-string)))
