CPAN::Groonga

rcept { script_stderr_isnt "XXXX" },
  array {
    event Ok => sub {
      call pass => T();
      call name => 'stderr does not match';
    };
    end;
  },
  'script_stderr_isnt',
);

is(
  intercep

vent Diag => sub {};
    end;
  },
  'script_stderr_is fail',
);

is(
  intercept { script_stderr_isnt "Standard Error\nanother line\n" },
  array {
    event Ok => sub {
      call pass => F();
     

iag => sub {};
    event Diag => sub {};
    event Diag => sub {};
    end;
  },
  'script_stderr_isnt fail',
);

is(
  intercept { script_stderr_like qr{tandard Er} },
  array {
    event Ok => sub {

ept { program_stderr_isnt "XXXX" },
  array {
    event Ok => sub {
      call pass => T();
      call name => 'stderr does not match';
    };
    end;
  },
  'program_stderr_isnt',
);

is(
  intercep

nt Diag => sub {};
    end;
  },
  'program_stderr_is fail',
);

is(
  intercept { program_stderr_isnt "Standard Error\nanother line\n" },
  array {
    event Ok => sub {
      call pass => F();
     

ag => sub {};
    event Diag => sub {};
    event Diag => sub {};
    end;
  },
  'program_stderr_isnt fail',
);

is(
  intercept { program_stderr_like qr{tandard Er} },
  array {
    event Ok => sub 

ept { program_stdout_isnt "XXXX" },
  array {
    event Ok => sub {
      call pass => T();
      call name => 'stdout does not match';
    };
    end;
  },
  'program_stdout_isnt',
);

is(
  intercep

nt Diag => sub {};
    end;
  },
  'program_stdout_is fail',
);

is(
  intercept { program_stdout_isnt "Standard Out\nsecond line\n" },
  array {
    event Ok => sub {
      call pass => F();
      ca

ag => sub {};
    event Diag => sub {};
    event Diag => sub {};
    end;
  },
  'program_stdout_isnt fail',
);

is(
  intercept { program_stdout_like qr{tandard Ou} },
  array {
    event Ok => sub 

tdout_isnt
  script_stdout_like
  script_stdout_unlike
  script_stderr_is
  script_stderr_isnt
  script_stderr_like
  script_stderr_unlike
  program_runs
  program_stdout_is
  program_stdout_isnt
  pr

ogram_stdout_like
  program_stdout_unlike
  program_stderr_is
  program_stderr_isnt
  program_stderr_like
  program_stderr_unlike
);

done_testing;

rcept { script_stdout_isnt "XXXX" },
  array {
    event Ok => sub {
      call pass => T();
      call name => 'stdout does not match';
    };
    end;
  },
  'script_stdout_isnt',
);

is(
  intercep

vent Diag => sub {};
    end;
  },
  'script_stdout_is fail',
);

is(
  intercept { script_stdout_isnt "Standard Out\nsecond line\n" },
  array {
    event Ok => sub {
      call pass => F();
      ca

iag => sub {};
    event Diag => sub {};
    event Diag => sub {};
    end;
  },
  'script_stdout_isnt fail',
);

is(
  intercept { script_stdout_like qr{tandard Ou} },
  array {
    event Ok => sub {