=head1 Name

Datumshandling


=head1 Ziel

Testen diverser Datumsfunktionen.

=cut


package Test::Fehler;
use utf8;
use warnings;
use strict; use warnings;
BEGIN { unshift(@INC,($ENV{'POPHOME'}||'@POPHOME@').'/lib')
			unless $ENV{'KUNDE_NO_PERLPATH'};
      }


use Test::More tests => 15; $|=1;
BEGIN { $ENV{'DbLocalCf'}=1; }
use Dbase::Test;
use Dbase::Help qw(sisodate unixdate);

sub u($) { unixdate($_[0]) }

is "2004-10-01", sisodate(u("2004-10-01"),0), "Test 2004-10-01 0";
is "2004-10-02", sisodate(u("2004-10-02"),0), "Test 2004-10-02 0";
is "2004-10-15", sisodate(u("2004-10-15"),0), "Test 2004-10-15 0";
is "2004-10-30", sisodate(u("2004-10-30"),0), "Test 2004-10-30 0";
is "2004-10-31", sisodate(u("2004-10-31"),0), "Test 2004-10-31 0";

is "2004-10", sisodate(u("2004-10-01"),1), "Test 2004-10-01 1";
is "2004-10-02", sisodate(u("2004-10-02"),1), "Test 2004-10-02 1";
is "2004-10-15", sisodate(u("2004-10-15"),1), "Test 2004-10-15 1";
is "2004-10-30", sisodate(u("2004-10-30"),1), "Test 2004-10-30 1";
is "2004-10-31", sisodate(u("2004-10-31"),1), "Test 2004-10-31 1";

is "2004-10-01", sisodate(u("2004-10-01"),2), "Test 2004-10-01 2";
is "2004-10-02", sisodate(u("2004-10-02"),2), "Test 2004-10-02 2";
is "2004-10-15", sisodate(u("2004-10-15"),2), "Test 2004-10-15 2";
is "2004-10-30", sisodate(u("2004-10-30"),2), "Test 2004-10-30 2";
is "2004-10", sisodate(u("2004-10-31"),2), "Test 2004-10-31 2";

