=head1 Name

globals

=head1 Ziel

Test von Funktionen aus L<Dbase::Globals>,
die I<nicht> auf die Datenbank zugreifen

=head1 Testfälle

in_period()

=cut

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


use Test::More tests => 5;
use Dbase::Test;

BEGIN { use_ok 'Dbase::Globals', qw(in_period) }

is   in_period('foo'                             ), -1, '"foo" ungültig für in_period()';
is   in_period('wd {mo-fr}'          , 1086829321),  1, '2004-06-10 unter der Woche';
is   in_period('wd {mo-fr} -DE-BY'   , 1086829321), '', '2004-06-10 bayerischer Feiertag';
is   in_period('wd {mo-fr} hr {9-16}', 1087545646),  1, '2004-06-18 10:00:46 Arbeitszeit';

