[Bast-commits] r7244 - DBIx-Class-InflateColumn-FS/1.000/trunk/t

[mo at dev.catalyst.perl.org]

Author: mo
Date: 2009-08-06 16:22:37 +0000 (Thu, 06 Aug 2009)
New Revision: 7244

Modified:
   DBIx-Class-InflateColumn-FS/1.000/trunk/t/01-fs_columns.t
Log:
test added for IC::FS

Modified: DBIx-Class-InflateColumn-FS/1.000/trunk/t/01-fs_columns.t
===================================================================
--- DBIx-Class-InflateColumn-FS/1.000/trunk/t/01-fs_columns.t	2009-08-06 16:18:57 UTC (rev 7243)
+++ DBIx-Class-InflateColumn-FS/1.000/trunk/t/01-fs_columns.t	2009-08-06 16:22:37 UTC (rev 7244)
@@ -1,8 +1,7 @@
-#!perl -wT
 use warnings;
 use strict;
 use DBICx::TestDatabase;
-use Test::More tests => 20;
+use Test::More tests => 21;
 use Path::Class qw/file/;
 use File::Compare;
 use lib qw(t/lib);
@@ -112,3 +111,6 @@
     $book->update;
     is( $book->cover_image, $storage, 'file backikng filename unchanged')
 };
+
+
+ok($schema->resultset('Book')->search(undef, { select => [qw(id)], as => [qw(foo)] })->all);
\ No newline at end of file