os-autoinst-distri-rocky-mi.../tests/firewall_configured.pm

26 lines
643 B
Perl
Raw Permalink Normal View History

use base "installedtest";
use strict;
use testapi;
sub run {
my $self = shift;
if (not(check_screen "root_console", 0)) {
$self->root_console(tty => 3);
}
# this only succeeds if the firewall is running
assert_script_run 'firewall-cmd --state';
# these succeed if the specified service/port is allowed
assert_script_run 'firewall-cmd --query-service ftp';
assert_script_run 'firewall-cmd --query-port imap/tcp';
assert_script_run 'firewall-cmd --query-port 1234/udp';
assert_script_run 'firewall-cmd --query-port 47/tcp';
}
sub test_flags {
return {fatal => 1};
}
1;
# vim: set sw=4 et: