view release on metacpan or  search on metacpan

t/20-script-suppress.t  view on Meta::CPAN

use strict;
use warnings;
use Test::More tests => 2;
use IO::Scalar;

{
  local @ARGV = (q[s=1,2,3,4], q[suppress=1]);

  my $str = q[];
  my $io  = IO::Scalar->new(\$str);
  select $io;
  eval q[require "bin/sparkline"];

  like($str, qr/PNG/smix);
  unlike($str, qr/Content-type/smix);
}

t/20-script.t  view on Meta::CPAN

use strict;
use warnings;
use Test::More tests => 2;
use IO::Scalar;

{
  local @ARGV = (q[s=1,2,3,4]);

  my $str = q[];
  my $io  = IO::Scalar->new(\$str);
  select $io;
  eval q[require "bin/sparkline"];

  like($str, qr/PNG/smix);
  like($str, qr/Content-type/smix);
}