mirror of
https://git.FreeBSD.org/ports.git
synced 2025-01-06 06:30:19 +00:00
100 lines
4.0 KiB
Perl
100 lines
4.0 KiB
Perl
--- Build.PL.orig 2009-09-30 00:33:45.000000000 +0800
|
|
+++ Build.PL 2009-12-01 10:25:51.000000000 +0800
|
|
@@ -187,7 +187,6 @@
|
|
},
|
|
|
|
build_requires => {
|
|
- 'CPAN' => 1.81,
|
|
'Module::Build' => 0.2805,
|
|
'Test::Harness' => 2.62,
|
|
'Test::Most' => 0,
|
|
@@ -376,86 +375,8 @@
|
|
|
|
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;
|
|
}
|