view release on metacpan or  search on metacpan

scripts/dump-parsed-cpanm-build-logs  view on Meta::CPAN

        "#     Module                Want     Have",
        "#     --------------------- ---- --------",
        "#     Symbol                 any     1.08",
        "#     Test::Builder::Module 0.86 1.302120",
        "#     strict                 any     1.11",
        "#     warnings               any     1.38",
        "# ",
        "t/00-report-prereqs.t .. ok",
        "Not a GLOB reference at /home/jkeenan/var/tad/testing/perl-5.27.6/.cpanm/work/1513444048.14516/Test-API-0.008/blib/lib/Test/API.pm line 176.",
        "t/02-public.t .......... ",
        "Dubious, test returned 255 (wstat 65280, 0xff00)",
        "Failed 4/11 subtests ",
        "Not a GLOB reference at /home/jkeenan/var/tad/testing/perl-5.27.6/.cpanm/work/1513444048.14516/Test-API-0.008/blib/lib/Test/API.pm line 176.",
        "t/03-export.t .......... ",
        "Dubious, test returned 255 (wstat 65280, 0xff00)",
        "Failed 8/14 subtests ",
        "Not a GLOB reference at /home/jkeenan/var/tad/testing/perl-5.27.6/.cpanm/work/1513444048.14516/Test-API-0.008/blib/lib/Test/API.pm line 176.",
        "t/04-class-ok.t ........ ",
        "Dubious, test returned 255 (wstat 65280, 0xff00)",
        "Failed 3/5 subtests ",
        "",
        "Test Summary Report",
        "-------------------",
        "t/02-public.t        (Wstat: 65280 Tests: 7 Failed: 0)",
        "  Non-zero exit status: 255",
        "  Parse errors: Bad plan.  You planned 11 tests but ran 7.",
        "t/03-export.t        (Wstat: 65280 Tests: 6 Failed: 0)",
        "  Non-zero exit status: 255",
        "  Parse errors: Bad plan.  You planned 14 tests but ran 6.",
        "t/04-class-ok.t      (Wstat: 65280 Tests: 2 Failed: 0)",
        "  Non-zero exit status: 255",
        "  Parse errors: Bad plan.  You planned 5 tests but ran 2.",
        "Files=4, Tests=16,  1 wallclock secs ( 0.03 usr  0.00 sys +  0.36 cusr  0.03 csys =  0.42 CPU)",
        "Result: FAIL",
      ],
      via => "App::cpanminus::reporter 0.17 (1.7043)",
    }

=head1 PREREQUISITES

CPAN::cpanminus::reporter::RetainReports and its prerequisites.  Data::Dump.

=head1 AUTHOR

    James E Keenan
    CPAN Id:  JKEENAN
    jkeenan [at] cpan [dot] org

=head1 COPYRIGHT

Copyright (c) 2017 James E Keenan.  All rights reserved.
This program is free software; you can redistribute
it and/or modify it under the same terms as Perl itself.

=head1 SEE ALSO

perl(1). CPAN::cpanminus::reporter::RetainReports(3). JSON(3).

=cut

my $decoded;
if (@ARGV) {
    for my $lfile (@ARGV) {
        croak "Cannot locate $lfile" unless (-f $lfile);
        my $f = Path::Tiny::path($lfile);
        $decoded = decode_json($f->slurp_utf8);
        display_text($decoded);
    }
}
else {
    $decoded = decode_json(<STDIN>);
    display_text($decoded);
}
exit 0;

sub display_text {
    my $decoded = shift;
    my $reworked = { map { $_ => $decoded->{$_} } sort grep { $_ ne 'test_output' } keys %{$decoded} };
    $reworked->{test_output} = [ split(/\n/, $decoded->{test_output}) ];
    dd($reworked);
    return 1;
}