50 lines
1.4 KiB
Perl
50 lines
1.4 KiB
Perl
#!/usr/bin/perl -w
|
|
|
|
use strict;
|
|
use warnings;
|
|
use Test::More tests => 1;
|
|
sub warning ($) { diag "WARNING: $_[0]" };
|
|
|
|
##
|
|
#
|
|
# This set of tests is for providing warnings to the users. It should not be
|
|
# used for checking for actual errors. Error checking should be done in an
|
|
# actual test file. This is the final set of checks that occurs when testing
|
|
# the TORQUE installation.
|
|
#
|
|
##
|
|
|
|
# Default Queue & Queue Defaults
|
|
my $qmgr = `qmgr -c 'p s'`;
|
|
if (defined($qmgr) and $qmgr)
|
|
{
|
|
|
|
# - Default Queue
|
|
warning('No default_queue set - see TORQUE docs, Section 4.1.3')
|
|
unless ($qmgr =~ /^set server default_queue = \S+/mi);
|
|
|
|
# - Queue Defaults
|
|
my $queue = undef;
|
|
my %queues;
|
|
# - - Parse Queue Information
|
|
foreach my $line (split /[\r\n]+/, $qmgr)
|
|
{
|
|
$queue = $1 if $line =~ /^create queue (\S+)/;
|
|
next unless $line =~ /^set queue batch (\S+) = (\S+)/;
|
|
$queues{$queue}{$1} = $2 if defined $queue;
|
|
}
|
|
# - - Check Queue Information
|
|
foreach $queue (sort keys %queues)
|
|
{
|
|
warning("No default nodes for queue '$queue' set - see TORQUE docs, Section 4.1.2")
|
|
unless exists $queues{$queue}{'resources_default.nodes'};
|
|
warning("No default walltime for queue '$queue' set - see TORQUE docs, Section 4.1.2.")
|
|
unless exists $queues{$queue}{'resources_default.walltime'};
|
|
}
|
|
|
|
}
|
|
|
|
ok($qmgr,'Warnings Check') or
|
|
BAIL_OUT('Cannot communicate with TORQUE through qmgr');
|
|
|