#!/usr/bin/perl
use Capture::Tiny qw(capture_stdout);
use Test::More;
use Log::Any::Adapter qw(Stdout);
use strict;
use warnings;

{
    my $log = Log::Any->get_logger();
    like( capture_stdout( sub { $log->debug("to stdout") } ),
        qr/^to stdout\n$/, "stdout" );
}

done_testing;