[dbsrgits/DBM-Deep.git] / t / lib / TestSimpleHash.pm

package TestSimpleHash;

use 5.6.0;

use strict;
use warnings;

use Test::More;
use Test::Exception;

use base 'TestBase';

sub assignment_direct : Test( no_plan ) {
    my $self = shift;

    my $db = $self->{db};
    while ( my ($k,$v) = each %{$self->{data}} ) {
        $db->{$k} = $v;

        ok( $db->exists( $k ) );
        ok( exists $db->{$k} );

        is( $db->get($k), $v );
        is( $db->fetch($k), $v );
        is( $db->{$k}, $v );
    }
}

1;
__END__
Commit	Line	Data
d0c365a5	1	package TestSimpleHash;
	2
	3	use 5.6.0;
	4
	5	use strict;
	6	use warnings;
	7
	8	use Test::More;
	9	use Test::Exception;
	10
	11	use base 'TestBase';
	12
	13	sub assignment_direct : Test( no_plan ) {
	14	my $self = shift;
	15
	16	my $db = $self->{db};
	17	while ( my ($k,$v) = each %{$self->{data}} ) {
	18	$db->{$k} = $v;
	19
	20	ok( $db->exists( $k ) );
	21	ok( exists $db->{$k} );
	22
	23	is( $db->get($k), $v );
	24	is( $db->fetch($k), $v );
	25	is( $db->{$k}, $v );
	26	}
	27	}
	28
	29	1;
	30	__END__