1 package TestSimpleArray;
13 sub A_assignment : Test( 37 ) {
17 my @keys = 0 .. $#{$self->{data}};
19 push @keys, $keys[0] while @keys < 5;
21 cmp_ok( @$db, '==', 0 );
23 foreach my $k ( @keys[0..4] ) {
24 ok( !exists $db->[$k] );
25 ok( !$db->exists( $k ) );
28 $db->[$keys[0]] = $self->{data}[$keys[1]];
29 $db->push( $self->{data}[$keys[2]] );
30 $db->put( $keys[2] => $self->{data}[$keys[3]] );
31 $db->store( $keys[3] => $self->{data}[$keys[4]] );
32 $db->unshift( $self->{data}[$keys[0]] );
34 foreach my $k ( @keys[0..4] ) {
35 ok( $db->exists( $k ) );
36 ok( exists $db->[$k] );
38 is( $db->[$k], $self->{data}[$k] );
39 is( $db->get($k), $self->{data}[$k] );
40 is( $db->fetch($k), $self->{data}[$k] );
44 $db->[$_] = $self->{data}[$_] for @keys[5..$#keys];
47 cmp_ok( @$db, '==', @keys );