[Catalyst-commits] r12658 - in CatalystX-CRUD/CatalystX-CRUD/trunk: . t

karpet at dev.catalyst.perl.org karpet at dev.catalyst.perl.org
Fri Jan 15 07:03:48 GMT 2010


Author: karpet
Date: 2010-01-15 07:03:48 +0000 (Fri, 15 Jan 2010)
New Revision: 12658

Modified:
   CatalystX-CRUD/CatalystX-CRUD/trunk/MANIFEST
   CatalystX-CRUD/CatalystX-CRUD/trunk/t/02-controller.t
Log:
tidy only

Modified: CatalystX-CRUD/CatalystX-CRUD/trunk/MANIFEST
===================================================================
--- CatalystX-CRUD/CatalystX-CRUD/trunk/MANIFEST	2010-01-15 07:03:31 UTC (rev 12657)
+++ CatalystX-CRUD/CatalystX-CRUD/trunk/MANIFEST	2010-01-15 07:03:48 UTC (rev 12658)
@@ -23,11 +23,13 @@
 t/02-controller.t
 t/03-rest.t
 t/04-query.t
+t/05-pks.t
 t/boilerplate.t
 t/lib/MyApp.pm
 t/lib/MyApp/Controller/Root.pm
 t/lib/MyApp/Controller/File.pm
 t/lib/MyApp/Controller/FileAdapter.pm
+t/lib/MyApp/Controller/FileAdapterMultiPK.pm
 t/lib/MyApp/Controller/FetchRewrite.pm
 t/lib/MyApp/Controller/REST/File.pm
 t/lib/MyApp/Controller/Search.pm

Modified: CatalystX-CRUD/CatalystX-CRUD/trunk/t/02-controller.t
===================================================================
--- CatalystX-CRUD/CatalystX-CRUD/trunk/t/02-controller.t	2010-01-15 07:03:31 UTC (rev 12657)
+++ CatalystX-CRUD/CatalystX-CRUD/trunk/t/02-controller.t	2010-01-15 07:03:48 UTC (rev 12658)
@@ -1,20 +1,20 @@
-use Test::More tests => 7 ;
+use Test::More tests => 7;
 use strict;
 
 use_ok('CatalystX::CRUD::Controller');
-ok(my $controller = CatalystX::CRUD::Controller->new, "new controller");
-is($controller->page_size, 50, 'default page_size');
-ok($controller->page_size(10), "set page_size");
-is($controller->page_size, 10, "get page_size");
+ok( my $controller = CatalystX::CRUD::Controller->new( 'MyApp', {} ),
+    "new controller" );
+is( $controller->page_size, 50, 'default page_size' );
+ok( $controller->page_size(10), "set page_size" );
+is( $controller->page_size, 10, "get page_size" );
 
 {
+
     package MyC;
-    @MyC::ISA = ( 'CatalystX::CRUD::Controller' );
+    @MyC::ISA = ('CatalystX::CRUD::Controller');
     MyC->config( page_size => 30 );
 }
 
-ok( my $myc = MyC->new,  "new MyC");
-is( $myc->page_size, 30, "set page_size in package config");
+ok( my $myc = MyC->new( 'MyApp', {} ), "new MyC" );
+is( $myc->page_size, 30, "set page_size in package config" );
 
-
-




More information about the Catalyst-commits mailing list