view release on metacpan or  search on metacpan

t/Data-FastPack-JPacker.t  view on Meta::CPAN

use Test::More;

BEGIN { use_ok('Data::FastPack::JPacker') };

my $count=5;
my $encoded="";
encode_fastpack($encoded,[[0,1,$_]]) for(1..$count);

my $encoded_copy=$encoded;
my @decoded;

decode_fastpack($encoded_copy, \@decoded);

ok (@decoded == $count);

#use Data::Dumper;
#use feature ":all";
#say STDERR Dumper @decoded;


use File::Temp qw<mktemp>;
# Write to file
my $input=mktemp("fastpackXXXXXXXX");;
{
  open my $fh, ">", $input;
  print $fh $encoded;
}