From: Rafael Kitover Date: Wed, 15 Apr 2009 13:47:53 +0000 (+0000) Subject: duplicate X-Git-Tag: v0.08100~3 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a997886f200a00268a5967822ff04c7f7fb318c8;p=dbsrgits%2FDBIx-Class.git duplicate --- diff --git a/t/32connect_hash.t b/t/32connect_hash.t deleted file mode 100644 index cf8e8fb..0000000 --- a/t/32connect_hash.t +++ /dev/null @@ -1,32 +0,0 @@ -use strict; -use warnings; - -use Test::More; -use lib qw(t/lib); -use DBICTest; - -plan tests => 1; - -# Set up the "usual" sqlite for DBICTest -my $normal_schema = DBICTest->init_schema( sqlite_use_file => 1 ); - -my @connect_info = @{ $normal_schema->storage->_dbi_connect_info }; - -my %connect_info = ( - dsn => $connect_info[0], - user => $connect_info[1], - password => $connect_info[2], - %{ $connect_info[3] }, - AutoCommit => 1, - cursor_class => 'DBIx::Class::Storage::DBI::Cursor' -); - -# Make sure we have no active connection -$normal_schema->storage->disconnect; - -# Make a new clone with a new connection, using a hash reference -my $hash_schema = $normal_schema->connect(\%connect_info); - -# Stolen from 60core.t - this just verifies things seem to work at all -my @art = $hash_schema->resultset("Artist")->search({ }, { order_by => 'name DESC'}); -cmp_ok(@art, '==', 3, "Three artists returned");