diff options
| author | Pali <pali@cpan.org> | 2019-06-07 16:30:27 +0200 |
|---|---|---|
| committer | Robert Bindar <robert@mariadb.org> | 2019-07-19 13:39:20 +0300 |
| commit | 5cc2096f93b7f130b36f8bc0fc43440db9a848e4 (patch) | |
| tree | 48dc24bbde0c7a15181d01b7aea08e43992f4364 /tests/drop_test.pl | |
| parent | 9a7d96e8326377b92406c09fdcb8bd60c45f901c (diff) | |
| download | mariadb-git-5cc2096f93b7f130b36f8bc0fc43440db9a848e4.tar.gz | |
Switch Perl DBI scripts from DBD::mysql to DBD::MariaDB driverbb-10.5-MDEV-18565
Perl DBD::MariaDB driver is available CPAN and is already used in
production environment.
Diffstat (limited to 'tests/drop_test.pl')
| -rwxr-xr-x | tests/drop_test.pl | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/tests/drop_test.pl b/tests/drop_test.pl index 329f65eb65d..15a75f4908c 100755 --- a/tests/drop_test.pl +++ b/tests/drop_test.pl @@ -50,7 +50,7 @@ $firsttable = "bench_f1"; $start_time=new Benchmark; if (!$opt_skip_create) { - $dbh = DBI->connect("DBI:mysql:$opt_db:$opt_host", + $dbh = DBI->connect("DBI:MariaDB:$opt_db:$opt_host", $opt_user, $opt_password, { PrintError => 0}) || die $DBI::errstr; $dbh->do("drop table if exists $firsttable, ${firsttable}_1, ${firsttable}_2"); @@ -81,7 +81,7 @@ while (($pid=wait()) != -1) if (!$opt_skip_delete && !$errors) { - $dbh = DBI->connect("DBI:mysql:$opt_db:$opt_host", + $dbh = DBI->connect("DBI:MariaDB:$opt_db:$opt_host", $opt_user, $opt_password, { PrintError => 0}) || die $DBI::errstr; $dbh->do("drop table $firsttable"); @@ -103,7 +103,7 @@ sub test_insert { my ($dbh,$i); - $dbh = DBI->connect("DBI:mysql:$opt_db:$opt_host", + $dbh = DBI->connect("DBI:MariaDB:$opt_db:$opt_host", $opt_user, $opt_password, { PrintError => 0}) || die $DBI::errstr; for ($i=0 ; $i < $opt_loop_count; $i++) @@ -124,7 +124,7 @@ sub test_drop my ($id) = @_; my ($dbh,$i,$sth,$error_counter,$sleep_time); - $dbh = DBI->connect("DBI:mysql:$opt_db:$opt_host", + $dbh = DBI->connect("DBI:MariaDB:$opt_db:$opt_host", $opt_user, $opt_password, { PrintError => 0}) || die $DBI::errstr; $error_counter=0; @@ -169,7 +169,7 @@ sub test_select { my ($dbh,$i,$sth,@row,$error_counter,$sleep_time); - $dbh = DBI->connect("DBI:mysql:$opt_db:$opt_host", + $dbh = DBI->connect("DBI:MariaDB:$opt_db:$opt_host", $opt_user, $opt_password, { PrintError => 0}) || die $DBI::errstr; @@ -206,7 +206,7 @@ sub test_flush { my ($dbh,$i,$sth,@row,$error_counter,$sleep_time); - $dbh = DBI->connect("DBI:mysql:$opt_db:$opt_host", + $dbh = DBI->connect("DBI:MariaDB:$opt_db:$opt_host", $opt_user, $opt_password, { PrintError => 0}) || die $DBI::errstr; |