[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 = $ENV{HARNESS_ACTIVE} ? 'test' : 
'myapp';    my $config = MyApp->config->{database}{$db};
    __PACKAGE__->config(                schema_class => 'MyApp::Schema',        
connect_info => {           dsn => $config->{dsn},          user => 
$config->{user},          password => $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/
_______________________________________________
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/