extract Protocol into own package

[zc] / t / Protocol.t

diff --git a/t/Protocol.t b/t/Protocol.t
new file mode 100755 (executable)
index 0000000..2e56b9f
--- /dev/null
+++ b/t/Protocol.t
@@ -0,0 +1,19 @@
+#!/usr/bin/perl
+
+use warnings;
+use strict;
+
+use Test::More tests => 2;
+use Data::Dump qw(dump);
+
+use lib '.';
+
+use_ok 'Protocol';
+
+my $raw = "\x5a\x0b\x03\x09\x00\x00\x04\xe8\x03\x00\x00\x21\x44\xaa\x4B\xF3";
+my $frame = read_parameter_frame( "\x00" => "\x04\xe8\x03\x00\x00", "\x21", "\x44", "\xaa" );
+
+diag "raw   = ",dump($raw);
+diag "frame = ",dump($frame);
+
+is ( unpack('H*',$frame), unpack('H*',$raw), 'read_parameter_frame' );