view release on metacpan or  search on metacpan

lib/CPAN/Testers/TailLog/Result.pm  view on Meta::CPAN

=encoding UTF-8

=head1 NAME

CPAN::Testers::TailLog::Result - A single log entry from
metabase.cpantesters.org

=head1 DESCRIPTION

All propteries in this object are verbatim strings from upstream, with unicode
text (not bytes) where relevant.

=head1 METHODS

=head2 accepted

The time the report was accepted to C<Metabase>, verbatim.

  # {YYYY}-{MM}-{DD}T{HH}:{MM}:{SS}Z
  my $time = $result->accepted

t/offline/parse_01.t  view on Meta::CPAN

my $tail =
  CPAN::Testers::TailLog->new(
    _ua => HTTP::Tiny::Mock->new('t/files/01-log.txt') );

my $results = $tail->get_all();

cmp_ok( ref $results,       'eq', 'ARRAY', 'ArrayRef returned' );
cmp_ok( scalar @{$results}, '>',  0,       'Some results' );
cmp_ok( scalar @{$results}, '==', 1000,    '1000 results parsed' );

sub as_unicode {
    my $text = $_[0];
    utf8::decode($text);
    return $text;
}

sub as_bytes {
    my $text = $_[0];
    utf8::encode($text);
    return $text;
}

t/offline/parse_01.t  view on Meta::CPAN

        'Chris Williams (BINGOS)',
        'fail',
        'LTHEISEN/Footprintless-1.08.tar.gz',
        'x86_64-gnukfreebsd',
        'perl-v5.12.1',
        'c618d39e-65fc-11e6-ab41-c893a58a4b8c',
        '2016-08-19T11:05:01Z'
    ],
    ( 4 - 2 ) => [
        '2016-08-19T11:04:54Z',
        as_unicode('Andreas J. König (ANDK)'),
        'pass',
        'MELEZHIK/Outthentic-0.2.7.tar.gz',
        'x86_64-linux',
        'perl-v5.8.8',
        'c2367b28-65fc-11e6-85ad-35d858b9f28c',
        '2016-08-19T11:04:54Z',
    ],
    ( 244 - 2 ) => [
        '2016-08-19T10:45:36Z',
        'Alexandr Ciornii (CHORNY)',