Changeset 27277 for lang

Timestamp:

12/23/08 13:25:39 (4 years ago)

Author:

nekokak

Message:

alias と columnを逆にした

Location:

lang/perl/DBIx-Skinny/trunk

Files:

• lib/DBIx/Skinny.pm (modified) (1 diff)
• t/04_count.t (modified) (2 diffs)

lang/perl/DBIx-Skinny/trunk/lib/DBIx/Skinny.pm

@@ -95 +95 @@
     );
 
-    my ($column, $alias) = each %$args;
+    my ($alias, $column) = each %$args;
     $rs->add_select("COUNT($column)" =>  $alias);
     $class->_add_where($rs, $where);

lang/perl/DBIx-Skinny/trunk/t/04_count.t

@@ -18 +18 @@
             name => 'perl',
         });
-        my $row = Mock->count('tag' => {id => 'count'});
+        my $row = Mock->count('tag' => {count => 'id'});
         is $row->count, 1;
 
@@ -25 +25 @@
             name => 'ruby',
         });
-        $row = Mock->count('tag' => {id => 'count'});
+        $row = Mock->count('tag' => {count => 'id'});
         is $row->count, 2;
 
-        $row = Mock->count('tag' => {id => 'count'},{name => 'perl'});
+        $row = Mock->count('tag' => {count => 'id'},{name => 'perl'});
         is $row->count, 1;
     };