diff options
author | Hans Bolinder <[email protected]> | 2019-02-12 11:23:34 +0100 |
---|---|---|
committer | Hans Bolinder <[email protected]> | 2019-02-12 11:23:34 +0100 |
commit | 03ede8910696037c60874a345fd5a9a7c99c5b48 (patch) | |
tree | 2212a1921426b8fa53990be91002d8795b89795e /lib/stdlib/test | |
parent | b5fa09f0dd9bd37b0d98a667aa8fcccc727853fd (diff) | |
parent | 485713afa0d2481e93882bc386aebb06a49c04bc (diff) | |
download | otp-03ede8910696037c60874a345fd5a9a7c99c5b48.tar.gz otp-03ede8910696037c60874a345fd5a9a7c99c5b48.tar.bz2 otp-03ede8910696037c60874a345fd5a9a7c99c5b48.zip |
Merge branch 'maint'
* maint:
Optimize calendar:gregorian_days_to_date/1
Diffstat (limited to 'lib/stdlib/test')
-rw-r--r-- | lib/stdlib/test/calendar_SUITE.erl | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/lib/stdlib/test/calendar_SUITE.erl b/lib/stdlib/test/calendar_SUITE.erl index df62c0921d..c6d9dbca4a 100644 --- a/lib/stdlib/test/calendar_SUITE.erl +++ b/lib/stdlib/test/calendar_SUITE.erl @@ -24,6 +24,7 @@ -export([all/0, suite/0,groups/0,init_per_suite/1, end_per_suite/1, init_per_group/2,end_per_group/2, gregorian_days/1, + big_gregorian_days/1, gregorian_seconds/1, day_of_the_week/1, day_of_the_week_calibrate/1, @@ -36,13 +37,16 @@ -define(START_YEAR, 1947). -define(END_YEAR, 2012). +-define(BIG_START_YEAR, 20000000). +-define(BIG_END_YEAR, 20000020). + suite() -> [{ct_hooks,[ts_install_cth]}]. all() -> [gregorian_days, gregorian_seconds, day_of_the_week, day_of_the_week_calibrate, leap_years, last_day_of_the_month, local_time_to_universal_time_dst, - iso_week_number, system_time, rfc3339]. + iso_week_number, system_time, rfc3339, big_gregorian_days]. groups() -> []. @@ -67,6 +71,14 @@ gregorian_days(Config) when is_list(Config) -> MaxDays = calendar:date_to_gregorian_days({?END_YEAR, 1, 1}), check_gregorian_days(Days, MaxDays). +%% Tests that date_to_gregorian_days and gregorian_days_to_date +%% are each others inverses from ?BIG_START_YEAR-01-01 up to ?BIG_END_YEAR-01-01. +%% At the same time valid_date is tested. +big_gregorian_days(Config) when is_list(Config) -> + Days = calendar:date_to_gregorian_days({?BIG_START_YEAR, 1, 1}), + MaxDays = calendar:date_to_gregorian_days({?BIG_END_YEAR, 1, 1}), + check_gregorian_days(Days, MaxDays). + %% Tests that datetime_to_gregorian_seconds and %% gregorian_seconds_to_date are each others inverses for a sampled %% number of seconds from ?START_YEAR-01-01 up to ?END_YEAR-01-01: We check |