[Catalyst] Run catalyst tests against another database

[John Atzger]

I want my Catalyst tests to run against a test database.  I wrote this:
  package MyApp::Model::DB;  use strict;  use base 'Catalyst::Model::DBIC::=
Schema';
  BEGIN {    require MyApp;    my $db =3D $ENV{HARNESS_ACTIVE} ? 'test' : '=
myapp';    my $config =3D MyApp->config->{database}{$db};
    __PACKAGE__->config(                schema_class =3D> 'MyApp::Schema', =
       connect_info =3D> {           dsn =3D> $config->{dsn},          user=
 =3D> $config->{user},          password =3D> $config->{password},    );  }
I don't want test information in my code. How do people do this?
Thanks,Jatzger 		 	   		  =

_________________________________________________________________
Hotmail: Free, trusted and rich email service.
http://clk.atdmt.com/GBL/go/201469228/direct/01/
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.scsys.co.uk/pipermail/catalyst/attachments/20100206/bef16=
1c8/attachment.htm