mirror of
https://github.com/xcat2/xcat-dep.git
synced 2026-09-12 04:26:25 +00:00
Vinícius Ferrão
6d586f7611
Pin the rule that decides whether an invocation produced anything: every attempted step failing is a total failure, one survivor is not, and a run with no steps to attempt is unaffected.
88 lines
2.8 KiB
Perl
88 lines
2.8 KiB
Perl
use strict;
|
|
use warnings;
|
|
|
|
use File::Path qw(make_path);
|
|
use File::Temp qw(tempdir);
|
|
use FindBin;
|
|
use Test::More;
|
|
|
|
use lib "$FindBin::Bin/../lib";
|
|
use XCAT::BuildUtils qw(
|
|
capture_command
|
|
command_exists
|
|
digest_file
|
|
digest_manifest
|
|
display_quote
|
|
every_step_failed
|
|
hashes_equal
|
|
read_binary
|
|
read_first_line
|
|
read_lines
|
|
relative_files
|
|
require_command
|
|
run_command
|
|
shell_quote
|
|
write_binary
|
|
);
|
|
|
|
my $tmp = tempdir(CLEANUP => 1);
|
|
write_binary("$tmp/alpha", "abc");
|
|
make_path("$tmp/nested");
|
|
write_binary("$tmp/nested/lines", "first\r\nsecond\n");
|
|
|
|
is(read_binary("$tmp/alpha"), 'abc', 'binary files round trip');
|
|
is_deeply(
|
|
[ read_lines("$tmp/nested/lines") ],
|
|
[ 'first', 'second' ],
|
|
'line reader accepts CRLF and LF',
|
|
);
|
|
is(read_first_line("$tmp/nested/lines"), 'first', 'first line is returned');
|
|
is_deeply(
|
|
[ relative_files($tmp) ],
|
|
[ 'alpha', 'nested/lines' ],
|
|
'regular files are sorted and relative',
|
|
);
|
|
|
|
my $sha256 = 'ba7816bf8f01cfea414140de5dae2223'
|
|
. 'b00361a396177a9cb410ff61f20015ad';
|
|
is(digest_file("$tmp/alpha", 'sha256'), $sha256, 'SHA-256 matches a known value');
|
|
is(digest_file("$tmp/alpha", 'md5'), '900150983cd24fb0d6963f7d28e17f72',
|
|
'MD5 matches a known value');
|
|
is(
|
|
digest_manifest($tmp, 'sha256', 'alpha'),
|
|
"$sha256 alpha\n",
|
|
'digest manifest uses the release format',
|
|
);
|
|
|
|
ok(command_exists($^X), 'current Perl interpreter is executable');
|
|
is(capture_command($^X, '-e', 'print "captured\\n"'), 'captured',
|
|
'command output is captured without a shell');
|
|
ok(run_command($^X, '-e', 'exit 0'), 'successful command returns true');
|
|
|
|
eval { run_command($^X, '-e', 'exit 7'); 1 };
|
|
like($@, qr/Command failed \(rc=7\)/, 'command failure reports its exit status');
|
|
eval { require_command("xcat-missing-command-$$"); 1 };
|
|
like($@, qr/Required command not found/, 'missing command is rejected');
|
|
eval { digest_file("$tmp/alpha", 'unknown'); 1 };
|
|
like($@, qr/Unsupported digest algorithm/, 'unknown digest is rejected');
|
|
|
|
is(display_quote('plain/value'), 'plain/value', 'simple display value is unquoted');
|
|
is(display_quote('two words'), q{'two words'}, 'display value with spaces is quoted');
|
|
is(shell_quote("it's"), q{'it'"'"'s'}, 'shell quote escapes apostrophes');
|
|
ok(every_step_failed(6, 6), 'every attempted step failing is reported');
|
|
ok(!every_step_failed(6, 5), 'one surviving step is not a total failure');
|
|
ok(!every_step_failed(0, 0), 'attempting no steps is not a failure');
|
|
|
|
ok(hashes_equal({ a => 1 }, { a => 1 }), 'equal hashes match');
|
|
ok(!hashes_equal({ a => 1 }, { a => 2 }), 'different hashes do not match');
|
|
|
|
my $link = "$tmp/link";
|
|
if (symlink('alpha', $link)) {
|
|
eval { relative_files($tmp); 1 };
|
|
like($@, qr/Symbolic links are not allowed/, 'directory walk rejects symlinks');
|
|
} else {
|
|
fail('test filesystem supports symbolic links');
|
|
}
|
|
|
|
done_testing();
|