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;
subtest 'get_column' => sub {
my $row = $db->insert('mock_basic',{
id => 1,
name => 'perl',
});
isa_ok $row, 'Teng::Row';
is($row->get_column('name') => 'perl', 'get_column ok');
eval {
$row->get_column;
};
ok $@;
like $@, qr/please specify \$col for first argument/;
eval {
$row->get_column('bazbaz');
};
ok $@;
like $@, qr/Specified column 'bazbaz' not found in row/;
};
subtest 'get_column' => sub {
my $row = $db->search_by_sql(
q{SELECT id FROM mock_basic LIMIT 1}
)->next;
isa_ok $row, 'Teng::Row';
eval {
$row->get_column('name');
};
ok $@;
like $@, qr/Specified column 'name' not found in row \(query: SELECT id FROM mock_basic LIMIT 1\)/;
};
done_testing;