Skip Menu |
 
rt.cpan.org will be shut down on March 1st, 2021.

This queue is for tickets about the DBM-Deep CPAN distribution.

Report information
The Basics
Id: 82453
Status: new
Priority: 0/
Queue: DBM-Deep

People
Owner: Nobody in particular
Requestors: CHORNY [...] cpan.org
Cc:
AdminCc:

Bug Information
Severity: Wishlist
Broken in: 2.0008
Fixed in: (no value)



Subject: [patch] use Test::Database for mysql data
Download (untitled) / with headers
text/plain 118b
Patch assumes that if mysql data is available, user want to run mysql tests. -- Alexandr Ciornii, http://chorny.net
Subject: Build.PL.patch
Download Build.PL.patch
text/x-diff 1.1k
--- Build.PL.dist 2012-06-17 22:58:48.000000000 +0300 +++ Build.PL 2013-01-05 14:21:44.531250000 +0200 @@ -84,9 +84,13 @@ } } +my $mysql_testdb = eval { require Test::Database;my @db_handles = Test::Database->handles('mysql');$db_handles[0] }; if ( $build->features( 'mysql_engine' ) ) { - if ( $build->y_n( "Run the tests against the DBI engine via MySQL?", 'n' ) ) { + if ( $mysql_testdb or $build->y_n( "Run the tests against the DBI engine via MySQL?", 'n' ) ) { my ($dsn, $user, $pass) = ('') x 3; + if ($mysql_testdb) { + ($dsn, $user, $pass) = ($mysql_testdb->dsn(), $mysql_testdb->username(), $mysql_testdb->password()); + } else { $dsn = $build->prompt( "\tWhat is the full DSN (for example 'dbi:mysql:test')" ); if ( $dsn ) { $user = $build->prompt( "\tWhat is the username?" ); @@ -94,6 +98,7 @@ $pass = $build->prompt( "\tWhat is the password?" ); } } + } $build->notes( 'TEST_MYSQL_DSN' => $dsn ); $build->notes( 'TEST_MYSQL_USER' => $user );


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.