The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/perl

use strict;
use warnings;

use Test::More;
use Test::Output;

use File::Temp;
use autodie;

require Enbld::Logger;

require_ok( 'Enbld::Message' );

stdout_is { Enbld::Message->notify( 'message' ) } '', 'quiet';

Enbld::Message->set_verbose;

my $dir = File::Temp->newdir;
Enbld::Logger->rotate( $dir );

stdout_is { Enbld::Message->notify( 'message' ) } "message\n", 'verbose';

open my $fh, '<', Enbld::Logger->logfile;
my $logfile = ( <$fh> );
close $fh;
is( $logfile, "message\n", 'logfile' );

stdout_is { Enbld::Message->notify( "message\n" ) } "message\n",
          'message with return code';

done_testing();