view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

  [Fixed]

  - Fix in 0.37 tickled a very obscure regular expressions bug in perl <
    5.18; should now be fixed.

0.37      2016-05-02 07:08:31-04:00 America/New_York (TRIAL RELEASE)

  [Fixed]

  - Skip some tests if locale can't be determined.

0.36      2016-02-28 21:36:57-05:00 America/New_York

  [Docs]

  - Fixed typos.

0.34      2016-02-18 23:26:13-05:00 America/New_York

  [Fixed]

t/lib/Cases.pm  view on Meta::CPAN

use warnings;
use Test::More;
use Capture::Tiny ':all';

require Exporter;
our @ISA = 'Exporter';
our @EXPORT_OK = qw(
  run_test
);

my $locale_ok = eval {
    my $err = capture_stderr { system($^X, '-we', 1) };
    $err !~ /setting locale failed/i;
};

my $have_diff = eval {
  require Test::Differences;
  Test::Differences->import;
  $Test::Differences::VERSION < 0.60; # 0.60+ is causing strange failures
};

sub _is_or_diff {
  my ($g,$e,$l) = @_;

t/lib/Cases.pm  view on Meta::CPAN

#   channels => 'both',
#   method => 'perl'
# )

sub run_test {
  my $test_type = shift or return;
  my $todo = shift || '';
  my $skip_utf8 = shift || '';
  local $ENV{PERL_CAPTURE_TINY_TIMEOUT} = 0; # don't timeout during testing
  for my $m ( keys %methods ) {
    if ( ($m eq 'sys' || substr($test_type,0,3) eq 'tee' ) && ! $locale_ok ) {
        SKIP: {
            skip "Perl could not initialize locale", 1
        };
        next;
    }
    for my $c ( keys %channels ) {
      for my $t ( keys %texts     ) {
        next if $t eq 'unicode' && $skip_utf8;
        my @orig_layers = _set_utf8($t);
        local $TODO = "not supported on all platforms"
          if $t eq $todo;
        $tests{$test_type}{test}->($m, $c, $t, $test_type);