Unit tests improved. Prepared to release

Author: iph0

Changes

@@ -1,5 +1,12 @@
 Revision history for AnyEvent::RipeRedis.
 
+0.22 Tue Aug 30 19:51:25 MSK 2016
+  - Unit tests improved.
+
+0.20 Tue Aug 30 19:20:30 MSK 2016
+  - Minor changes in POD.
+  - Cosmetic changes in tests.
+
 0.18 Tue Aug 30 11:03:25 MSK 2016
   - Added link to AnyEvent::RipeRedis::Cluster in POD.
 

README

@@ -1,4 +1,4 @@
-AnyEvent-RipeRedis version 0.20
+AnyEvent-RipeRedis version 0.22
 ======================
 
 INSTALLATION

lib/AnyEvent/RipeRedis.pm

@@ -5,7 +5,7 @@ use strict;
 use warnings;
 use base qw( Exporter );
 
-our $VERSION = '0.20';
+our $VERSION = '0.22';
 
 use AnyEvent::RipeRedis::Error;
 

lib/AnyEvent/RipeRedis/Error.pm

@@ -4,7 +4,7 @@ use 5.008000;
 use strict;
 use warnings;
 
-our $VERSION = '0.20';
+our $VERSION = '0.22';
 
 our %ERROR_CODES = (
   E_CANT_CONN                  => 1,

t/04-commands.t

@@ -60,7 +60,7 @@ t_multiword_command($redis);
 t_error_reply($redis);
 t_default_on_error($redis);
 t_error_after_exec($redis);
-t_discard($redis);
+t_discard_method($redis);
 t_execute_method($redis);
 t_quit($redis);
 
@@ -692,7 +692,7 @@ sub t_error_after_exec {
   return;
 }
 
-sub t_discard {
+sub t_discard_method {
   my $redis = shift;
 
   my $t_reply;
@@ -732,7 +732,7 @@ sub t_discard {
     }
   );
 
-  is( $t_reply, 'OK', 'DISCARD' );
+  is( $t_reply, 'OK', 'discard method' );
 
   return;
 }

t/09-conn-errors.t

@@ -12,10 +12,8 @@ t_cant_connect();
 t_no_connection();
 t_reconnection();
 t_read_timeout();
-
-t_premature_conn_close_mth1();
-t_premature_conn_close_mth2();
-
+t_premature_disconnect();
+t_premature_destroy();
 t_subscription_lost();
 
 
@@ -295,7 +293,7 @@ sub t_read_timeout {
   return;
 }
 
-sub t_premature_conn_close_mth1 {
+sub t_premature_disconnect {
   my $t_cli_err;
   my $t_cmd_err;
 
@@ -314,7 +312,7 @@ sub t_premature_conn_close_mth1 {
 
   $redis->disconnect;
 
-  my $t_npref = 'premature connection close; disconnect() used';
+  my $t_npref = 'premature disconnect';
   isa_ok( $t_cli_err, 'AnyEvent::RipeRedis::Error' );
   is( $t_cli_err->message, 'Connection closed by client prematurely.',
       "$t_npref; client error message" );
@@ -328,7 +326,7 @@ sub t_premature_conn_close_mth1 {
   return;
 }
 
-sub t_premature_conn_close_mth2 {
+sub t_premature_destroy {
   my $on_error_was_called = 0;
   my $t_cmd_err_msg;
 
@@ -352,7 +350,7 @@ sub t_premature_conn_close_mth2 {
 
   undef $redis;
 
-  my $t_npref = 'premature connection close; undef() used';
+  my $t_npref = 'premature destroy';
   ok( !$on_error_was_called, "$t_npref; 'on_error' callback ignored" );
   is( $t_cmd_err_msg,
       q{Operation "ping" aborted: Client object destroyed prematurely.},