Solve the version problem once and for all by applying the version number

[dbsrgits/DBM-Deep.git] / t / 46_blist_reindex.t

# This test (and accompanying patch) was submitted by Father Chrysostomos (sprout@cpan.org)

use 5.006;

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

use Test::More tests => 5;

use t::common qw( new_fh );

use_ok( 'DBM::Deep' );

{
    my ($fh, $filename) = new_fh();
    my $db = DBM::Deep->new( $filename );
    
    ok eval {
        for ( # the checksums of all these begin with ^@:
            qw/ s340l 1970 thronos /,
            "\320\277\320\276\320\262\320\265\320\273\320\265\320\275".
            "\320\275\320\276\320\265", qw/ mr094 despite
            geographically binding bed handmaiden infer lela infranarii
            lxv evtropia recognizes maladies /
        ) {
            $db->{$_} = undef;
        }
        1;
    }, '2 indices can be created at once';
    
    is_deeply [sort keys %$db], [ sort
       qw/ s340l 1970 thronos /,
        "\320\277\320\276\320\262\320\265\320\273\320\265\320\275".
        "\320\275\320\276\320\265", qw/ mr094 despite
        geographically binding bed handmaiden infer lela infranarii
        lxv evtropia recognizes maladies /
    ], 'and the keys were stored correctly';
}

{
    my ($fh, $filename) = new_fh();
    my $db = DBM::Deep->new( $filename );
    
    ok eval {
        for ( # the checksums of all these begin with ^@^@^@:
            qw/ dzqtz aqkdqz cxzysd czclmy ktajsi kvlybo kyxowd lvlsda
                lyzfdi mbethb mcoqeq VMPJC ATZMZZ AXXJDX BXUUFN EIVTII
                FMOKOI HITVDG JSSJSZ JXQPFK LCVVXW /
        ) {
            $db->{$_} = undef;
        }
        1;
    }, 'multiple nested indices can be created at once';
    
    is_deeply [sort keys %$db], [ sort
        qw/ dzqtz aqkdqz cxzysd czclmy ktajsi kvlybo kyxowd lvlsda
            lyzfdi mbethb mcoqeq VMPJC ATZMZZ AXXJDX BXUUFN EIVTII
            FMOKOI HITVDG JSSJSZ JXQPFK LCVVXW /
    ], 'and the keys were stored correctly';
}

__END__