xmerge/source/palmtests/bin/verify_sane.pl

   1 #!/usr/bin/perl
   2 #########################################################################
   3
   4  #*************************************************************************
   5  #
   6 # DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   7 #
   8 # Copyright 2008 by Sun Microsystems, Inc.
   9 #
  10 # OpenOffice.org - a multi-platform office productivity suite
  11 #
  12 # $RCSfile: verify_sane.pl,v $
  13 #
  14 # $Revision: 1.4 $
  15 #
  16 # This file is part of OpenOffice.org.
  17 #
  18 # OpenOffice.org is free software: you can redistribute it and/or modify
  19 # it under the terms of the GNU Lesser General Public License version 3
  20 # only, as published by the Free Software Foundation.
  21 #
  22 # OpenOffice.org is distributed in the hope that it will be useful,
  23 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  24 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  25 # GNU Lesser General Public License version 3 for more details
  26 # (a copy is included in the LICENSE file that accompanied this code).
  27 #
  28 # You should have received a copy of the GNU Lesser General Public License
  29 # version 3 along with OpenOffice.org.  If not, see
  30 # <http://www.openoffice.org/license.html>
  31 # for a copy of the LGPLv3 License.
  32 #
  33  #*************************************************************************
  34
  35 ####################################################################
  36 # File Name: template.pl
  37 # Version  : 1.0
  38 # Project  : XMerge
  39 # Author   : Brian Cameron
  40 # Date     : 5th Sept. 2001
  41 #
  42 #
  43 # Takes x and y from the command line and taps the screen there.
  44 # Assumes pose is already running.
  45 #
  46 ##########################################################################
  47
  48 use POSIX "sys_wait_h";   # Need this for waitpid with WNOHANG
  49 use EmRPC;  # EmRPC::OpenConnection, CloseConnection
  50 use EmFunctions;
  51 use EmUtils;
  52
  53 if ($#ARGV != 0)
  54 {
  55   print "\nUsage: $0 timeout\n\n";
  56   exit -1;
  57 }
  58
  59 $timeout = $ARGV[0];
  60
  61 if (!defined($up_pid = fork()))
  62 {
  63    print "ERROR, problem forking.\n"
  64 }
  65 elsif ($up_pid)
  66 {
  67    print "\nChecking to see if pose is started properly.\n";
  68
  69    # Parent process
  70    #
  71    sleep($timeout);
  72
  73    waitpid($up_pid, WNOHANG);
  74
  75    if (kill(0, $up_pid))
  76    {
  77       print "Pose did not start successfully...\n";
  78       kill(9, $up_pid);
  79       exit(-1);
  80    }
  81    else
  82    {
  83       # The child process exited okay, so we know it will not
  84       # hang...but the open_connection will just die if pose
  85       # isn't started...so try it in the parent.
  86       #
  87       open_connection();
  88       close_connection();
  89
  90       print "Verified pose started successfully...\n";
  91       exit(0);
  92    }
  93 }
  94 else
  95 {
  96    # Child process - Try to open/close the connection.  This
  97    # can hang if pose did not start properly...
  98    #
  99    open_connection();
 100    close_connection();
 101 }
 102
 103 sub open_connection
 104 {
 105   print "opening connection\n";
 106   EmRPC::OpenConnection(6415, "localhost");
 107 }
 108
 109 sub close_connection
 110 {
 111   print "closing connection\n";
 112   EmRPC::CloseConnection();
 113 }
 114