view release on metacpan or  search on metacpan

t/05-exceptions.t  view on Meta::CPAN

use 5.008000;
use strict;
use warnings;

use Test::More tests => 7;
use Test::Fatal;
BEGIN {
  require 't/test_helper.pl';
}

t_startup_nodes();
t_refresh_interval();


sub t_startup_nodes {
  like(
    exception {
      my $cluster = AnyEvent::RipeRedis::Cluster->new();
    },
    qr/Startup nodes not specified/,
    'startup nodes not specified'
  );

  like(
    exception {
      my $cluster = AnyEvent::RipeRedis::Cluster->new(
        startup_nodes => {},
      );
    },
    qr/Startup nodes must be specified as array reference/,
    'startup nodes in invalid format (hash reference)'
  );

  like(
    exception {
      my $cluster = AnyEvent::RipeRedis::Cluster->new(
        startup_nodes => [],
      );
    },
    qr/Specified empty list of startup nodes/,
    'empty list of startup nodes'
  );
}

sub t_refresh_interval {
  like(
    exception {
      my $cluster = new_cluster(
        refresh_interval => 'invalid',
      );
    },
    qr/"refresh_interval" must be a positive number/,
    'invalid refresh interval (character string; constructor)'
  );

  like(
    exception {
      my $cluster = new_cluster(
        refresh_interval => -5,
      );
    },
    qr/"refresh_interval" must be a positive number/,
    'invalid refresh interval (negative number; constructor)'
  );

  my $cluster = new_cluster();