The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

MENDEL / URI-redis-0.02 / t / 10-all.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
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161

              
#!/usr/bin/env perl
use strict;
use warnings;
use Test::Most;
use URI::redis;
sub test_methods {
    my ($uri, @tests) = @_;
    local $Test::Builder::Level = $Test::Builder::Level + 1;
    while ( my ($method, $expected_value) = splice @tests, 0, 2 ) {
        is $uri->$method, $expected_value, "$method is correct";
    }
}
subtest "scheme: 'redis://', password: userinfo, database: path" => sub {
    my $uri = URI->new('redis://:testpassword@redis.example.com:1234/5');
    test_methods($uri,
        scheme                 => 'redis',
        password               => 'testpassword',
        password_from_userinfo => 'testpassword',
        password_from_query    => undef,
        host                   => 'redis.example.com',
        port                   => 1234,
        socket_path            => undef,
        database               => 5,
        database_from_path     => 5,
        database_from_query    => undef,
    );
};
subtest "scheme: 'redis://', password: query, database: path" => sub {
    my $uri = URI->new(
        'redis://redis.example.com:1234/5?password=testpassword');
    test_methods($uri,
        scheme                 => 'redis',
        password               => 'testpassword',
        password_from_userinfo => undef,
        password_from_query    => 'testpassword',
        host                   => 'redis.example.com',
        port                   => 1234,
        socket_path            => undef,
        database               => 5,
        database_from_path     => 5,
        database_from_query    => undef,
    );
};
subtest "scheme: 'redis://', password: query, database: query" => sub {
    my $uri = URI->new(
        'redis://redis.example.com:1234?password=testpassword&db=5');
    test_methods($uri,
        scheme                 => 'redis',
        password               => 'testpassword',
        password_from_userinfo => undef,
        password_from_query    => 'testpassword',
        host                   => 'redis.example.com',
        port                   => 1234,
        socket_path            => undef,
        database               => 5,
        database_from_path     => undef,
        database_from_query    => 5,
    );
};
subtest "scheme: 'redis://', password: userinfo, database: query" => sub {
    my $uri = URI->new('redis://:testpassword@redis.example.com:1234?db=5');
    test_methods($uri,
        scheme                 => 'redis',
        password               => 'testpassword',
        password_from_userinfo => 'testpassword',
        password_from_query    => undef,
        host                   => 'redis.example.com',
        port                   => 1234,
        socket_path            => undef,
        database               => 5,
        database_from_path     => undef,
        database_from_query    => 5,
    );
};
subtest "scheme: 'redis://', defaults" => sub {
    my $uri = URI->new('redis://');
    test_methods($uri,
        scheme                 => 'redis',
        password               => undef,
        password_from_userinfo => undef,
        password_from_query    => undef,
        host                   => 'localhost',
        port                   => 6379,
        socket_path            => undef,
        database               => 0,
        database_from_path     => undef,
        database_from_query    => undef,
    );
};
subtest "scheme: 'redis+unix://', password: userinfo, database: query" => sub {
    my $uri = URI->new('redis+unix://:testpassword@/tmp/redis.sock?db=5');
    test_methods($uri,
        scheme                 => 'redis+unix',
        password               => 'testpassword',
        password_from_userinfo => 'testpassword',
        password_from_query    => undef,
        host                   => undef,
        port                   => undef,
        socket_path            => '/tmp/redis.sock',
        database               => 5,
        database_from_path     => undef,
        database_from_query    => 5,
    );
};
subtest "scheme: 'redis+unix://', password: query, database: query" => sub {
    my $uri = URI->new(
        'redis+unix:///tmp/redis.sock?password=testpassword&db=5');
    test_methods($uri,
        scheme                 => 'redis+unix',
        password               => 'testpassword',
        password_from_userinfo => undef,
        password_from_query    => 'testpassword',
        host                   => undef,
        port                   => undef,
        socket_path            => '/tmp/redis.sock',
        database               => 5,
        database_from_path     => undef,
        database_from_query    => 5,
    );
};
subtest "scheme: 'redis+unix://', defaults" => sub {
    my $uri = URI->new('redis+unix:///tmp/redis.sock');
    test_methods($uri,
        scheme                 => 'redis+unix',
        password               => undef,
        password_from_userinfo => undef,
        password_from_query    => undef,
        host                   => undef,
        port                   => undef,
        socket_path            => '/tmp/redis.sock',
        database               => 0,
        database_from_path     => undef,
        database_from_query    => undef,
    );
};
done_testing;