git.rot13.org Git - zc/blob - t/Protocol.t

   1 #!/usr/bin/perl
   2
   3 use warnings;
   4 use strict;
   5
   6 use Test::More tests => 2;
   7 use Data::Dump qw(dump);
   8
   9 use lib '.';
  10
  11 use_ok 'Protocol';
  12
  13 my $raw = "\x5a\x0b\x03\x09\x00\x00\x04\xe8\x03\x00\x00\x21\x44\xaa\x4B\xF3";
  14 my $frame = read_parameter_frame( "\x00" => "\x04\xe8\x03\x00\x00", "\x21", "\x44", "\xaa" );
  15
  16 diag "raw   = ",dump($raw);
  17 diag "frame = ",dump($frame);
  18
  19 is ( unpack('H*',$frame), unpack('H*',$raw), 'read_parameter_frame' );