view release on metacpan or  search on metacpan

t/archive.source.t  view on Meta::CPAN

        qq|has failed ($!), most probably, that's not Debian at all|;
    while( my $fn = readdir $dh )                              {
        $fn =~ m{.*_Sources$}                                         or next;
        open my $fh, q|<|, qq|$lists/$fn|;
        while( my $record = <$fh> )                           {
            $record =~ m{\nFiles:\h*\n((?:\s+[^\n]+\n)+)}s                  or
              die
                qq|(ASK_DEBIAN) was requested, however that record\n\n| .
                qq|${record}has no (Files:) line|;
            $askdebian{$_}++
              foreach map +( split m{\s} )[3], split m{\n}, $1 }}}

my %patterns = t::TestSuite::RCD_load_patterns;
plan tests =>
  4 + @{$patterns{match_source_1_0}}        +
  4 + @{$patterns{match_source_3_0_native}} +
  4 + @{$patterns{match_source_3_0_quilt}}  +
  4 + @{$patterns{match_patch_1_0}}         +
  4 + @{$patterns{match_patch_3_0_quilt}}   +
  keys %askdebian;

t/changelog.t  view on Meta::CPAN

      qq|however ($dirsource) doesn't open ($!)\nIs it *nix at all?|;
    my %stats;
    while( my $dn = readdir $dh )                   {
        -d qq|$dirsource/$dn|                                         or next;
        !($filter || $match)        ||
        $filter && $dn eq $filter   ||
        $match  && $dn =~ m{$match}                                   or next;
        foreach my $fn ( map qq|$dirsource/$dn/$_|,
          qw| changelog.Debian.gz changelog.gz | ) {
            -f $fn                                                    or next;
            my @stats = (( split m{/}, $fn )[-1], ( stat $fn )[7,9] );
            my $same =
            ( grep
                  $_->[0][0] eq $stats[0] &&
                  $_->[0][1] == $stats[1] &&
                  $_->[0][2] == $stats[2],
                values %stats )[0];
            push @{$stats{$same ? $same->[0][-1] : $fn}}, [ @stats, $fn ];
                                               last }}
    @askdebian = keys %stats;
    @askdebian                                                          or die

t/changelog.t  view on Meta::CPAN

                           last }
        $meat = substr $meat, length $entry[0];
        $meat = substr $meat, 1                                          while
          $meat =~ m{^\s} }
    continue             {
               ++$attempt }
    ok                    !$report{$package} ||
                                 $weak_limit ||
      $soft_limit && $attempt >= $soft_limit,
      sprintf q|? %s/%s (%i) subchecks|,
        $package, ( split m{/}, $chlog )[-1], $attempt or BAIL_OUT q|you see|;
    unlink $tfn                                      unless $report{$package};
    $total += $attempt            }
diag qq|$_ failed at ($report{$_}) attempt|              foreach keys %report;
diag qq|subchecks: $total|                                      if @askdebian;

# vim: syntax=perl