#!perl -T

#
# $Id: 3f3d23c19c034bdaa0a18196be44f3ec0630a438 $
#

use Test::More tests => 3;

use Log::Fine;
use Log::Fine::Handle::Null;
use Log::Fine::Levels::Syslog qw( :masks );

{

        my $handle =
            Log::Fine::Handle::Null->new(
                           name => "devnull",
                           mask => LOGMASK_DEBUG | LOGMASK_INFO | LOGMASK_NOTICE
            );

        isa_ok($handle, "Log::Fine::Handle::Null");
        can_ok($handle, "msgWrite");

        my $return_value =
            $handle->msgWrite(INFO, "Goes Nowhere.  Does Nothing.");

        isa_ok($handle, "Log::Fine::Handle::Null");

}
