mirror of
https://github.com/xcat2/xcat-core.git
synced 2026-09-05 04:27:55 +00:00
Vinícius Ferrão
61b5b19a6e
noderange() reads a ^file by default. With nofile it opens nothing, yields no nodes, and flags the rejection, including when a ^file is mixed with a plain node. A plain range sets no flag. A pipe-shaped name runs no command. site.excludenodes keeps its own semantics: it does not change the request's rejection state, and its own ^file is still read.
69 lines
2.6 KiB
Perl
69 lines
2.6 KiB
Perl
#!/usr/bin/env perl
|
|
use strict;
|
|
use warnings;
|
|
|
|
use FindBin;
|
|
use File::Spec;
|
|
use File::Temp qw(tempfile);
|
|
use Test::More;
|
|
|
|
my $libdir = "$FindBin::Bin/../../perl-xCAT";
|
|
plan skip_all => 'NodeRange.pm not found' unless -r "$libdir/xCAT/NodeRange.pm";
|
|
|
|
# Stub Table so NodeRange loads without a database. The ^ file path does not
|
|
# call a Table method.
|
|
BEGIN {
|
|
$INC{'xCAT/Table.pm'} = 1;
|
|
package xCAT::Table;
|
|
sub new { return bless {}, shift }
|
|
sub _set_use_cache { }
|
|
sub _build_cache { }
|
|
our $AUTOLOAD;
|
|
sub AUTOLOAD { return }
|
|
sub DESTROY { }
|
|
}
|
|
eval { require Text::Balanced; 1 } or plan skip_all => 'Text::Balanced is required';
|
|
|
|
push @INC, $libdir;
|
|
require xCAT::NodeRange;
|
|
|
|
my ($fh, $listfile) = tempfile('xcat_nrlist_XXXXXX', TMPDIR => 1, UNLINK => 1);
|
|
print {$fh} "n1uniqtoken\n";
|
|
close $fh;
|
|
|
|
eval { xCAT::NodeRange::noderange('^' . $listfile, 0, 0) };
|
|
is($@, '', 'a real ^file is processed without error');
|
|
ok(!xCAT::NodeRange::file_operator_rejected(), 'without nofile the ^file operator is not rejected');
|
|
|
|
my @nofile = eval { xCAT::NodeRange::noderange('^' . $listfile, 0, 0, nofile => 1) };
|
|
is($@, '', 'nofile: a ^file range is accepted without error');
|
|
is_deeply(\@nofile, [], 'nofile: the ^file operator yields no nodes');
|
|
ok(xCAT::NodeRange::file_operator_rejected(), 'nofile: the ^file operator is flagged as rejected');
|
|
|
|
xCAT::NodeRange::noderange('nodeX,^' . $listfile, 0, 0, nofile => 1);
|
|
ok(xCAT::NodeRange::file_operator_rejected(), 'nofile: a ^file mixed with a plain node is still flagged');
|
|
|
|
xCAT::NodeRange::noderange('nodeX', 0, 0, nofile => 1);
|
|
ok(!xCAT::NodeRange::file_operator_rejected(), 'nofile: a plain range is not flagged');
|
|
|
|
my $marker = File::Spec->catfile(File::Spec->tmpdir, "xcat_nr_nofile_marker_$$");
|
|
unlink $marker;
|
|
END { unlink $marker if defined $marker }
|
|
eval { xCAT::NodeRange::noderange('^touch ' . $marker . ' |', 0, 0, nofile => 1) };
|
|
ok(!-e $marker, 'nofile: the ^file operator opens and runs nothing');
|
|
|
|
$::XCATSITEVALS{excludenodes} = 'excludednode';
|
|
xCAT::NodeRange::noderange('nodeX,^' . $listfile, 0, 1, nofile => 1);
|
|
ok(xCAT::NodeRange::file_operator_rejected(),
|
|
'site.excludenodes does not erase a rejected request ^file');
|
|
|
|
$::XCATSITEVALS{excludenodes} = '^' . $listfile;
|
|
xCAT::NodeRange::noderange('nodeX', 0, 1, nofile => 1);
|
|
ok(!xCAT::NodeRange::file_operator_rejected(),
|
|
'a trusted site.excludenodes ^file is not attributed to the request');
|
|
ok((grep { $_ eq 'n1uniqtoken' } xCAT::NodeRange::nodesmissed()),
|
|
'a trusted site.excludenodes ^file is read, not skipped');
|
|
$::XCATSITEVALS{excludenodes} = undef;
|
|
|
|
done_testing();
|