Проверьте наличие драйвера MySQL

Question

У меня есть приложение на Perl, использующее серверную часть MySQL.

Как проверить доступность драйверов MySQL и базы данных?

В настоящее время я занимаюсьследующее, , но я не знаю, является ли это достаточным тестом - я бы не хотел узнать через шесть месяцев, что я не делаю правильный тест:

use Test::More;

BEGIN { use_ok('DBI'); }
BEGIN { use_ok('DBD::mysql'); }

done_testing();

Answer 1

Этого достаточно, чтобы проверить, что соединение будет доступно со стороны Perl. Если вы хотите проверить, доступен ли сервер MySQL, вам необходимо подключиться к нему.

P.S. Вы также можете добавить проверку версии для DBD :: mysql. Например 4.001 исправляет серьезную ошибку в поддержке utf8.

Answer 2

Ну, для меня это выглядит нормально, но если вы хотите быть уверенным, вы можете проверить наличие фактических путей к файлам в вашем % INC , то есть:

perl -MDBI -e 'die unless $INC{"DBI.pm"}'
perl -MDBD::mysql -e 'die unless $INC{"DBD/mysql.pm"}'