git.maemo.org Git - pkg-perl/blob - deb-src/libperl-critic-perl/libperl-critic-perl-1.088/t/14_policy_parameter_behavior_enumeration.t

   1 #!perl
   2
   3 ##############################################################################
   4 #      $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/14_policy_parameter_behavior_enumeration.t $
   5 #     $Date: 2008-06-06 00:48:04 -0500 (Fri, 06 Jun 2008) $
   6 #   $Author: clonezone $
   7 # $Revision: 2416 $
   8 ##############################################################################
   9
  10 use 5.006001;
  11 use strict;
  12 use warnings;
  13
  14 use Test::More tests => 24;
  15 use English qw(-no_match_vars);
  16
  17 use Perl::Critic::Policy;
  18 use Perl::Critic::PolicyParameter;
  19
  20 my $specification;
  21 my $parameter;
  22 my %config;
  23 my $policy;
  24
  25 $specification =
  26     {
  27         name        => 'test',
  28         description => 'An enumeration parameter for testing',
  29         behavior    => 'enumeration',
  30     };
  31
  32
  33 eval { $parameter = Perl::Critic::PolicyParameter->new($specification); };
  34 like(
  35     $EVAL_ERROR,
  36     qr/\b enumeration_values \b/xms,
  37     'exception thrown for missing enumeration_values'
  38 );
  39
  40 $specification->{enumeration_values} = 'cranberries';
  41 eval { $parameter = Perl::Critic::PolicyParameter->new($specification); };
  42 like(
  43     $EVAL_ERROR,
  44     qr/\b enumeration_values \b/xms,
  45     'exception thrown for enumeration_values not being an array reference'
  46 );
  47
  48 $specification->{enumeration_values} = [ ];
  49 eval { $parameter = Perl::Critic::PolicyParameter->new($specification); };
  50 like(
  51     $EVAL_ERROR,
  52     qr/\b enumeration_values \b/xms,
  53     'exception thrown for enumeration_values not having at least two elements'
  54 );
  55
  56 $specification->{enumeration_values} = [ qw{ cranberries } ];
  57 eval { $parameter = Perl::Critic::PolicyParameter->new($specification); };
  58 like(
  59     $EVAL_ERROR,
  60     qr/\b enumeration_values \b/xms,
  61     'exception thrown for enumeration_values not having at least two elements'
  62 );
  63
  64
  65 $specification->{enumeration_values} = [ qw{ mercury gemini apollo } ];
  66
  67 $parameter = Perl::Critic::PolicyParameter->new($specification);
  68 $policy = Perl::Critic::Policy->new();
  69 $parameter->parse_and_validate_config_value($policy, \%config);
  70 is($policy->{_test}, undef, q{no value, no default});
  71
  72 $policy = Perl::Critic::Policy->new();
  73 $config{test} = 'gemini';
  74 $parameter->parse_and_validate_config_value($policy, \%config);
  75 is($policy->{_test}, 'gemini', q{'gemini', no default});
  76
  77 $policy = Perl::Critic::Policy->new();
  78 $config{test} = 'easter_bunny';
  79 eval {$parameter->parse_and_validate_config_value($policy, \%config); };
  80 ok($EVAL_ERROR, q{invalid value});
  81
  82 $specification->{default_string} = 'apollo';
  83 delete $config{test};
  84
  85 $parameter = Perl::Critic::PolicyParameter->new($specification);
  86 $policy = Perl::Critic::Policy->new();
  87 $parameter->parse_and_validate_config_value($policy, \%config);
  88 is($policy->{_test}, 'apollo', q{no value, default 'apollo'});
  89
  90 $policy = Perl::Critic::Policy->new();
  91 $config{test} = 'gemini';
  92 $parameter->parse_and_validate_config_value($policy, \%config);
  93 is($policy->{_test}, 'gemini', q{'gemini', default 'apollo'});
  94
  95
  96 delete $specification->{default_string};
  97 $specification->{enumeration_values} = [ qw{ moore gaiman ellis miller } ];
  98 $specification->{enumeration_allow_multiple_values} = 1;
  99 delete $config{test};
 100
 101 my $values;
 102
 103 $parameter = Perl::Critic::PolicyParameter->new($specification);
 104 $policy = Perl::Critic::Policy->new();
 105 $parameter->parse_and_validate_config_value($policy, \%config);
 106 $values = $policy->{_test};
 107 is( scalar( keys %{$values} ), 0, q{no value, no default} );
 108
 109 $policy = Perl::Critic::Policy->new();
 110 $config{test} = 'moore';
 111 $parameter->parse_and_validate_config_value($policy, \%config);
 112 $values = $policy->{_test};
 113 is( scalar( keys %{$values} ), 1, q{'moore', no default} );
 114 ok( $values->{moore}, q{'moore', no default} );
 115
 116 $policy = Perl::Critic::Policy->new();
 117 $config{test} = 'gaiman miller';
 118 $parameter->parse_and_validate_config_value($policy, \%config);
 119 $values = $policy->{_test};
 120 is( scalar( keys %{$values} ), 2, q{'gaiman miller', no default} );
 121 ok( $values->{gaiman}, q{'gaiman miller', no default} );
 122 ok( $values->{miller}, q{'gaiman miller', no default} );
 123
 124 $policy = Perl::Critic::Policy->new();
 125 $config{test} = 'leeb';
 126 eval {$parameter->parse_and_validate_config_value($policy, \%config); };
 127 ok($EVAL_ERROR, q{invalid value});
 128
 129 $specification->{default_string} = 'ellis miller';
 130 delete $config{test};
 131
 132 $parameter = Perl::Critic::PolicyParameter->new($specification);
 133 $policy = Perl::Critic::Policy->new();
 134 $parameter->parse_and_validate_config_value($policy, \%config);
 135 $values = $policy->{_test};
 136 is( scalar( keys %{$values} ), 2, q{no value, default 'ellis miller'} );
 137 ok( $values->{ellis}, q{no value, default 'ellis miller'} );
 138 ok( $values->{miller}, q{no value, default 'ellis miller'} );
 139
 140 $policy = Perl::Critic::Policy->new();
 141 $config{test} = 'moore';
 142 $parameter->parse_and_validate_config_value($policy, \%config);
 143 $values = $policy->{_test};
 144 is( scalar( keys %{$values} ), 1, q{'moore', default 'ellis miller'} );
 145 ok( $values->{moore}, q{'moore', default 'ellis miller'} );
 146
 147 $policy = Perl::Critic::Policy->new();
 148 $config{test} = 'gaiman miller';
 149 $parameter->parse_and_validate_config_value($policy, \%config);
 150 $values = $policy->{_test};
 151 is( scalar( keys %{$values} ), 2, q{'gaiman miller', default 'ellis miller'} );
 152 ok( $values->{gaiman}, q{'gaiman miller', default 'ellis miller'} );
 153 ok( $values->{miller}, q{'gaiman miller', default 'ellis miller'} );
 154
 155 ###############################################################################
 156 # Local Variables:
 157 #   mode: cperl
 158 #   cperl-indent-level: 4
 159 #   fill-column: 78
 160 #   indent-tabs-mode: nil
 161 #   c-indentation-style: bsd
 162 # End:
 163 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :