use Test;
BEGIN { plan(tests => 1) }

use Net::Frame::Layer::IPv4 qw(:consts);

my $l = Net::Frame::Layer::IPv4->new;
$l->pack;
$l->unpack;

print $l->print."\n";

my $encap = $l->encapsulate;
$encap ? print "[$encap]\n" : print "[none]\n";

ok(1);