1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
|
#!perl
use strict;
use warnings;
use File::Spec;
use lib File::Spec->catdir(qw(t lib));
BEGIN {
lib->import('lib')
if !-d 't';
}
use Sereal::TestSet qw(:all);
use Test::More tests => 3;
use Sereal::Decoder;
# Regression test for issue 15 on github:
# https://github.com/Sereal/Sereal/issues/15
# Snappy compression was broken by assuming remaining document length
# is the same as compressed-data-length.
SKIP: {
my $have_enc= have_encoder_and_decoder();
if ( not $have_enc ) {
skip "Need encoder for Snappy regression tests", 3;
}
else {
require Sereal::Encoder;
my $encoder= Sereal::Encoder->new( { snappy_incr => 1, snappy_threshold => 1 } );
my $decoder= Sereal::Decoder->new();
# establish base behaviour
ok( $decoder->decode( $encoder->encode("foo") ), 'normal decode' );
# build test string with data after first document
my $str;
foreach my $i ( 0 .. 1 ) {
$str .= $encoder->encode("foo");
}
ok( _decode_with_offset( $str, $decoder ), 'decode with offset' );
}
} # end SKIP block
sub _decode_with_offset {
my ( $value, $decoder )= @_;
my @decoded_values;
my $pos= 0;
#my $first = index($value, "=srl", 1);
#$value = substr($value, 0, $first);
my $ok= eval {
while ( $pos < length($value) ) {
push @decoded_values, $decoder->decode_with_offset( $value, $pos );
last if $decoder->bytes_consumed == 0;
$pos += $decoder->bytes_consumed;
}
1;
};
my $err= $@;
ok( $ok, "decoding did not die" )
or diag("Exception: $err"), return;
return \@decoded_values;
}
|
