6 use Test::More tests => 2;
7 use Data::Dump qw(dump);
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" );
16 diag "raw = ",dump($raw);
17 diag "frame = ",dump($frame);
19 is ( unpack('H*',$frame), unpack('H*',$raw), 'read_parameter_frame' );