package Log::Dump::Test::Capture::Wrapped;
use strict;
use warnings;
use Test::Classy::Base;
__PACKAGE__->mk_classdata( package => 'Log::Dump::Test::Class' );
__PACKAGE__->mk_classdata('capture');
sub initialize {
my $class = shift;
eval { require IO::Capture::Stderr };
$class->skip_this_class('this test requires IO::Capture') if $@;
my $package = $class->package;
eval "require $package";
$class->skip_this_class($@) if $@;
$class->capture( IO::Capture::Stderr->new );
}
sub debug : Tests(2) {
my $class = shift;
my $capture = $class->capture;
my $package = $class->package;
my $object = $package->new;
foreach my $target ( $package, $object ) {
$capture->start;
$target->debug;
$capture->stop;
like $capture->read => qr/\[debug\] debug/,
$class->message('captured');
}
}
1;