Yet Another CPAN Grep

Test-Output ( B/BD/BDFOY/Test-Output-1.034.tar.gz, BDFOY, 2023; MetaCPAN )

Test-Output/t/output_isnt.t ( view source; MetaCPAN )

 tests => 168;
use Test::Output;

use strict;
use warnings;

check_test( sub {
            output_isnt(sub {
                        print "TEST OUT\n";
                        print STDERR "TEST OUT"

> '',
            },'STDOUT not equal success'
          );

check_test( sub {
            output_isnt(sub {
                        print "TEST OUT\n";
                        print STDERR "TEST OUT\

> '',
            },'STDERR not equal success'
          );

check_test( sub {
            output_isnt(sub {
                        print "TEST OUT\n"; 
                        print STDERR "TEST ERR

Test-Output ( B/BD/BDFOY/Test-Output-1.034.tar.gz, BDFOY, 2023; MetaCPAN )

Test-Output/t/combined_isnt.t ( view source; MetaCPAN )

tests => 98;
use Test::Output;

use strict;
use warnings;

check_test( sub {
            combined_isnt(sub {
                        print "TEST OUT\n";
                      },


            },'STDOUT not matching success'
          );

check_test( sub {
            combined_isnt(sub {
                        print STDERR "TEST OUT\n";
                      },


            },'STDERR not matching success'
          );

check_test( sub {
            combined_isnt(sub {
                        print "TEST STDOUT\n"; 
                        print STDERR "TEST

Test-Output ( B/BD/BDFOY/Test-Output-1.034.tar.gz, BDFOY, 2023; MetaCPAN )

Test-Output/t/stdout_isnt.t ( view source; MetaCPAN )

e tests => 42;
use Test::Output;

use strict;
use warnings;

check_test( sub {
            stdout_isnt(sub {
                        print "TEST OUT\n";
                      },

> '',
            },'STDOUT not equal success'
          );

check_test( sub {
            stdout_isnt(sub {
                        printf("TEST OUT - %d\n",42);
                      },

           },'STDOUT printf not equal success'
          );

check_test( sub {
            stdout_isnt(sub {
                        print "TEST OUT";
                      },
                      "T

Test-Output ( B/BD/BDFOY/Test-Output-1.034.tar.gz, BDFOY, 2023; MetaCPAN )

Test-Output/t/stderr_isnt.t ( view source; MetaCPAN )

e tests => 28;
use Test::Output;

use strict;
use warnings;

check_test( sub {
            stderr_isnt(sub {
                        print STDERR "TEST OUT\n";
                      },

> '',
            },'STDERR not equal success'
          );

check_test( sub {
            stderr_isnt(sub {
                        print STDERR "TEST OUT\n";
                      },

ted\n",
            },'STDERR matches failure'
          );

check_test( sub {
            stderr_isnt {
                        print STDERR "TEST OUT\n";
                      }