Untitled

#!/usr/bin/perl

use strict;
use warnings;
use Test::More tests => 5;

use MDV::Msec;
my $msec = MDV::Msec->new();

use_ok('MDV::Msec::Logger::console');
my $console_logger = MDV::Msec::Logger::console->new($msec);
isa_ok($console_logger, 'MDV::Msec::Logger::console');
can_ok($console_logger, qw(log init end));
ok($console_logger->init, "console logger can init");
ok($console_logger->end, "console logger can end");

use_ok('MDV::Msec::Logger::tofile');
my $tofile_logger = MDV::Msec::Logger::tofile->new($msec);
isa_ok($tofile_logger, 'MDV::Msec::Logger::tofile');
can_ok($tofile_logger, qw(log init end));
ok($tofile_logger->init, "tofile logger can init");
ok($tofile_logger->end, "tofile logger can end");