164 |
sub assert { |
sub assert { |
165 |
my ( $from, $to ) = @_; |
my ( $from, $to ) = @_; |
166 |
|
|
|
warn "# assert ", dump( $assert ); |
|
|
|
|
167 |
my $p = substr( $assert->{payload}, $from, $to ); |
my $p = substr( $assert->{payload}, $from, $to ); |
168 |
my $e = substr( $assert->{expect}, $from, $to ); |
my $e = substr( $assert->{expect}, $from, $to ); |
169 |
warn "EXPECTED ",as_hex($e), " GOT ", as_hex($p), "\t[$from-$to]\n" if $e ne $p; |
warn "EXPECTED ",as_hex($e), " GOT ", as_hex($p), " [$from-$to] in ",dump( $assert ), "\n" if $e ne $p; |
170 |
} |
} |
171 |
|
|
172 |
sub readchunk { |
sub readchunk { |