t/replpolicy-parsing.t

   1 # -*-perl-*-
   2
   3 use strict;
   4 use warnings;
   5 use Test::More;
   6 use FindBin qw($Bin);
   7 use Data::Dumper;
   8
   9 use MogileFS::Server;
  10 use MogileFS::Util qw(error_code);
  11 use MogileFS::Test;
  12
  13 plan tests => 31;
  14
  15 my $obj;
  16
  17 $obj = MogileFS::ReplicationPolicy->new_from_policy_string("MultipleHosts(5)");
  18 isa_ok($obj, "MogileFS::ReplicationPolicy::MultipleHosts", "got a multiple hosts policy")
  19     or die "can't proceed";
  20 is($obj->mindevcount, 5, "got correct devcount");
  21
  22 $obj = MogileFS::ReplicationPolicy->new_from_policy_string("MultipleHosts()");
  23 isa_ok($obj, "MogileFS::ReplicationPolicy::MultipleHosts", "got a multiple hosts policy")
  24     or die "can't proceed";
  25
  26 foreach my $str ("Union(MultipleHosts(5), MultipleHosts(2))",
  27                  "Union(MultipleHosts(5), MultipleHosts(2), )",
  28                  "Union( MultipleHosts(5), MultipleHosts(2) )",
  29                  "Union(MultipleHosts(  5),MultipleHosts(2))",
  30                  "Union ( MultipleHosts ( 5 ) , MultipleHosts ( 2 ) )",
  31                  "Union ( MultipleHosts ( 5 ) ,\n MultipleHosts ( 2 ) )",
  32                  "Union ( MultipleHosts ( 5 ) , \n MultipleHosts ( 2 ), )",
  33                  )
  34 {
  35     $obj = MogileFS::ReplicationPolicy->new_from_policy_string($str);
  36     isa_ok($obj, "MogileFS::ReplicationPolicy::Union") or die "Failed to parse: $str";
  37     is(scalar @{$obj->{policies}}, 2, "got 2 sub policies");
  38     isa_ok($obj->{policies}[0], "MogileFS::ReplicationPolicy::MultipleHosts");
  39     isa_ok($obj->{policies}[1], "MogileFS::ReplicationPolicy::MultipleHosts");
  40 }
  41
  42