← Back to branch summary

~ubuntu-branches/debian/sid/libsereal-encoder-perl/sid

« back to all changes in this revision

Viewing changes to t/900_reentrancy.t

  • Committer: Package Import Robot
  • Author(s): gregor herrmann
  • Date: 2014-06-06 13:17:09 UTC
  • mto: This revision was merged to the branch mainline in revision 12.
  • Revision ID: package-import@ubuntu.com-20140606131709-ek9vy22c4sh5jgjx
Tags: upstream-3.001
Import upstream version 3.001

Show diffs side-by-side

added added

removed removed

Lines of Context:
t/900_reentrancy.t
2
2
use strict;
3
3
use warnings;
4
4
use Test::More;
 
5
use File::Spec;
 
6
use Sereal::Encoder;
 
7
use lib File::Spec->catdir(qw(t lib));
 
8
BEGIN {
 
9
    lib->import('lib')
 
10
        if !-d 't';
 
11
}
 
12
use Sereal::TestSet qw(:all);
 
13
 
 
14
if (not have_encoder_and_decoder()) {
 
15
    plan skip_all => 'Did not find right version of decoder';
 
16
    exit 0;
 
17
}
5
18
 
6
19
# Encoder reentrancy test courtesy of Zefram
7
20
 
8
 
use Sereal::Encoder;
9
 
use Sereal::Decoder;
10
 
 
11
21
my $enc = Sereal::Encoder->new({freeze_callbacks=>1});
12
22
 
13
23
package Foo;