Changeset 32675

Timestamp:

04/21/09 04:01:07 (4 years ago)

Author:

ktat

Message:

fix typo

Location:

lang/perl/Util-Any/trunk

Files:

• lib/Util/Any.pm (modified) (1 diff)
• t/01-util.t (modified) (2 diffs)

lang/perl/Util-Any/trunk/lib/Util/Any.pm

@@ -112 +112 @@
 sub _insert_want_arg {
   my ($config, $kind, $setting, $want, $arg) = @_;
-  my $kind = lc $f;
+  $kind = lc $kind;
   exists $config->{$kind} ?
     $want->{$kind} = $setting:

lang/perl/Util-Any/trunk/t/01-util.t

@@ -2 +2 @@
 use Util::Any ();
 use strict;
+use Data::Dumper;
 
 require Cwd;
@@ -12 +13 @@
 is_deeply(\@funcs, \@cwd_funcs);
 
+my @tests = (
+             [
+              [ [list => ['any', 'uniq']], {} ],
+              [ [], {list => ['any', 'uniq']} ],
+             ],
+             [
+              [ [ scalar => [camelcase => { -as => 'cl' } ], qw/hoge fuga/], {} ],
+              [ [qw/hoge fuga/], {scalar => [camelcase => {-as => 'cl'}]} ],
+             ],
+             [
+              [ [ scalar => [camelcase => { -as => 'cl' }],
+                  list   => [uniq      => {-as => 'unique'}, 'any', 'max', shuffle => {-as => 'mix'}, 'min' ],
+                  qw/aaa  bbb  dcc/,
+                ], {} ],
+              [ [qw/aaa bbb dcc/],
+                {scalar => [camelcase => {-as => 'cl'}],
+                 list   => [uniq => {-as => 'unique'}, 'any', 'max',
+                            shuffle => {-as => 'mix'}, 'min'
+                           ],
+                } ],
+             ],
+             [
+              [ [ scalar => {-prefix => 'sc_'}], {} ],
+              [ [], {scalar => {-prefix => 'sc_'}} ],
+             ],
+            );
+
+for my $test (@tests) {
+  my ($args, $config) = (@{$test->[0]});
+  my $ret = $test->[1];
+  my ($arg, $want) = Util::Any->_arrange_args($args, $Util::Any::Utils, 'main');
+  is_deeply($arg,  $ret->[0]);
+  is_deeply($want, $ret->[1]);
+}
+