#!perl

use strict;
use warnings;

use Sereal::Encoder;
use Test::More tests => 1;

my $srl_encoder = Sereal::Encoder->new({no_shared_hashkeys => 1});

my @array;
$array[0] = 1;
$array[3] = 1;
my $last_index = $#array;

my $str = $srl_encoder->encode(\@array);

# if segfaul script is dropped unless pass() test
pass();