CPAN::Groonga

#!perl

use strict;
use warnings;

use Test::More;
use Log::Dynamic;

my $mod = 'IO::Capture::Stderr';
eval "use $mod";

my @types = qw/ foo bar baz /;

$@
	? plan skip_all => "Module '$mod' is not installed"
	: plan tests => scalar @types;
;

my $log = Log::Dynamic->open(file => 'STDERR');
my $cap = new IO::Capture::Stderr;

$cap->start;
foreach my $type (@types) {
	$log->$type("Got type '$type'");
}
$cap->stop;

foreach my $type (@types) {
	isnt($cap->read =~ /$type/is, '', "Check STDERR for type '$type'");
}

__END__
vim:set syntax=perl: