scripts/tap-merge.pl

   1 #! /usr/bin/env perl
   2 # Copyright (C) 2018 Red Hat, Inc.
   3 #
   4 # Author: Paolo Bonzini <pbonzini@redhat.com>
   5 #
   6 # This program is free software; you can redistribute it and/or modify
   7 # it under the terms of the GNU General Public License as published by
   8 # the Free Software Foundation; either version 2, or (at your option)
   9 # any later version.
  10 #
  11 # This program is distributed in the hope that it will be useful,
  12 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  13 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14 # GNU General Public License for more details.
  15 #
  16 # You should have received a copy of the GNU General Public License
  17 # along with this program.  If not, see <https://www.gnu.org/licenses/>.
  18
  19 # ---------------------------------- #
  20 #  Imports, static data, and setup.  #
  21 # ---------------------------------- #
  22
  23 use warnings FATAL => 'all';
  24 use strict;
  25 use Getopt::Long ();
  26 use TAP::Parser;
  27
  28 my $ME = "tap-merge.pl";
  29 my $VERSION = "2018-11-30";
  30
  31 my $HELP = "$ME: merge multiple TAP inputs from stdin.";
  32
  33 use constant DIAG_STRING => "#";
  34
  35 # ----------------- #
  36 #  Option parsing.  #
  37 # ----------------- #
  38
  39 Getopt::Long::GetOptions
  40   (
  41     'help' => sub { print $HELP; exit 0; },
  42     'version' => sub { print "$ME $VERSION\n"; exit 0; },
  43   );
  44
  45 # -------------- #
  46 #  Subroutines.  #
  47 # -------------- #
  48
  49 sub main ()
  50 {
  51   my $iterator = TAP::Parser::Iterator::Stream->new(\*STDIN);
  52   my $parser = TAP::Parser->new ({iterator => $iterator });
  53   my $testno = 0;     # Number of test results seen so far.
  54   my $bailed_out = 0; # Whether a "Bail out!" directive has been seen.
  55
  56   while (defined (my $cur = $parser->next))
  57     {
  58       if ($cur->is_bailout)
  59         {
  60           $bailed_out = 1;
  61           print DIAG_STRING . " " . $cur->as_string . "\n";
  62           next;
  63         }
  64       elsif ($cur->is_plan)
  65         {
  66           $bailed_out = 0;
  67           next;
  68         }
  69       elsif ($cur->is_test)
  70         {
  71           $bailed_out = 0 if $cur->number == 1;
  72           $testno++;
  73           $cur = TAP::Parser::Result::Test->new({
  74                           ok => $cur->ok,
  75                           test_num => $testno,
  76                           directive => $cur->directive,
  77                           explanation => $cur->explanation,
  78                           description => $cur->description
  79                   });
  80         }
  81       elsif ($cur->is_version)
  82         {
  83           next if $testno > 0;
  84         }
  85       print $cur->as_string . "\n" unless $bailed_out;
  86     }
  87   print "1..$testno\n";
  88 }
  89
  90 # ----------- #
  91 #  Main code. #
  92 # ----------- #
  93
  94 main;
  95
  96 # Local Variables:
  97 # perl-indent-level: 2
  98 # perl-continued-statement-offset: 2
  99 # perl-continued-brace-offset: 0
 100 # perl-brace-offset: 0
 101 # perl-brace-imaginary-offset: 0
 102 # perl-label-offset: -2
 103 # cperl-indent-level: 2
 104 # cperl-brace-offset: 0
 105 # cperl-continued-brace-offset: 0
 106 # cperl-label-offset: -2
 107 # cperl-extra-newline-before-brace: t
 108 # cperl-merge-trailing-else: nil
 109 # cperl-continued-statement-offset: 2
 110 # End: