r6209@rob-kinyons-computer-2 (orig r9991): rkinyon | 2007-09-24 21:18:27 -0400

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

use strict;
use Test::More tests => 11;
use Test::Deep;
use t::common qw( new_fh );

use_ok( 'DBM::Deep' );

{
    my ($fh, $filename) = new_fh();
    my $db = DBM::Deep->new(
        file => $filename,
        locking => 1,
        autoflush => 1,
    );

    $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 );
    is( $y, undef );
    is( $x + 0, undef );
    is( $y + 0, undef );
    is( $db->{foo}, 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 );
    is( $y, undef );
}

SKIP: {
    skip "What do we do with external references and txns?", 2;
    my ($fh, $filename) = new_fh();
    my $db = DBM::Deep->new(
        file => $filename,
        locking => 1,
        autoflush => 1,
        num_txns => 2,
    );

    $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;
}