$self->_sock_send_ok( 'LTRIM', $key, $start, $end );
}
$self->_sock_send_ok( 'LTRIM', $key, $start, $end );
}
+=head2 lindex
+
+ $r->lindex( $key, $index );
+
+=cut
+
+sub lindex {
+ my ( $self, $key, $index ) = @_;
+ $self->_sock_result_bulk( 'lindex', $key, $index );
+}
+
+
=head1 AUTHOR
Dobrica Pavlinusic, C<< <dpavlin at rot13.org> >>
=head1 AUTHOR
Dobrica Pavlinusic, C<< <dpavlin at rot13.org> >>
use warnings;
use strict;
use warnings;
use strict;
-use Test::More tests => 62;
+use Test::More tests => 64;
is_deeply( [ $o->lrange( $list, 0, 1 ) ], [ 'l2', 'l1' ], 'lrange' );
is_deeply( [ $o->lrange( $list, 0, 1 ) ], [ 'l2', 'l1' ], 'lrange' );
-ok( $o->ltrim( $list, 2, 3 ), 'ltrim' );
+ok( $o->ltrim( $list, 1, 2 ), 'ltrim' );
cmp_ok( $o->llen($list), '==', 2, 'llen after ltrim' );
cmp_ok( $o->llen($list), '==', 2, 'llen after ltrim' );
+cmp_ok( $o->lindex( $list, 0 ), 'eq', 'l1', 'lindex' );
+cmp_ok( $o->lindex( $list, 1 ), 'eq', 'r1', 'lindex' );
+