验证是否存在MySQL驱动程序

如何验证MySQL和数据库驱动程序是否可访问？

目前我做以下，但我不知道它实际上是一个足够的测试 - 我讨厌找出半年下来行，我不是做正确的测试：

use Test::More; 

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

done_testing();

这足以检查连接将从Perl端提供。如果你想检查mysql服务器是否可用，你需要连接到它。 –

@AlexandrCiornii - 如果您将其添加为答案，我会接受它。 –

相关：['Test :: Database']（http://p3rl.org/Test::Database） – daxim

这就够了检查连接将b e可从Perl方面获得。如果你想检查mysql服务器是否可用，你需要连接到它。

P.S.您还可以为DBD :: mysql添加版本检查。例如。 4.001修复了utf8支持中的严重错误。

2011-11-20 14:36:02

嗯，这看起来好像没什么问题，但如果你想可以肯定的，你可以在你%INC即检查实际的文件路径的存在：

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

2011-11-19 23:48:14 ciderpunx

我不确定的是我已经测试了所有需要测试的模块。例如，我甚至不知道是否需要测试'DBD :: mysql'，因为我的代码没有使用它（我猜''DBI'没有'使用'）。 –

回答