use strict;
use warnings;
use utf8;
use xt::Utils::mysql;
use Test::More;
use Test::SharedFork;
use lib './t';
use Mock::Basic;
my $dbh = t::Utils->setup_dbh;
my $db = Mock::Basic->new({dbh => $dbh});
$db->setup_test_db;
# XXX: Correct operation is not done for set_dbh.
{
$db->txn_begin;
ok not +$db->single('mock_basic',{id => 1});
if ( fork ) {
wait;
$db->txn_rollback;
ok not +$db->single('mock_basic',{id => 1});
done_testing;
}
else {
# child
eval {
$db->insert('mock_basic',{
name => 'perl',
});
};
ok $@;
}
undef $db;
}