Intermezzo commit

[dbsrgits/DBM-Deep.git] / t / 39_singletons.t

use strict;
use warnings FATAL => 'all';

use Test::More;
use Test::Deep;
use t::common qw( new_dbm );

use_ok( 'DBM::Deep' );

my $dbm_factory = new_dbm(
    locking => 1,
    autoflush => 1,
);
while ( my $dbm_maker = $dbm_factory->() ) {
    my $db = $dbm_maker->();

    $db->{a} = 1;
    $db->{foo} = { a => 'b' };
    my $x = $db->{foo};
    my $y = $db->{foo};

    is( $x, $y, "The references are the same" );

    delete $db->{foo};
    is( $x, undef, "After deleting the DB location, external references are also undef (\$x)" );
    is( $y, undef, "After deleting the DB location, external references are also undef (\$y)" );
    is( $x + 0, undef, "DBM::Deep::Null can be added to." );
    is( $y + 0, undef, "DBM::Deep::Null can be added to." );
    is( $db->{foo}, undef, "The {foo} location is also undef." );

    # These shenanigans work to get another hashref
    # into the same data location as $db->{foo} was.
    $db->{foo} = {};
    delete $db->{foo};
    $db->{foo} = {};
    $db->{bar} = {};

    is( $x, undef, "After re-assigning to {foo}, external references to old values are still undef (\$x)" );
    is( $y, undef, "After re-assigning to {foo}, external references to old values are still undef (\$y)" );
}

SKIP: {
    skip "What do we do with external references and txns?", 2;

    my $dbm_factory = new_dbm(
        locking   => 1,
        autoflush => 1,
        num_txns  => 2,
    );
    while ( my $dbm_maker = $dbm_factory->() ) {
        my $db = $dbm_maker->();

        $db->{foo} = { a => 'b' };
        my $x = $db->{foo};

        $db->begin_work;
    
            $db->{foo} = { c => 'd' };
            my $y = $db->{foo};

            # XXX What should happen here with $x and $y?
            is( $x, $y );
            is( $x->{c}, 'd' );

        $db->rollback;
    }
}

done_testing;