view release on metacpan or  search on metacpan

t/lib/api.pm  view on Meta::CPAN

    is( $yid, 3, "Third ID" );

    is( $store->entry_count, 3, "3 entry count in store" );
#    is( $store->record_count, 3, "3 record count in store" );

    $store->stow( "x" x 8188, $id );  # 12 is max 4092, 13 is max 8187

    is( $store->entry_count, 3, "still 3 entry count in store" );
#    is( $store->record_count, 3, "still 3 record count in store" );

    is( $store->fetch( $yid ), "y", "correctly relocated data" );

    # try for a much smaller relocation

    $store->stow( "x" x 90, $id );

    is( $store->entry_count, 3, "yet still 3 entry count in store" );
#    is( $store->record_count, 3, "yet still 3 record count in store" );

    my $xid = $store->stow( "x" x 90 );

    is( $store->entry_count, 4, "now 4 entry count in store" );
#    is( $store->record_count, 4, "now 4 record count in store" );