1*cdf0e10cSrcweir#************************************************************************* 2*cdf0e10cSrcweir# 3*cdf0e10cSrcweir# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. 4*cdf0e10cSrcweir# 5*cdf0e10cSrcweir# Copyright 2000, 2010 Oracle and/or its affiliates. 6*cdf0e10cSrcweir# 7*cdf0e10cSrcweir# OpenOffice.org - a multi-platform office productivity suite 8*cdf0e10cSrcweir# 9*cdf0e10cSrcweir# This file is part of OpenOffice.org. 10*cdf0e10cSrcweir# 11*cdf0e10cSrcweir# OpenOffice.org is free software: you can redistribute it and/or modify 12*cdf0e10cSrcweir# it under the terms of the GNU Lesser General Public License version 3 13*cdf0e10cSrcweir# only, as published by the Free Software Foundation. 14*cdf0e10cSrcweir# 15*cdf0e10cSrcweir# OpenOffice.org is distributed in the hope that it will be useful, 16*cdf0e10cSrcweir# but WITHOUT ANY WARRANTY; without even the implied warranty of 17*cdf0e10cSrcweir# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 18*cdf0e10cSrcweir# GNU Lesser General Public License version 3 for more details 19*cdf0e10cSrcweir# (a copy is included in the LICENSE file that accompanied this code). 20*cdf0e10cSrcweir# 21*cdf0e10cSrcweir# You should have received a copy of the GNU Lesser General Public License 22*cdf0e10cSrcweir# version 3 along with OpenOffice.org. If not, see 23*cdf0e10cSrcweir# <http://www.openoffice.org/license.html> 24*cdf0e10cSrcweir# for a copy of the LGPLv3 License. 25*cdf0e10cSrcweir# 26*cdf0e10cSrcweir#************************************************************************* 27*cdf0e10cSrcweir 28*cdf0e10cSrcweir$#ARGV >= 1 29*cdf0e10cSrcweir or die "Usage: $0 <input file>|-SUCCESS|-FAILURE <command> <arguments...>"; 30*cdf0e10cSrcweirif ($ARGV[0] eq "-SUCCESS") 31*cdf0e10cSrcweir{ 32*cdf0e10cSrcweir $expect = "SUCCESS"; 33*cdf0e10cSrcweir $input = 0; 34*cdf0e10cSrcweir} 35*cdf0e10cSrcweirelsif ($ARGV[0] eq "-FAILURE") 36*cdf0e10cSrcweir{ 37*cdf0e10cSrcweir $expect = "FAILURE"; 38*cdf0e10cSrcweir $input = 0; 39*cdf0e10cSrcweir} 40*cdf0e10cSrcweirelse 41*cdf0e10cSrcweir{ 42*cdf0e10cSrcweir open INPUT, $ARGV[0] or die "cannot open $ARGV[0]: $!"; 43*cdf0e10cSrcweir $input = 1; 44*cdf0e10cSrcweir} 45*cdf0e10cSrcweirshift @ARGV; 46*cdf0e10cSrcweir$failed = 0; 47*cdf0e10cSrcweir$open = 0; 48*cdf0e10cSrcweirwhile (1) { 49*cdf0e10cSrcweir $eof = $input ? eof INPUT : $open; 50*cdf0e10cSrcweir $in = <INPUT> if $input && !$eof; 51*cdf0e10cSrcweir if (!$input || $eof 52*cdf0e10cSrcweir || $in =~ /^EXPECT (SUCCESS|FAILURE|\d+)( "([^"]*)")?:\n$/) 53*cdf0e10cSrcweir { 54*cdf0e10cSrcweir if ($open) 55*cdf0e10cSrcweir { 56*cdf0e10cSrcweir close PIPE; 57*cdf0e10cSrcweir if ($? % 256 == 0) 58*cdf0e10cSrcweir { 59*cdf0e10cSrcweir $exit = $? / 256; 60*cdf0e10cSrcweir $ok = $expect eq "SUCCESS" ? $exit == 0 61*cdf0e10cSrcweir : $expect eq "FAILURE" ? $exit != 0 : $exit == $expect; 62*cdf0e10cSrcweir } 63*cdf0e10cSrcweir else 64*cdf0e10cSrcweir { 65*cdf0e10cSrcweir $exit = "signal"; 66*cdf0e10cSrcweir $ok = 0; 67*cdf0e10cSrcweir } 68*cdf0e10cSrcweir print "\"$title\", " if defined $title; 69*cdf0e10cSrcweir print "expected $expect, got $exit ($?): "; 70*cdf0e10cSrcweir if ($ok) 71*cdf0e10cSrcweir { 72*cdf0e10cSrcweir print "ok\n"; 73*cdf0e10cSrcweir } 74*cdf0e10cSrcweir else 75*cdf0e10cSrcweir { 76*cdf0e10cSrcweir print "FAILED!\n"; 77*cdf0e10cSrcweir $failed = 1; 78*cdf0e10cSrcweir } 79*cdf0e10cSrcweir } 80*cdf0e10cSrcweir last if $eof; 81*cdf0e10cSrcweir $expect = $1 if $input; 82*cdf0e10cSrcweir if (defined $3) 83*cdf0e10cSrcweir { 84*cdf0e10cSrcweir $title = $3; 85*cdf0e10cSrcweir } 86*cdf0e10cSrcweir else 87*cdf0e10cSrcweir { 88*cdf0e10cSrcweir undef $title; 89*cdf0e10cSrcweir } 90*cdf0e10cSrcweir open PIPE, "| @ARGV" or die "cannot start process: $!"; 91*cdf0e10cSrcweir $open = 1; 92*cdf0e10cSrcweir } 93*cdf0e10cSrcweir elsif ($open && $input) 94*cdf0e10cSrcweir { 95*cdf0e10cSrcweir print PIPE $in or die "cannot write to pipe: $!"; 96*cdf0e10cSrcweir } 97*cdf0e10cSrcweir} 98*cdf0e10cSrcweirexit $failed; 99