use t::Utils;
use Mock::Basic;
use Test::More;
my $dbh = t::Utils->setup_dbh;
my $db = Mock::Basic->new({ dbh => $dbh });
$db->setup_test_db;
$db->insert('mock_basic',{
id => 1,
name => 'perl',
});
subtest search_by_sql_with_escaped_query => sub {
my $sql = 'SELECT id, name FROM "mock_basic" WHERE id = ?';
my $itr = $db->search_by_sql($sql, [1]);
my $row = $itr->next;
is $row->id, 1;
is $row->name, 'perl';
};
subtest search_by_sql_with_escaped_query => sub {
my $sql = 'SELECT id, name FROM `mock_basic` WHERE id = ?';
my $itr = $db->search_by_sql($sql, [1]);
my $row = $itr->next;
is $row->id, 1;
is $row->name, 'perl';
};
done_testing;