bzr commit into mysql-6.0-backup branch (hema:2807) Bug#43909

[Hema Sridharan]

#At file:///export/home/tmp/bug43909/mysql-6.0-backup/ based on revid:ingo.struewing@stripped

 2807 Hema Sridharan	2009-04-02
      BUG#43909. Perl script added that will skip the backup_external_non_win test
      when DBI and DBD modules are not installed in the system
      added:
        mysql-test/suite/backup/include/have_dbi.inc
      modified:
        mysql-test/suite/backup/t/backup_external_non_win.test

=== added file 'mysql-test/suite/backup/include/have_dbi.inc'
--- a/mysql-test/suite/backup/include/have_dbi.inc	1970-01-01 00:00:00 +0000
+++ b/mysql-test/suite/backup/include/have_dbi.inc	2009-04-02 19:50:39 +0000
@@ -0,0 +1,24 @@
+# This script is written in order to skip the test if perl DBI modules are not
+# installed in the system
+
+let TMP_FILE= $MYSQLTEST_VARDIR/tmp/dbi_exists;
+
+perl;
+my $success= 1;
+my $file= $ENV{'TMP_FILE'};
+eval "require DBI";
+eval "require DBD::mysql";
+if ($@)
+{
+  $success= 0;
+}
+open FH, "> $file";
+print FH "let \$dbi_exists= $success;";
+close FH; 
+EOF
+
+source $MYSQLTEST_VARDIR/tmp/dbi_exists;
+remove_file $MYSQLTEST_VARDIR/tmp/dbi_exists;
+if(!$dbi_exists) { 
+  skip DBI & DBD modules not installed.;  
+}

=== modified file 'mysql-test/suite/backup/t/backup_external_non_win.test'
--- a/mysql-test/suite/backup/t/backup_external_non_win.test	2009-03-25 22:17:35 +0000
+++ b/mysql-test/suite/backup/t/backup_external_non_win.test	2009-04-02 19:50:39 +0000
@@ -9,6 +9,7 @@
 --source include/have_innodb.inc
 --source include/not_windows.inc
 --source suite/backup/include/backup_ext.inc
+--source suite/backup/include/have_dbi.inc
 
 let $MYSQLD_BACKUPDIR = `select @@backupdir`;
 let $MYSQLD_DATADIR= `select @@datadir`;