############################################################
#
# pooclub_tests.pl
#
# Unit tests
#
############################################################

sub test_get_remote_lottery_file
{
  print qq(<h4>test_get_remote_lottery_file</h4>);
  get_remote_lottery_file();
}

############################################################

sub test_get_corner_id
{
  print qq(<h4>test_get_corner_id</h4>);

  my @test_dates = ("", 20101220, 20101221, 20101222,
    20110101, 20110301,
    20110320, 20110321, 20110322,
    20110620, 20110621, 20110622,
    20110920, 20110921, 20110922,
    20111220, 20111221, 20111222);

  for $test_date (@test_dates)
  {
    my $corner_id = get_corner_id($test_date);
    print qq(test_date=$test_date corner_id=$corner_id<br />);
  }
}

############################################################

sub test_get_oblog_filename
{
  print qq(<h4>test_get_oblog_filename</h4>);

  my @test_dates = ("", 20101220, 20101221, 20101222,
    20110101, 20110301,
    20110320, 20110321, 20110322,
    20110620, 20110621, 20110622,
    20110920, 20110921, 20110922,
    20111220, 20111221, 20111222);

  for $test_date (@test_dates)
  {
    my $oblog_filename = get_oblog_filename($test_date);
    print qq(test_date=$test_date oblog_filename=$oblog_filename<br />);
  }
}

############################################################

sub test_obliteration_dates
{
  print qq(<h4>test_obliteration_dates</h4>);

  my @test_dates = ("", 20101220, 20101221, 20101222,
    20110101, 20110301,
    20110320, 20110321, 20110322,
    20110620, 20110621, 20110622,
    20110920, 20110921, 20110922,
    20111220, 20111221, 20111222);

  for $test_date (@test_dates)
  {
    my $prev = latest_obliteration_date($test_date);
    my $next = next_obliteration_yyyymmdd($test_date);
    print qq(test_date=$test_date prev=$prev next=$next<br />);
  }

}

############################################################
1;
############################################################
# EOF