TAP Output formatieren - #181911 (Allgemeines zu Perl)

Linuxer

2015-08-25 18:49

User since
2006-01-27
3890 Artikel
HausmeisterIn

user image

Ist das Testscript von Dir? Kannst Du da Einfluss drauf nehmen und ggfs. die Tests modifizieren?
Oder sind das "fremde" Testskripte, deren Ausgabe Du modifizieren möchtest?

Man könnte evtl. die Ausgabe parsen, mit einem Regex zerlegen und dann neu zusammenbauen und ausgeben.

Schnellschuss:

Code (perl): (dl )

#! /usr/bin/perl
use strict;
use warnings;

while ( my $line = <DATA> ) {
        chomp $line;

        # split into: $1: test result, $2: test number, $3 - other string
        if ( $line =~ m/^(.+?)\s+(\d+)\s+-\s+(.+)/ ) {
                printf "%-6s %3d - %s\n", $1, $2, $3;
        }
        # other lines are printed as they are...
        else {
                print $line, "\n";
        }
}

__DATA__
ok 1 - bla bla bla
ok 2 - foo
not ok 3 - bar
...
not ok 12 - beispiel

Ergibt:

Code: (dl )

ok       1 - bla bla bla
ok       2 - foo
not ok   3 - bar
...
not ok  12 - beispiel

Limits:
- man muss vorher wissen, welche Strings als Testresulte rauskommen, um die Länge festzulegen
- man muss vorher wissen, wieviele Tests wohl laufen werden, um die Länge für den Zahlenwert festzulegen

meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!