522 |
|
|
523 |
cmd( |
cmd( |
524 |
"d6 00 ff 04 $tag 00 $blocks 00 $hex_data BEEF", "write $tag", |
"d6 00 ff 04 $tag 00 $blocks 00 $hex_data BEEF", "write $tag", |
525 |
"d6 00 0d 06 00 $tag $blocks BEEF", sub { assert(); $ok++ }, |
"d6 00 0d 04 00 $tag $blocks BEEF", sub { assert(); $ok++ }, |
526 |
"d6 00 0d 04 06 ", sub { |
"d6 00 0d 04 06 ", sub { |
527 |
my $data = shift; |
my $data = shift; |
528 |
warn "no tag ",as_hex( substr($data,0,8) ), " in range for write\n"; |
warn "no tag ",as_hex( substr($data,0,8) ), " in range for write\n"; |