The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;

use Test::Simple tests => 3;

use Farly::ASA::ICMPFormatter;

my $icmp = Farly::ASA::ICMPFormatter->new();

ok ($icmp->isa('Farly::ASA::ICMPFormatter'), "new");

ok ($icmp->as_string(3) eq "unreachable", "as_string");

ok ($icmp->as_integer('router-advertisement') == 9, "as_integer");