package Test::Siebel::Srvrmgr::Daemon::Action::Dumper;
use parent qw(Test::Siebel::Srvrmgr::Daemon::Action);
use Test::More;
sub class_methods : Test(+1) {
my $test = shift;
{
local *STDOUT;
open( STDOUT, '>', \$test_data )
or die "Failed to redirect STDOUT to in-memory file: $!";
$test->{action}->do( $test->get_my_data() );
like(
$test_data,
qr/Siebel::Srvrmgr::ListParser::Output::Tabular::ListComp/,
'Dumper output matches expected regular expression'
);
}
}
1;