%%
%% %CopyrightBegin%
%%
%% Copyright Ericsson AB 1998-2011. All Rights Reserved.
%%
%% Licensed under the Apache License, Version 2.0 (the "License");
%% you may not use this file except in compliance with the License.
%% You may obtain a copy of the License at
%%
%% http://www.apache.org/licenses/LICENSE-2.0
%%
%% Unless required by applicable law or agreed to in writing, software
%% distributed under the License is distributed on an "AS IS" BASIS,
%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
%% See the License for the specific language governing permissions and
%% limitations under the License.
%%
%% %CopyrightEnd%
%%
%% File: y2k_SUITE.erl
%% Purpose: Year 2000 tests.
-module(y2k_SUITE).
-include_lib("test_server/include/test_server.hrl").
-export([all/0, suite/0,groups/0,init_per_suite/1, end_per_suite/1,
init_per_group/2,end_per_group/2,
date_1999_01_01/1, date_1999_02_28/1,
date_1999_09_09/1, date_2000_01_01/1,
date_2000_02_29/1, date_2001_01_01/1,
date_2001_02_29/1, date_2004_02_29/1
]).
suite() -> [{ct_hooks,[ts_install_cth]}].
all() ->
[date_1999_01_01, date_1999_02_28, date_1999_09_09,
date_2000_01_01, date_2000_02_29, date_2001_01_01,
date_2001_02_29, date_2004_02_29].
groups() ->
[].
init_per_suite(Config) ->
Config.
end_per_suite(_Config) ->
ok.
init_per_group(_GroupName, Config) ->
Config.
end_per_group(_GroupName, Config) ->
Config.
date_1999_01_01(doc) ->
"#1 : 1999-01-01: test roll-over from 1998-12-31 to 1999-01-01.";
date_1999_01_01(suite) ->
[];
date_1999_01_01(Config) when is_list(Config) ->
?line Date = {1998, 12, 31}, NextDate = {1999, 1, 1},
?line match(next_date(Date), NextDate),
TZD = tzd(Date),
if
TZD > 0 ->
?line Time = {24 - TZD, 0, 0},
?line {NDate, _NTime} =
erlang:localtime_to_universaltime({Date, Time}),
?line match(NDate, NextDate);
TZD < 0 ->
?line Time = {24 + TZD, 0, 0},
?line {NDate, _NTime} =
erlang:universaltime_to_localtime({Date, Time}),
?line match(NDate, NextDate);
true ->
ok
end.
date_1999_02_28(doc) ->
"#2 : 1999-02-28: test roll-over from 1999-02-28 to 1999-03-01.";
date_1999_02_28(suite) ->
[];
date_1999_02_28(Config) when is_list(Config) ->
?line Date = {1999, 2, 28}, NextDate = {1999, 3, 1},
?line match(next_date(Date), NextDate),
?line match(tz_next_date(Date), NextDate).
date_1999_09_09(doc) ->
"#3 : 1999-09-09: test roll-over from 1999-09-08 to 1999-09-09.";
date_1999_09_09(suite) ->
[];
date_1999_09_09(Config) when is_list(Config) ->
?line Date = {1999, 9, 8}, NextDate = {1999, 9, 9},
?line match(next_date(Date), NextDate),
?line match(tz_next_date(Date), NextDate).
date_2000_01_01(doc) ->
"#4 : 2000-01-01: test roll-over from 1999-12-31 to 2000-01-01 to "
"2000-01-02.";
date_2000_01_01(suite) ->
[];
date_2000_01_01(Config) when is_list(Config) ->
?line Date = {1999, 12, 31}, NextDate = {2000, 1, 1},
?line match(next_date(Date), NextDate),
?line match(tz_next_date(Date), NextDate),
?line NextDate1 = {2000, 1, 2},
?line match(next_date(NextDate), NextDate1),
?line match(tz_next_date(NextDate), NextDate1).
date_2000_02_29(doc) ->
"#5 : 2000-02-29: test roll-over from 2000-02-28 to 2000-02-29 to "
"2000-03-01.";
date_2000_02_29(suite) ->
[];
date_2000_02_29(Config) when is_list(Config) ->
?line Date = {2000, 2, 28}, NextDate = {2000, 2, 29},
?line match(next_date(Date), NextDate),
?line match(tz_next_date(Date), NextDate),
?line NextDate1 = {2000, 3, 1},
?line match(next_date(NextDate), NextDate1),
?line match(tz_next_date(NextDate), NextDate1).
date_2001_01_01(doc) ->
"#6 : 2001-01-01: test roll-over from 2000-12-31 to 2001-01-01.";
date_2001_01_01(suite) ->
[];
date_2001_01_01(Config) when is_list(Config) ->
?line Date = {2000, 12, 31}, NextDate = {2001, 1, 1},
?line match(next_date(Date), NextDate),
?line match(tz_next_date(Date), NextDate).
date_2001_02_29(doc) ->
"#7 : 2001-02-29: test roll-over from 2001-02-28 to 2001-03-01.";
date_2001_02_29(suite) ->
[];
date_2001_02_29(Config) when is_list(Config) ->
?line Date = {2001, 2, 28}, NextDate = {2001, 3, 1},
?line match(next_date(Date), NextDate),
?line match(tz_next_date(Date), NextDate).
date_2004_02_29(doc) ->
"#8 : 2004-02-29: test roll-over from 2004-02-28 to 2004-02-29 to "
"2004-03-01.";
date_2004_02_29(suite) ->
[];
date_2004_02_29(Config) when is_list(Config) ->
?line Date = {2004, 2, 28}, NextDate = {2004, 2, 29},
?line match(next_date(Date), NextDate),
?line match(tz_next_date(Date), NextDate),
?line NextDate1 = {2004, 3, 1},
?line match(next_date(NextDate), NextDate1),
?line match(tz_next_date(NextDate), NextDate1).
%%
%% Local functions
%%
next_date(Date) ->
calendar:gregorian_days_to_date(calendar:date_to_gregorian_days(Date) + 1).
%%
%% timezonediff
%%
tzd(Date) ->
?line {_LDate, {LH, _LM, _LS}} =
erlang:universaltime_to_localtime({Date, {12, 0, 0}}),
12 - LH.
tz_next_date(Date) ->
TZD = tzd(Date),
if
TZD > 0 ->
?line Time = {24 - TZD, 0, 0},
?line {NDate, _NTime} =
erlang:localtime_to_universaltime({Date, Time}),
?line NDate;
TZD < 0 ->
?line Time = {24 + TZD, 0, 0},
?line {NDate, _NTime} =
erlang:universaltime_to_localtime({Date, Time}),
?line NDate;
true ->
Date
end.
%%
%% match({X, X}) ->
%% ok.
match(X, X) ->
ok.
