@@ -153,55 +153,55 @@ sub t_not_allowed_after_multi {
153
153
$redis -> subscribe(' channel' );
154
154
},
155
155
qr / Command "subscribe" not allowed after "multi" command/ ,
156
- " not allowed after multi ; SUBSCRIBE" ,
156
+ " not allowed after MULTI command ; SUBSCRIBE" ,
157
157
);
158
158
159
159
like(
160
160
exception {
161
161
$redis -> unsubscribe(' channel' );
162
162
},
163
163
qr / Command "unsubscribe" not allowed after "multi" command/ ,
164
- " not allowed after multi ; UNSUBSCRIBE" ,
164
+ " not allowed after MULTI command ; UNSUBSCRIBE" ,
165
165
);
166
166
167
167
like(
168
168
exception {
169
169
$redis -> psubscribe(' pattern_*' );
170
170
},
171
171
qr / Command "psubscribe" not allowed after "multi" command/ ,
172
- " not allowed after multi ; PSUBSCRIBE" ,
172
+ " not allowed after MULTI command ; PSUBSCRIBE" ,
173
173
);
174
174
175
175
like(
176
176
exception {
177
177
$redis -> punsubscribe(' pattern_*' );
178
178
},
179
179
qr / Command "punsubscribe" not allowed after "multi" command/ ,
180
- " not allowed after multi ; PUNSUBSCRIBE" ,
180
+ " not allowed after MULTI command ; PUNSUBSCRIBE" ,
181
181
);
182
182
183
183
like(
184
184
exception {
185
185
$redis -> info;
186
186
},
187
187
qr / Command "info" not allowed after "multi" command/ ,
188
- " not allowed after multi ; INFO" ,
188
+ " not allowed after MULTI command ; INFO" ,
189
189
);
190
190
191
191
like(
192
192
exception {
193
193
$redis -> select(2);
194
194
},
195
195
qr / Command "select" not allowed after "multi" command/ ,
196
- " not allowed after multi ; SELECT" ,
196
+ " not allowed after MULTI command ; SELECT" ,
197
197
);
198
198
199
199
like(
200
200
exception {
201
201
$redis -> quit;
202
202
},
203
203
qr / Command "quit" not allowed after "multi" command/ ,
204
- " not allowed after multi ; QUIT" ,
204
+ " not allowed after MULTI command ; QUIT" ,
205
205
);
206
206
207
207
$redis -> disconnect;
0 commit comments