115 lines
4.0 KiB
Perl
115 lines
4.0 KiB
Perl
--- Build.PL.orig 2016-11-06 03:59:41 UTC
|
|
+++ Build.PL
|
|
@@ -226,7 +226,6 @@ my $build = Bio::Root::Build->new(
|
|
|
|
build_requires => {
|
|
'Module::Build' => 0.42,
|
|
- 'CPAN' => 1.81,
|
|
'Test::Harness' => 2.62,
|
|
'Test::Most' => 0,
|
|
'URI::Escape' => 0
|
|
@@ -413,101 +412,8 @@ sub test_biodbgff {
|
|
|
|
sub prompt_for_biodb {
|
|
my $accept = shift;
|
|
- my $proceed = $accept ? 0 : $build->y_n(
|
|
- "Do you want to run the Bio::DB::GFF or "
|
|
- . "Bio::DB::SeqFeature::Store live database tests? " . "y/n",
|
|
- 'n'
|
|
- );
|
|
-
|
|
- if ($proceed) {
|
|
- my @driver_choices;
|
|
- foreach my $poss ( 'SQLite', 'mysql', 'Pg', 'Oracle' ) {
|
|
- if ( grep {/$poss/i} @drivers ) {
|
|
- my $choice = $poss;
|
|
- $choice =~ s/^(.)/[$1]/;
|
|
- push( @driver_choices, $choice );
|
|
- }
|
|
- }
|
|
-
|
|
- my $driver;
|
|
- if ( @driver_choices > 1 ) {
|
|
- my ($default) = $driver_choices[0] =~ /\[(.)/;
|
|
- $driver = $build->prompt(
|
|
- "Which database driver should be used? "
|
|
- . join( " ", @driver_choices ),
|
|
- $default
|
|
- );
|
|
- } else {
|
|
- ($driver) = $driver_choices[0] =~ /\[(.)/;
|
|
- }
|
|
- if ( $driver =~ /^[mM]/ ) {
|
|
- $driver = 'mysql';
|
|
- } elsif ( $driver =~ /^[pP]/ ) {
|
|
- $driver = 'Pg';
|
|
- } elsif ( $driver =~ /^[oO]/ ) {
|
|
- $driver = 'Oracle';
|
|
- } elsif ( $driver =~ /^[sS]/ ) {
|
|
- $driver = 'SQLite';
|
|
- }
|
|
-
|
|
- my $test_db = $build->prompt(
|
|
- "Which database should I use for testing the $driver driver?\n"
|
|
- . "This database should already be present but doesn't have to "
|
|
- . "be preloaded for any schema",
|
|
- 'test'
|
|
- );
|
|
- my $test_host = $build->prompt(
|
|
- "On which host is database '$test_db' running (hostname, ip address or host:port)",
|
|
- 'localhost'
|
|
- );
|
|
- my $test_user = $build->prompt(
|
|
- "User name for connecting to database '$test_db'?", 'undef' );
|
|
- my $test_pass = $build->prompt(
|
|
- "Password for connecting to database '$test_db'?", 'undef' );
|
|
-
|
|
- my $use_host = 1;
|
|
- if ( $test_host eq 'undef' || $test_host eq 'localhost' ) {
|
|
- $use_host = 0;
|
|
- }
|
|
-
|
|
- my $test_dsn;
|
|
- if ( $driver eq 'Pg' || $driver eq 'SQLite' ) {
|
|
- $test_dsn = "dbi:$driver:dbname=$test_db";
|
|
- $mysql_ok = 0;
|
|
- } else {
|
|
- $test_dsn = "dbi:$driver:database=$test_db";
|
|
- $mysql_ok = 0;
|
|
- }
|
|
- if ($use_host) {
|
|
- $test_dsn .= ";host=$test_host";
|
|
- }
|
|
-
|
|
- $build->notes( dbd_driver => $driver );
|
|
- $build->notes( test_db => $test_db );
|
|
- $build->notes( test_host => $test_host );
|
|
- $build->notes(
|
|
- test_user => $test_user eq 'undef' ? undef : $test_user );
|
|
- $build->notes(
|
|
- test_pass => $test_pass eq 'undef' ? undef : $test_pass );
|
|
- $build->notes( test_dsn => $test_dsn );
|
|
-
|
|
- $build->log_info(
|
|
- " - will run tests with database driver '$driver' and these settings:\n",
|
|
- " Database $test_db\n",
|
|
- " Host $test_host\n",
|
|
- " DSN $test_dsn\n",
|
|
- " User $test_user\n",
|
|
- " Password $test_pass\n"
|
|
- );
|
|
- $build->log_info( " - will not run the BioDBSeqFeature live "
|
|
- . "database tests (requires MySQL or Pg driver)\n" )
|
|
- unless ( $driver eq 'mysql' or $driver eq 'Pg' );
|
|
- } else {
|
|
- $build->log_info(
|
|
- " - will not run the BioDBGFF or BioDBSeqFeature live database tests\n"
|
|
- );
|
|
- }
|
|
-
|
|
+ my $proceed = 0;
|
|
+ $build->log_info(" - will not run the BioDBGFF or BioDBSeqFeature live database tests\n");
|
|
$build->log_info("\n");
|
|
return $proceed;
|
|
}
|