#!/usr/bin/perl

require "sim.pm";
require "eb.pm";

use ebflags;

my $test = shift || 1;



my $sim = new sim;
my $packet = new ebpacket;


if($test == 1) {
$packet->set_addresses(1,2);
$packet->set_flags(($ebflags::FLAG_CRC | $ebflags::FLAG_HAMMING | $ebflags::FLAG_SRC));
$packet->add_subpacket($eb::CMD_EPING,8,1,2,3,4,5,6,7,8);
$packet->add_subpacket($eb::CMD_EPING,8,8,7,6,5,4,3,2,8);
$packet->make_packet();
$sim->put_packet($packet);
$packet->dump();
print "Decode: " . $packet->decode() . "\n";
$packet->dump();
} elsif($test == 2) {

$packet->reset();
$packet->set_addresses(1,2);
$packet->set_flags($ebflags::FLAG_SRC | $ebflags::FLAG_CRC);
$packet->add_subpacket(2,1,1);
$packet->make_packet();
$packet->dump();
print "Decode: " . $packet->decode() . "\n";
$packet->decode();
$packet->dump();
}