=head1 Name

check_overlap

=head1 Ziel

Überprüfen, ob die Funktion check_overlap() für verschiedene
denkbare Konstellationen sinnvoll gültige Ergebnisse liefert.

=head1 Vorgehensweise

Wir legen ein paar Domains gleichen Namens an und rufen check_overlap()
mit diversen Paramtern auf.

=cut

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

use Test::More tests => 10;
use Dbase::Test qw(okF);

$| = 1;

use Loader qw(check_overlap);

okF 'DELETE FROM domainkunde WHERE id BETWEEN 2410 AND 2419';
okF 'INSERT INTO domainkunde (id,kunde,domain,beginn,ende) VALUES (2410,1,"testdomain.de",100,200)';
okF 'INSERT INTO domainkunde (id,kunde,domain,beginn,ende) VALUES (2411,1,"testdomain.de",300,400)';
okF 'INSERT INTO domainkunde (id,kunde,domain,beginn,ende) VALUES (2412,1,"testdomain.de",500,NULL)';
okF 'INSERT INTO domainkunde (id,kunde,domain,beginn,ende) VALUES (2413,1,"otherdomain.de",1,1000)';

is check_overlap(domainkunde=>id=>2411, 'domain', 200, 500  ), undef;
is check_overlap(domainkunde=>id=>2411, 'domain', 199, 500  ), 2410;
is check_overlap(domainkunde=>id=>2410, 'domain', 100, undef), 2411;
is check_overlap(domainkunde=>id=>2412, 'domain', 400, undef), undef;
is check_overlap(domainkunde=>id=>2413, 'domain', 100, undef), undef;
