CPAN::Groonga

un;

is( $test_perl->exit_value, 0, "exit_value" );

$test_perl->exit_is_num(0);
$test_perl->exit_isnt_num(1);
$test_perl->exit_cmp_ok('<', 1);

SKIP:
   {
   skip("not sure about Win32 signal support

st_perl->stdout_is_eq("foo\nbar\n");
$test_perl->stdout_isnt_eq("bar\nfoo\n");
{
local $^W;
$test_perl->stdout_is_num(0);
$test_perl->stdout_isnt_num(1);
}
$test_perl->stdout_like(qr/foo\nBAR/i);
$tes

st_perl->stderr_is_eq("bar\nfoo\n");
$test_perl->stderr_isnt_eq("foo\nbar\n");
{
local $^W;
$test_perl->stderr_is_num(0);
$test_perl->stderr_isnt_num(1);
}
$test_perl->stderr_like(qr/BAR\nFOO/i);
$tes

s_eq(qq($^X -e "print STDERR 'foo'"), '');

stdout_isnt_eq(qq($^X -e "print 'foo'"), "bar");

stdout_is_num(qq($^X -e "print 123"), 123);

stdout_isnt_num(qq($^X -e "print 321"), 123);

stdout_like(qq

s_eq(qq($^X -e "print 'foo'"), '');

stderr_isnt_eq(qq($^X -e "print STDERR 'foo'"), "bar");

stderr_is_num(qq($^X -e "print STDERR 123"), 123);

stderr_isnt_num(qq($^X -e "print STDERR 321"), 123);

kip("not sure about Win32 signal support", 1) if $^O eq 'MSWin32';
   exit_is_undef([$^X,  '-e', 'kill q(TERM), $$']);
   }

exit_isnt_num(qq($^X -e 1), 2);

exit_cmp_ok(qq($^X -e "exit 1"), '<', 2);

 . ', $$']);
   signal_cmp_ok([$^X,  '-e', 'kill ' . $sig{'TERM'} . ', $$'], '>', -1 );
   signal_isnt_num([$^X,  '-e', 'kill ' . $sig{'TERM'} . ', $$'], $sig{'TERM'} + 1 );
   signal_is_num([$^X,  '-