From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

DGL / AnyEvent-Redis-0.24 / t / lrange.t 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63

              
use strict;
use Test::More;
use t::Redis;
test_redis {
    my $r = shift;
    for my $n(1 .. 10) {
      my $key1 = "lrange_test1_$n";
      my $key2 = "lrange_test2_$n";
      $r->del($key1);
      $r->del($key2);
      for (1 .. 20) {
        $r->rpush($key1, join "\n", map {"A" x 100} (0 .. 3));
        $r->rpush($key2, join "\n", map {"B" x 100} (0 .. 3));
      }
      for (1 .. 20) {
        $r->rpush($key1, join "\n", map {"C" x 100} (0 .. 3));
        $r->rpush($key2, join "\n", map {"D" x 100} (0 .. 3));
      }
      $r->all_cv->begin;
      $r->lrange($key1, 0, 19, sub {
          my $value = join "\n", map {"A" x 100} (0 .. 3);
          is scalar @{$_[0]}, 20, "correct length $key1 0 19";
          is $_[0][-1], $value, "correct end value $key1 0 19";
          is $_[0][0], $value, "correct start value $key1 0 19";
          $r->all_cv->end;
      });
      $r->all_cv->begin;
      $r->lrange($key2, 0, 19, sub {
          my $value = join "\n", map {"B" x 100} (0 .. 3);
          is scalar @{$_[0]}, 20, "correct length $key2 0 19";
          is $_[0][-1], $value, "correct end value $key2 0 19";
          is $_[0][0], $value, "correct start value $key2 0 19";
          $r->all_cv->end;
      });
      $r->all_cv->begin;
      $r->lrange($key1, 20, 39, sub {
          my $value = join "\n", map {"C" x 100} (0 .. 3);
          is scalar @{$_[0]}, 20, "correct length $key1 20 39";
          is $_[0][-1], $value, "correct end value $key1 20 39";
          is $_[0][0], $value, "correct start value $key1 20 39";
          $r->del($key1, sub { $r->all_cv->end });
      });
      $r->all_cv->begin;
      $r->lrange($key2, 20, 39, sub {
          my $value = join "\n", map {"D" x 100} (0 .. 3);
          is scalar @{$_[0]}, 20, "correct length $key2 20 39";
          is $_[0][-1], $value, "correct end value $key2 20 39";
          is $_[0][0], $value, "correct start value $key2 20 39";
          $r->del($key2, sub { $r->all_cv->end });
      });
    }
    $r->all_cv->recv;
};
done_testing;