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

use strict;
use warnings;

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

my ($syslog, $expectedOutput1, $expectedOutput2);

$syslog = Net::Frame::Layer::Syslog->new;
print $syslog->print . "\n";
ok(1);

$expectedOutput1 = unpack "H*", $syslog->pack;

$syslog = Net::Frame::Layer::Syslog->message;
print $syslog->print . "\n";
ok(1);

$expectedOutput2 = unpack "H*", $syslog->pack;

print "$expectedOutput1\n$expectedOutput2\n";
if ($expectedOutput1 eq $expectedOutput2) {
    print "YES\n"
} else {
    print "NO\n"
}