vcs.maemo.org Git - maemian/blob - nokia-lintian/private/update-never-seen

   1 #!/usr/bin/perl -w
   2 #
   3 # This simple filter takes the output from runtests -v and mangles it into the
   4 # format for the tags-never-seen file.
   5
   6 use POSIX qw(strftime);
   7
   8 my @untested;
   9 while (<>) {
  10     next unless /^I: tag-is-not-tested (\S+) in (\S+)/;
  11     push (@untested, [ $2, $1 ]);
  12 }
  13 @untested = sort { $a->[0] cmp $b->[0] || $a->[1] cmp $b->[1] } @untested;
  14 print "Last generated ", strftime ('%Y-%m-%d', gmtime), "\n\n";
  15 for my $tag (@untested) {
  16     print "$tag->[0] $tag->[1]\n";
  17 }