#!perl
use strict;
use warnings;
use Test::More;

BEGIN {
  use Config;
  if (! $Config{'useithreads'}) {
    print("1..0 # SKIP Perl not compiled with 'useithreads'\n");
    exit(0);
  }
  elsif ($] < 5.008007) {
    print("1..0 # SKIP Sereal not thread safe on Perls before 5.8.7\n");
    exit(0);
  }
}

use Sereal::Encoder;
plan tests => 1;
use threads;

sub foo {}
SCOPE: {
  my $enc = Sereal::Encoder->new;

  my $thr = threads->new(\&foo);
  $thr->join;
}

pass();