%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /home/opti/optisoftcom/.cpanm/work/1544535425.21555/BSON-v1.10.2/t/regression/
Upload File :
Create Path :
Current File : /home/opti/optisoftcom/.cpanm/work/1544535425.21555/BSON-v1.10.2/t/regression/undef_round_trip.t

use strict;
use warnings;

use Test::More;
use lib 't/lib';
use lib 't/pvtlib';
use CleanEnv;

use BSON;
use Tie::IxHash;

my $c = BSON->new;

# PERL-543 deflation to BSON then back (via database?) caused undef to be an empty string

subtest 'tied Tie::IxHash' => sub {
  my %h;
  tie( %h, 'Tie::IxHash', h => undef );

  my $bin = $c->encode_one( \%h );
  my $doc = $c->decode_one( $bin );

  is $doc->{h}, undef, 'round trip undef';
};

subtest 'OO Tie::IxHash' => sub {
  my $h = Tie::IxHash->new( h => undef );

  my $bin = $c->encode_one( $h );
  my $doc = $c->decode_one( $bin );

  is $doc->{h}, undef, 'round trip undef';
};

subtest 'standard hash' => sub {
  my %doc = ( h => undef );

  my $bin = $c->encode_one( \%doc );
  my $doc = $c->decode_one( $bin );

  is $doc->{h}, undef, 'round trip undef';
};

done_testing;

Zerion Mini Shell 1.0