solenv/bin/exectest.pl

   1 #
   2 # This file is part of the LibreOffice project.
   3 #
   4 # This Source Code Form is subject to the terms of the Mozilla Public
   5 # License, v. 2.0. If a copy of the MPL was not distributed with this
   6 # file, You can obtain one at http://mozilla.org/MPL/2.0/.
   7 #
   8 # This file incorporates work covered by the following license notice:
   9 #
  10 #   Licensed to the Apache Software Foundation (ASF) under one or more
  11 #   contributor license agreements. See the NOTICE file distributed
  12 #   with this work for additional information regarding copyright
  13 #   ownership. The ASF licenses this file to you under the Apache
  14 #   License, Version 2.0 (the "License"); you may not use this file
  15 #   except in compliance with the License. You may obtain a copy of
  16 #   the License at http://www.apache.org/licenses/LICENSE-2.0 .
  17 #
  18
  19 sub encode($)
  20 {
  21     my ($arg) = @_;
  22     $arg =~ s/'/'\\''/g;
  23     return $arg
  24 }
  25
  26 $#ARGV >= 3
  27     or die "Usage: $0 <input file> <temp file> <new?> <command> <arguments...>";
  28 open INPUT, '<', $ARGV[0] or die "cannot open $ARGV[0]: $!";
  29 shift @ARGV;
  30 $temp = $ARGV[0];
  31 shift @ARGV;
  32 $new = $ARGV[0];
  33 shift @ARGV;
  34 $failed = 0;
  35 $open = 0;
  36 while (1) {
  37     $eof = eof INPUT;
  38     $in = <INPUT> unless $eof;
  39     if ($eof
  40         || $in =~ /^EXPECT (SUCCESS|FAILURE|NEW-FAILURE|OLD-FAILURE) "([^"]*)"?:\n$/)
  41     {
  42         if ($open)
  43         {
  44             close OUTPUT;
  45             my $prog = '';
  46             my $assigns = 1;
  47             for ($i = 0; $i != scalar(@ARGV); ++$i)
  48             {
  49                 $prog .= ' ' unless $i == 0;
  50                 if ($assigns && $ARGV[$i] =~ /^([A-Za-z_][A-Za-z0-9_]+)=(.*)$/)
  51                 {
  52                     $prog .= $1 . "='" . encode($2) . "'";
  53                 }
  54                 else
  55                 {
  56                     if ($ARGV[$i] =~ /^{}$/)
  57                     {
  58                         $prog .= "'" . encode($temp) . "'";
  59                     }
  60                     else
  61                     {
  62                         $prog .= "'" . encode($ARGV[$i]) . "'";
  63                     }
  64                     $assigns = 0;
  65                 }
  66             }
  67             system("$prog");
  68             unlink $temp;
  69             if ($? % 256 == 0)
  70             {
  71                 $exit = $? / 256;
  72                 $ok = ($? == 0) == ($expect eq "SUCCESS");
  73             }
  74             else
  75             {
  76                 $exit = "signal";
  77                 $ok = 0;
  78             }
  79             print "\"$title\" expected $expect, got $exit ($?): ";
  80             if ($ok)
  81             {
  82                 print "ok\n";
  83             }
  84             else
  85             {
  86                 print "FAILED!\n";
  87                 exit(1);
  88             }
  89         }
  90         last if $eof;
  91         $expect = $1;
  92         $expect = ($new ? 'FAILURE' : 'SUCCESS') if $expect eq 'NEW-FAILURE';
  93         $expect = ($new ? 'SUCCESS' : 'FAILURE') if $expect eq 'OLD-FAILURE';
  94         $title = $2;
  95         open OUTPUT, '>', $temp or die "cannot open $temp: $!";
  96         $open = 1;
  97     }
  98     elsif ($open)
  99     {
 100         print OUTPUT $in or die "cannot write to $temp: $!";
 101     }
 102 }
 103 exit(0);