[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