view release on metacpan or  search on metacpan

t/010_constants.t  view on Meta::CPAN

    $IF_GROUP_OPT3
    $IF_GROUP_OPT4
    $IF_GROUP_OPT5
    $IF_GROUP_OPT6
    $IF_GROUP_OPT7
    $IF_GROUP_OPT8
    $IF_GROUP_OPT9
    $IF_GROUP_WAN
    $LOG_LEVEL_NONE
    $LOG_LEVEL_NORMAL
    $LOG_LEVEL_HIGH
    $ONETOONE_BINAT
    $ONETOONE_NAT
    $PROTO_ANY
    $PROTO_ESP
    $PROTO_GRE
    $PROTO_ICMP
    $PROTO_OSPF
    $PROTO_PIM
    $PROTO_SCTP
    $PROTO_TCP
    $PROTO_TCP_UDP
    $PROTO_UDP
    $PROTO_VRRP
    $SEQ_EARLY
    $SEQ_FIRST
    $SEQ_FLOATING
    $SEQ_LAST
    $SNAT_ADVANCED
    $SNAT_AUTOMATIC
    $SNAT_DISABLED
    $SNAT_HYBRID
    $STATETYPE_KEEP
    $STATETYPE_MODULATE
    $STATETYPE_NONE
    $STATETYPE_SLOPPY
    $STATETYPE_SYNPROXY
    $TCP_FLAG_ACK
    $TCP_FLAG_CWR
    $TCP_FLAG_ECE
    $TCP_FLAG_FIN
    $TCP_FLAG_PSH
    $TCP_FLAG_RST
    $TCP_FLAG_SYN
    $TCP_FLAG_URG
    $TLS_VERSION_1_0
    $TLS_VERSION_1_1
    $TLS_VERSION_1_2
    $TLS_VERSION_1_3
);

## no critic (ValuesAndExpressions::RequireInterpolationOfMetachars)
subtest 'actions' => sub {
    is( $ACTION_BLOCK,  'block',  '$ACTION_BLOCK' );
    is( $ACTION_PASS,   'pass',   '$ACTION_PASS' );
    is( $ACTION_REJECT, 'reject', '$ACTION_REJECT' );
};

subtest 'address families' => sub {
    is( $AF_INET,   'inet',   '$AF_INET' );
    is( $AF_INET6,  'inet6',  '$AF_INET6' );
    is( $AF_INET46, 'inet46', '$AF_INET46' );
};

subtest 'alias types' => sub {
    is( $ALIAS_ASN,           'asn',          '$ALIAS_ASN' );
    is( $ALIAS_AUTHGROUP,     'authgroup',    '$ALIAS_AUTHGROUP' );
    is( $ALIAS_DYNIPV6HOST,   'dynipv6host',  '$ALIAS_DYNIPV6HOST' );
    is( $ALIAS_EXTERNAL,      'external',     '$ALIAS_EXTERNAL' );
    is( $ALIAS_GEOIP,         'geoip',        '$ALIAS_GEOIP' );
    is( $ALIAS_HOST,          'host',         '$ALIAS_HOST' );
    is( $ALIAS_INTERNAL,      'internal',     '$ALIAS_INTERNAL' );
    is( $ALIAS_MAC,           'mac',          '$ALIAS_MAC' );
    is( $ALIAS_NETWORK,       'network',      '$ALIAS_NETWORK' );
    is( $ALIAS_NETWORK_GROUP, 'networkgroup', '$ALIAS_NETWORK_GROUP' );
    is( $ALIAS_PORT,          'port',         '$ALIAS_PORT' );
    is( $ALIAS_URL,           'url',          '$ALIAS_URL' );
    is( $ALIAS_URL_JSON,      'urljson',      '$ALIAS_URL_JSON' );
    is( $ALIAS_URL_TABLE,     'urltable',     '$ALIAS_URL_TABLE' );
};

subtest 'directions' => sub {
    is( $DIRECTION_ANY, 'any', '$DIRECTION_ANY' );
    is( $DIRECTION_IN,  'in',  '$DIRECTION_IN' );
    is( $DIRECTION_OUT, 'out', '$DIRECTION_OUT' );
};

subtest 'enabled / disabled state' => sub {
    is( $OPN_ENABLED,  1, '$OPN_ENABLED' );
    is( $OPN_DISABLED, 0, '$OPN_DISABLED' );
};

subtest 'gateway' => sub {
    is( $GATEWAY_DEFAULT, 'default', '$GATEWAY_DEFAULT' );
};

subtest 'interface names' => sub {
    is( $INTERFACE_DMZ,       'dmz',       '$INTERFACE_DMZ' );
    is( $INTERFACE_GUEST,     'guest',     '$INTERFACE_GUEST' );
    is( $INTERFACE_LAN,       'lan',       '$INTERFACE_LAN' );
    is( $INTERFACE_LOOPBACK,  'lo0',       '$INTERFACE_LOOPBACK' );
    is( $INTERFACE_OPT1,      'opt1',      '$INTERFACE_OPT1' );
    is( $INTERFACE_OPT2,      'opt2',      '$INTERFACE_OPT2' );
    is( $INTERFACE_OPT3,      'opt3',      '$INTERFACE_OPT3' );
    is( $INTERFACE_OPT4,      'opt4',      '$INTERFACE_OPT4' );
    is( $INTERFACE_OPT5,      'opt5',      '$INTERFACE_OPT5' );
    is( $INTERFACE_OPT6,      'opt6',      '$INTERFACE_OPT6' );
    is( $INTERFACE_OPT7,      'opt7',      '$INTERFACE_OPT7' );
    is( $INTERFACE_OPT8,      'opt8',      '$INTERFACE_OPT8' );
    is( $INTERFACE_OPT9,      'opt9',      '$INTERFACE_OPT9' );
    is( $INTERFACE_WAN,       'wan',       '$INTERFACE_WAN' );
    is( $INTERFACE_WAN2,      'wan2',      '$INTERFACE_WAN2' );
    is( $INTERFACE_WAN_DHCP,  'wan_dhcp',  '$INTERFACE_WAN_DHCP' );
    is( $INTERFACE_WAN_PPPOE, 'wan_pppoe', '$INTERFACE_WAN_PPPOE' );
};

subtest 'interface group names' => sub {
    is( $IF_GROUP_DMZ,   'dmz',   '$IF_GROUP_DMZ' );
    is( $IF_GROUP_GUEST, 'guest', '$IF_GROUP_GUEST' );
    is( $IF_GROUP_LAN,   'lan',   '$IF_GROUP_LAN' );
    is( $IF_GROUP_OPT1,  'opt1',  '$IF_GROUP_OPT1' );