#
# (c) Jan Gehring <jan.gehring@gmail.com>
#
# vim: set ts=2 sw=2 tw=0:
# vim: set expandtab:
package
Rex::Test::Base::has_output_matching;
use
5.010001;
use
strict;
use
warnings;
our
$VERSION
=
'1.13.0.2'
;
# TRIAL VERSION
use
Rex -minimal;
use
Rex::Helper::Run;
sub
new {
my
$that
=
shift
;
my
$proto
=
ref
(
$that
) ||
$that
;
my
$self
= {
@_
};
bless
(
$self
,
$proto
);
my
(
$pkg
,
$file
) =
caller
(0);
return
$self
;
}
sub
run_test {
my
(
$self
,
$exec
,
$wanted_output
) =
@_
;
my
$output
= i_exec
$exec
;
$self
->like(
$output
,
$wanted_output
,
"Output of $exec is as expected."
);
}
1;