Test-Script/t/test_script__program_stdout.t
use Test2::V0 -no_srand => 1;
use Test::Script;
use Probe::Perl;
my $perl = Probe::Perl->find_perl_interpreter() or die "Can't find perl";
program_runs [$perl, 't/bin/print.pl'];
is(
intercept { program_stdout_is "Standard Out\nsecond line\n" },
array {
event Ok => sub {
call pass => T();
call name => 'stdout matches';
};
end;
},
'program_stdout_is',
);
is(
intercept { program_stdout_isnt "XXXX" },
array {
event Ok => sub {
call pass => T();
call name => 'stdout does not match';
};
end;
},
'program_stdout_isnt',
);
is(
intercept { program_stdout_is "XXX" },
array {
event Ok => sub {
call pass => F();
call name => 'stdout matches';
};
event Diag => sub {};
event Diag => sub {};
event Diag => sub {};
event Diag => sub {};
event Diag => sub {};
event Diag => sub {};
end;
},
'program_stdout_is fail',
);
is(
intercept { program_stdout_isnt "Standard Out\nsecond line\n" },
array {
event Ok => sub {
call pass => F();
call name => 'stdout does not match';
};
event Diag => sub {};
event Diag => sub {};
event Diag => sub {};
event Diag => sub {};
event Diag => sub {};
event Diag => sub {};
event Diag => sub {};
end;
},
'program_stdout_isnt fail',
);
is(
intercept { program_stdout_like qr{tandard Ou} },
array {
event Ok => sub {
call pass => T();
call name => 'stdout matches';
};
end;
},
'program_stdout_like',
);
is(
intercept { program_stdout_like qr{XXXX} },
array {
event Ok => sub {
call pass => F();
call name => 'stdout matches';
};
event Diag => sub {};
event Diag => sub {};
event Diag => sub {};
event Diag => sub {};
event Diag => sub {};
event Diag => sub {};
end;
},
'program_stdout_like fail',
);
is(
intercept { program_stdout_unlike qr{XXXX} },
array {
event Ok => sub {
call pass => T();
call name => 'stdout does not match';
};
end;
},
'program_stdout_unlike',
);
is(
intercept { program_stdout_unlike qr{tandard Ou} },
array {
event Ok => sub {
call pass => F();
call name => 'stdout does not match';
};
event Diag => sub {};
event Diag => sub {};
event Diag => sub {};
event Diag => sub {};
event Diag => sub {};
event Diag => sub {};
end;
},
'program_stdout_unlike fail'
);
done_testing;