測試:: mysqld的將不關閉mysqld的預期

Question

我有這樣的腳本：

#!/var/home/cherry/opt/perl 

use Test::More; 
use DBI; 
use Test::mysqld; 
use Data::Dumper; 

my $mysqld = Test::mysqld->new(
    base_dir => '/tmp/test_mysqls', 
    my_cnf => { 
     'skip-networking' => '', # no TCP socket 
    } 
) or plan skip_all => $Test::mysqld::errstr; 

my $dbh = DBI->connect(
    $mysqld->dsn(dbname => 'test'), 
); 

warn Dumper($mysqld); 

done_testing(); 

當我運行此，這裏的輸出我得到：

prove -lv t/test.t 
t/test.t .. $VAR1 = bless({ 
       '_owner_pid' => 21854, 
       'base_dir' => '/tmp/test_mysqls', 
       'pid' => 21918, 
       'mysql_install_db' => '/usr/bin/mysql_install_db', 
       'auto_start' => 2, 
       'my_cnf' => { 
           'tmpdir' => '/tmp/test_mysqls/tmp', 
           'pid-file' => '/tmp/test_mysqls/tmp/mysqld.pid', 
           'skip-networking' => '', 
           'datadir' => '/tmp/test_mysqls/var', 
           'socket' => '/tmp/test_mysqls/tmp/mysql.sock' 
          }, 
       'mysqld' => '/usr/sbin/mysqld' 
       }, 'Test::mysqld'); 

1..0 

---

測試從未完成。腳本永遠等待在換行符上，並且永遠不會退出 - 當我執行ps aux時，即使在執行ctrl + c之後，仍可以看到mysqld的實例正在運行。我甚至不知道從哪裏開始解決這個問題。任何提示？

Answer 1

嘗試在eval {}中添加do {}並調用$ mysqld-> stop來關閉mysqld。

my $mysqld = Test::mysqld->new(
    base_dir => '/tmp/test_mysqls', 
    my_cnf => { 
     'skip-networking' => '', # no TCP socket 
    } 
) or do { 
    eval { $mysqld->stop }; 
    plan skip_all => $Test::mysqld::errstr; 
};