Commit 11308ae2 authored by Vladimír Štill's avatar Vladimír Štill
Browse files

releng: Generate compact result table.

parent c62381c9

releng/functional-report.pl

+109 −57
Original line number Original line Diff line number Diff line
@@ -3,6 +3,7 @@ 
use warnings;

use warnings;

use strict;

use strict;

use File::Spec::Functions;

use File::Spec::Functions;

use File::Basename;





die "usage: functional-report.pl <DIRECTORY_WITH_RESULTS> <WEBSITE_SRC_DIR>" if ( @ARGV < 2 );

die "usage: functional-report.pl <DIRECTORY_WITH_RESULTS> <WEBSITE_SRC_DIR>" if ( @ARGV < 2 );
@@ -46,15 +47,6 @@ delete $rescount{ started }; 




mkdir( $out );

mkdir( $out );





open( my $index, ">", catfile( $out, "index.md" ) );



my $summary = "";



for my $k ( sort keys %rescount ) {

    $summary .= "<span class=\"test_$k\">$rescount{ $k } $k</span>, ";

}

$summary =~ s/, $//;



my $builddate = "unknown";

my $builddate = "unknown";

my $buildtype = "unknown";

my $buildtype = "unknown";

my $divine = "unknown";

my $divine = "unknown";
@@ -76,6 +68,19 @@ if ( -x $divineExec ) { 
    }

    }

}

}





sub doIndex {



    my ( $name, $printer ) = @_;



    open( my $index, ">", catfile( $out, "$name.md" ) );



    my $summary = "";



    for my $k ( sort keys %rescount ) {

        $summary .= "<span class=\"test_$k\">$rescount{ $k } $k</span>, ";

    }

    $summary =~ s/, $//;



    print $index <<EOF

    print $index <<EOF

## DIVINE Functional Test Results

## DIVINE Functional Test Results
@@ -84,7 +89,7 @@ print $index <<EOF 
**build type**: $buildtype \\

**build type**: $buildtype \\

**build date**: $builddate

**build date**: $builddate





<table class="test_results">

<table class="test_results test_$name">

EOF

EOF

;

;
@@ -95,32 +100,15 @@ if ( @flavours > 1 ) { 
        }

        }

        print $index "</tr>\n";

        print $index "</tr>\n";

    }

    }

for my $t ( @tests ) {

    $printer->( $index );

    print $index "<tr><td class=\"test\">$t</td>";

    for my $f ( @flavours ) {

        my $id = "$f:$t";

        my $report = "${f}_${t}.txt";

        $report =~ s|/|_|g;

        my $origreport = "$id.txt";

        $origreport =~ s|/|_|g;



        my $res = $results{ $id };

        $res = "none" unless $res;

        print $index "<td class=\"test_result test_$res\">[$res](./$report)</td>";

        system( "cp", catfile( $dir, $origreport ), catfile( $out, $report ) );

    }

    print $index "</tr>\n";

}





    print $index "</table>\n";

    print $index "</table>\n";

    close( $index );

    close( $index );





system( "pandoc", "--to=html", "-s", "--smart", "--template", catfile( $webdir, "template.html" ), catfile( $out, "index.md" ), "-o", catfile( $out, "index.html" ) );

    system( "pandoc", "--to=html", "-s", "--smart", "--template", catfile( $webdir, "template.html" ), catfile( $out, "$name.md" ), "-o", catfile( $out, "$name.html" ) );

system( "cp", catfile( $webdir, "style.css" ), catfile( $out, "style.css" ) );

# system( "sed", "-i", 's/href="style.css"/href="..\/..\/style.css"/', catfile( $out, "index.html" ) );





    $/ = undef;

    $/ = undef;

open( my $ii, "<", catfile( $out, "index.html" ) );

    open( my $ii, "<", catfile( $out, "$name.html" ) );

    my $indexcont = <$ii>;

    my $indexcont = <$ii>;

    close( $ii );

    close( $ii );
@@ -136,8 +124,72 @@ sub procLink { 
    }

    }





    $indexcont =~ s/([<]a[^>]*href=["'])([^"']*)(['"])/procLink( $1, $2, $3 )/gems;

    $indexcont =~ s/([<]a[^>]*href=["'])([^"']*)(['"])/procLink( $1, $2, $3 )/gems;

open( my $oi, ">", catfile( $out, "index.html" ) );

    open( my $oi, ">", catfile( $out, "$name.html" ) );

    print $oi $indexcont;

    print $oi $indexcont;

    close( $oi );

    close( $oi );





print STDERR "file://" . catfile( $out, "index.html" ) . "\n";
 
}



doIndex( "full", sub {

        my ( $index ) = @_;



        for my $t ( @tests ) {

            print $index "<tr><td class=\"test\">$t</td>";

            for my $f ( @flavours ) {

                my $id = "$f:$t";

                my $report = "${f}_${t}.txt";

                $report =~ s|/|_|g;

                my $origreport = "$id.txt";

                $origreport =~ s|/|_|g;



                my $res = $results{ $id };

                $res = "none" unless $res;

                print $index "<td class=\"test_result test_$res long_test\">[$res](./$report)</td>";

                system( "cp", catfile( $dir, $origreport ), catfile( $out, $report ) );

            }

            print $index "</tr>\n";

        }

    } );



my %codemap = (

        passed => "✓",

        failed => "✗",

        warning => "!",

        skipped => "–",

        started => "…",

        timeout => "T",

        none => " "

    );

doIndex( "compact", sub {

        my ( $compact ) = @_;



        my %agreg;

        for my $t ( @tests ) {

            for my $f ( @flavours ) {

                my $id = "$f:$t";

                my $report = "${f}_${t}.txt";

                $report =~ s|/|_|g;

                my $aid = dirname( ${t} );

                $aid = (split( "/", $aid ))[0];



                my $res = $results{ $id };

                $res = "none" unless $res;

                my $r = $res;

                $r = $codemap{ $res } if exists $codemap{ $res };

                $agreg{ $aid }->{ $f } = "" unless exists $agreg{ $aid }->{ $f };

                $agreg{ $aid }->{ $f } .= "<a class=\"test_result test_$res\" title=\"$t\" href=\"./$report\">$r</a>&#8203;";

            }

        }

        for my $t ( sort( keys %agreg ) ) {

            print $compact "<tr><td class=\"test\">$t</td>";

            for my $f ( @flavours ) {

                print $compact ( "<td class=\"test_result compact_tests\"><div>" . $agreg{ $t }->{ $f } . "</div></td>" );

            }

            print $compact "</tr>\n";

        }

    } );



system( "cp", catfile( $webdir, "style.css" ), catfile( $out, "style.css" ) );



print STDERR "file://" . catfile( $out, "full.html" ) . "\n";

print STDERR "file://" . catfile( $out, "compact.html" ) . "\n";