#!/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");