os-autoinst-distri-fedora/tests/firewall_configured.pm

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: