date:20111204

Re: [Catalyst] Re: Catalyst::Test Test::DBIx::Class

2011-12-04 Thread Tomas Doran



On 4 Dec 2011, at 04:13, Jason Galea wrote:

hmm.. actually.. can I hand Catalyst::Test the schema I can get from  
Test::DBIx::Class?


I think you can just force replace the schema, with something like  
MyApp-model('DB')-schema($mytestschema);


Alternatively, you can setup a test config (by writing out a config  
file with the extra DB details in) before using Catalyst::Test  
(although N.B. that use Catalyst::Test will happen at compile time, so  
you probably need the initial setup in a BEGIN block).


Cheers
t0m


___
List: Catalyst@lists.scsys.co.uk
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/catalyst@lists.scsys.co.uk/
Dev site: http://dev.catalyst.perl.org/

Re: [Catalyst] Re: Catalyst::Test Test::DBIx::Class

2011-12-04 Thread Dimitar Petrov

You might want to check this blog post also:
http://www.modernperlbooks.com/mt/2011/11/parallelism-and-test-suites.html

Cheers

On Sun, Dec 4, 2011 at 10:49 AM, Jason Galea li...@eightdegrees.com.auwrote:

 On Sun, Dec 4, 2011 at 7:10 PM, Tomas Doran bobtf...@bobtfish.net wrote:


 On 4 Dec 2011, at 04:13, Jason Galea wrote:

  hmm.. actually.. can I hand Catalyst::Test the schema I can get from
 Test::DBIx::Class?


 I think you can just force replace the schema, with something like
 MyApp-model('DB')-schema($**mytestschema);


 yup, works a treat.. thanks again.

 $ prove t
 ...
 All tests successful.
 Files=6, Tests=90, 27 wallclock secs ( 0.07 usr  0.02 sys +  9.87 cusr
  1.14 csys = 11.10 CPU)

 Result: PASS

 $ prove -j9 t
 ...
 All tests successful.
 Files=6, Tests=90,  8 wallclock secs ( 0.06 usr  0.01 sys + 11.24 cusr
  1.34 csys = 12.65 CPU)

 Result: PASS

 woohoo!





 Alternatively, you can setup a test config (by writing out a config file
 with the extra DB details in) before using Catalyst::Test (although N.B.
 that use Catalyst::Test will happen at compile time, so you probably need
 the initial setup in a BEGIN block).

 Cheers
 t0m


 __**_
 List: Catalyst@lists.scsys.co.uk
 Listinfo: 
 http://lists.scsys.co.uk/cgi-**bin/mailman/listinfo/catalysthttp://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
 Searchable archive: http://www.mail-archive.com/**
 catalyst@lists.scsys.co.uk/http://www.mail-archive.com/catalyst@lists.scsys.co.uk/
 Dev site: http://dev.catalyst.perl.org/




 ___
 List: Catalyst@lists.scsys.co.uk
 Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
 Searchable archive:
 http://www.mail-archive.com/catalyst@lists.scsys.co.uk/
 Dev site: http://dev.catalyst.perl.org/


___
List: Catalyst@lists.scsys.co.uk
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/catalyst@lists.scsys.co.uk/
Dev site: http://dev.catalyst.perl.org/

Re: [Catalyst] Re: Catalyst::Test Test::DBIx::Class

2011-12-04 Thread Jason Galea

On Sun, Dec 4, 2011 at 7:59 PM, Dimitar Petrov mita...@gmail.com wrote:

 You might want to check this blog post also:
 http://www.modernperlbooks.com/mt/2011/11/parallelism-and-test-suites.html


thanks, but that's what got me into this mess.. well
http://www.modernperlbooks.com/mt/2011/12/controlling-test-parallelism-with-prove.html
which
also links to that..

ok, actually I've tidied up the mess and I'm rather pleased with how it
looks.. I'm going to have a lot more tests than this by the time I'm
finished so I think it's been well worth the effort.. (note the wallclock
secs)

$ prove Lecstor/t BB/t BB-Site-Catalyst/t aid_proxy/AID-Proxy/t
...
All tests successful.
Files=29, Tests=369, 109 wallclock secs ( 0.15 usr  0.04 sys + 26.25 cusr
 4.36 csys = 30.80 CPU)


$ prove -j9 Lecstor/t BB/t BB-Site-Catalyst/t aid_proxy/AID-Proxy/t
...
All tests successful.
Files=29, Tests=369, 19 wallclock secs ( 0.18 usr  0.04 sys + 34.14 cusr
 4.98 csys = 39.34 CPU)


cheers,

J



 Cheers

 On Sun, Dec 4, 2011 at 10:49 AM, Jason Galea li...@eightdegrees.com.auwrote:

 On Sun, Dec 4, 2011 at 7:10 PM, Tomas Doran bobtf...@bobtfish.netwrote:


 On 4 Dec 2011, at 04:13, Jason Galea wrote:

  hmm.. actually.. can I hand Catalyst::Test the schema I can get from
 Test::DBIx::Class?


 I think you can just force replace the schema, with something like
 MyApp-model('DB')-schema($**mytestschema);


 yup, works a treat.. thanks again.

 $ prove t
 ...
 All tests successful.
 Files=6, Tests=90, 27 wallclock secs ( 0.07 usr  0.02 sys +  9.87 cusr
  1.14 csys = 11.10 CPU)

 Result: PASS

 $ prove -j9 t
 ...
 All tests successful.
 Files=6, Tests=90,  8 wallclock secs ( 0.06 usr  0.01 sys + 11.24 cusr
  1.34 csys = 12.65 CPU)

 Result: PASS

 woohoo!





 Alternatively, you can setup a test config (by writing out a config
 file with the extra DB details in) before using Catalyst::Test (although
 N.B. that use Catalyst::Test will happen at compile time, so you probably
 need the initial setup in a BEGIN block).

 Cheers
 t0m


 __**_
 List: Catalyst@lists.scsys.co.uk
 Listinfo: 
 http://lists.scsys.co.uk/cgi-**bin/mailman/listinfo/catalysthttp://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
 Searchable archive: http://www.mail-archive.com/**
 catalyst@lists.scsys.co.uk/http://www.mail-archive.com/catalyst@lists.scsys.co.uk/
 Dev site: http://dev.catalyst.perl.org/




 ___
 List: Catalyst@lists.scsys.co.uk
 Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
 Searchable archive:
 http://www.mail-archive.com/catalyst@lists.scsys.co.uk/
 Dev site: http://dev.catalyst.perl.org/



 ___
 List: Catalyst@lists.scsys.co.uk
 Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
 Searchable archive:
 http://www.mail-archive.com/catalyst@lists.scsys.co.uk/
 Dev site: http://dev.catalyst.perl.org/


___
List: Catalyst@lists.scsys.co.uk
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/catalyst@lists.scsys.co.uk/
Dev site: http://dev.catalyst.perl.org/

Re: [Catalyst] YA CRUD module

2011-12-04 Thread David Schmidt

Hi t0m

I am currently stuck at configuring/applying roles via TestApp::config

I want to apply the role via catalyst config in MyApp.pm

__PACKAGE__-config(
   'Controller::Resource' = {
  resultset_key = 'cds_rs',
  resources_key = 'cds',
  resource_key = 'cd',
  model = 'DB::CDs',
  traits = ['
 '+CatalystX::Controller::TraitFor::Resource',
 '+CatalystX::Controller::TraitFor::Role::List',
  ],
   },
);

Using 'CatalystX::Component::Traits'; I get a test to run when I only
apply the Resource trait. But once I add the List role the following
error appears.

$ prove -l t/04_with_role.t
t/04_with_role.t .. Couldn't instantiate component
TestApp::Controller::Root,
'CatalystX::TraitFor::Controller::Resource|CatalystX::TraitFor::Controller::Role::List'
requires the methods 'resources_key' and 'resultset_key' to be
implemented by 'Moose::Meta::Class::__ANON__::SERIAL::11' at
/usr/local/lib/perl/5.10.1/Moose/Meta/Role/Application.pm line 53

Moose::Meta::Role::Application::apply('Moose::Meta::Role::Application::ToClass=HASH(0xa3732a0)',
'Moose::Meta::Class::__ANON__::SERIAL::12=HASH(0xa3684e8)',
'Moose::Meta::Class::__ANON__::SERIAL::5=HASH(0xa355838)') called at
/usr/local/lib/perl/5.10.1/Moose/Meta/Role/Application/ToClass.pm line
33

Moose::Meta::Role::Application::ToClass::apply('Moose::Meta::Role::Application::ToClass=HASH(0xa3732a0)',
'Moose::Meta::Class::__ANON__::SERIAL::12=HASH(0xa3684e8)',
'Moose::Meta::Class::__ANON__::SERIAL::5=HASH(0xa355838)',
'HASH(0xa3813e8)') called at
/usr/local/lib/perl/5.10.1/Moose/Meta/Role.pm line 482

Moose::Meta::Role::apply('Moose::Meta::Class::__ANON__::SERIAL::12=HASH(0xa3684e8)',
'Moose::Meta::Class::__ANON__::SERIAL::5=HASH(0xa355838)') called at
/usr/local/share/perl/5.10.1/MooseX/MethodAttributes/Role/Meta/Role/Application.pm
line 26
Class::MOP::Class:::around('CODE(0x9966858)',
'Moose::Meta::Class::__ANON__::SERIAL::12=HASH(0xa3684e8)',
'Moose::Meta::Class::__ANON__::SERIAL::5=HASH(0xa355838)') called at
/usr/local/lib/perl/5.10.1/Class/MOP/Method/Wrapped.pm line 161

Class::MOP::Method::Wrapped::__ANON__('Moose::Meta::Class::__ANON__::SERIAL::12=HASH(0xa3684e8)',
'Moose::Meta::Class::__ANON__::SERIAL::5=HASH(0xa355838)') called at
/usr/local/lib/perl/5.10.1/Class/MOP/Method/Wrapped.pm line 91

Moose::Meta::Class::__ANON__::SERIAL::12::apply('Moose::Meta::Class::__ANON__::SERIAL::12=HASH(0xa3684e8)',
'Moose::Meta::Class::__ANON__::SERIAL::5=HASH(0xa355838)') called at
/usr/local/lib/perl/5.10.1/Moose/Util.pm line 157

Moose::Util::_apply_all_roles('Moose::Meta::Class::__ANON__::SERIAL::5=HASH(0xa355838)',
undef, 'CatalystX::TraitFor::Controller::Resource',
'CatalystX::TraitFor::Controller::Role::List') called at
/usr/local/lib/perl/5.10.1/Moose/Util.pm line 93

Moose::Util::apply_all_roles('Moose::Meta::Class::__ANON__::SERIAL::5=HASH(0xa355838)',
'CatalystX::TraitFor::Controller::Resource',
'CatalystX::TraitFor::Controller::Role::List') called at
/usr/local/lib/perl/5.10.1/Moose/Meta/Class.pm line 98

Moose::Meta::Class::create('Moose::Meta::Class::__ANON__::SERIAL::5=HASH(0xa2f59a0)',
'Moose::Meta::Class::__ANON__::SERIAL::11', 'roles',
'ARRAY(0xa33d798)', 'weaken', '', 'superclasses', 'ARRAY(0x9ba6ac8)')
called at /usr/local/lib/perl/5.10.1/Class/MOP/Package.pm line 121

Class::MOP::Package::create_anon('Moose::Meta::Class::__ANON__::SERIAL::5=HASH(0xa2f59a0)',
'superclasses', 'ARRAY(0x9ba6ac8)', 'roles', 'ARRAY(0xa33d798)',
'cache', 1) called at /usr/local/lib/perl/5.10.1/Class/MOP/Class.pm
line 473

Class::MOP::Class::create_anon_class('Moose::Meta::Class::__ANON__::SERIAL::5=HASH(0xa2f59a0)',
'superclasses', 'ARRAY(0x9ba6ac8)', 'roles', 'ARRAY(0xa33d798)',
'cache', 1) called at
/usr/local/share/perl/5.10.1/MooseX/Traits/Pluggable.pm line 120

MooseX::Traits::Pluggable::_build_instance_with_traits('TestApp::Controller::Root',
'TestApp::Controller::Root', 'TestApp') called at
/usr/local/share/perl/5.10.1/MooseX/Traits/Pluggable.pm line 97
MooseX::Traits::Pluggable::new_with_traits('TestApp::Controller::Root',
'TestApp', 'HASH(0xa301858)') called at
/usr/local/share/perl/5.10.1/CatalystX/Component/Traits.pm line 145
CatalystX::Component::Traits::COMPONENT('TestApp::Controller::Root',
'TestApp', 'HASH(0xa1306b8)') called at
/usr/local/share/perl/5.10.1/Catalyst.pm line 2525
eval {...} called at /usr/local/share/perl/5.10.1/Catalyst.pm line 2525
Catalyst::setup_component('TestApp',
'TestApp::Controller::Root') called at
/usr/local/share/perl/5.10.1/Catalyst.pm line 2452
Catalyst::setup_components('TestApp') called at
/usr/local/share/perl/5.10.1/Catalyst.pm line 1179
Catalyst::setup('TestApp') called at
/home/david/CatalystX-TraitFor-Controller-Resource/t/lib/TestApp.pm
line 24
require TestApp.pm called at t/04_with_role.t line 9
main::BEGIN() called at

[Catalyst] Single-domain multi-shop, multi-gateway; linked to the one shopping-cart

2011-12-04 Thread Alec Taylor

Good afternoon,

How would I go about building a single-domain multi-shop with
multiple-gateways; linked to the one shopping-cart; using Catalyst?

Thanks for all suggestions,

Alec Taylor

___
List: Catalyst@lists.scsys.co.uk
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/catalyst@lists.scsys.co.uk/
Dev site: http://dev.catalyst.perl.org/

Re: [Catalyst] Re: Catalyst::Test Test::DBIx::Class

Re: [Catalyst] Re: Catalyst::Test Test::DBIx::Class

Re: [Catalyst] Re: Catalyst::Test Test::DBIx::Class

Re: [Catalyst] YA CRUD module

[Catalyst] Single-domain multi-shop, multi-gateway; linked to the one shopping-cart

5 matches

Site Navigation

Mail list logo

Footer information