So the Perl QA Hackathon 2010 is over. My part in it was mainly to help with organizing, but with a specification from Gregoa and a help from Potyl a new debian-perl quality script was created - patchedit.
Patchedit works in two modes edit and check. In the edit mode it will fire-up an editor and optionally add a missing patch description fields. In the check mode it can test the fields and output TAP based on the ok/fail. Thanks to this and TAP::Formatter::HTML it was easy to create a page with the patch "health" status. Here is how:
find -name series | perl -MIO::Any -MFile::Basename=dirname -ne 'chomp; my $s = $_; my $bd=dirname($s); my @pl=map { $bd."/".$_ } grep { $_ !~ m/^\s*$/ } map { chomp; $_ } split("\n", IO::Any->slurp($s)); print map { $_."\n" } @pl;' | xargs prove --exec "patchedit check -o" -m -Q --formatter=TAP::Formatter::HTML > output.html
The output page can be found here.
You can watch the final stand-up video with the achievements at brian d foy blog.
Leave a comment