44 lines
1.5 KiB
Perl
44 lines
1.5 KiB
Perl
#!/usr/bin/perl -w
|
|
|
|
use strict;
|
|
use warnings;
|
|
use Test::More tests => 7;
|
|
|
|
# pbs_server - TORQUE Install
|
|
my $pbs_server = `which pbs_server` || undef;
|
|
ok(defined $pbs_server, 'TORQUE Install') or
|
|
BAIL_OUT('Cannot locate TORQUE server daemon - install TORQUE or add TORQUE install directory to $PATH');
|
|
|
|
# qstat - Client Tools
|
|
my $qstat = `which qstat` || undef;
|
|
ok(defined $qstat, 'Client Tools') or
|
|
BAIL_OUT('Cannot locate TORQUE clients, install TORQUE or add TORQUE install directory to $PATH');
|
|
|
|
# version - TORQUE version
|
|
my $version = `qstat --version 2>&1`;
|
|
$version =~ /^version:\s*([\d.]+)\s*$/i;
|
|
$version = $1 || undef;
|
|
ok(defined $version, 'TORQUE Version') or
|
|
BAIL_OUT('Cannot determine TORQUE version');
|
|
|
|
# sbin/ - Install Location
|
|
my $sbindir = $pbs_server;
|
|
$sbindir =~ s/pbs_server\s*$//;
|
|
ok($sbindir ne '', 'Determine sbin') or
|
|
BAIL_OUT('Cannot determine SBIN directory');
|
|
ok(-d $sbindir,'sbin Exists') or
|
|
BAIL_OUT("$sbindir does not seem to exist");
|
|
|
|
# PID - TORQUE Currently Running
|
|
my $pid = `ps -ef | grep pbs_server | grep -v grep`;
|
|
$pid =~ /^\S+\s+(\d+)\s+/;
|
|
$pid = $1 || undef;
|
|
ok(defined $pid, 'TORQUE Currently Running') or
|
|
BAIL_OUT('pbs_server not running, start pbs_server and rerun test - see TORQUE docs, Section 1.2.4');
|
|
|
|
# qmgr - TORQUE Database Created
|
|
my $qmgr = `qmgr -c 'p s'` || undef;
|
|
ok(defined $qmgr, 'Database Created') or
|
|
BAIL_OUT("TORQUE database not created, restart pbs_server using 'pbs_server -t create' - see TORQUE docs, Section 1.2.1");
|
|
|