view release on metacpan or  search on metacpan

t/10_delete.t  view on Meta::CPAN

use strict;
use warnings;
use utf8;

use Test::More;

use File::Spec;
use lib File::Spec->catfile('t', 'lib');
use t::Util;

run_on_database {
    db->insert(author => { name => 'MOZNION' });
    db->insert(author => { name => 'MOZNION2' });

    is db->select(author => {})->count, 2;

    db->delete(author => { name => 'MOZNION' });

    my $rows = db->select(author => {});
    is $rows->count, 1;

    my $row = $rows->first;
    is $row->name, 'MOZNION2';

    db->delete($row);

    is db->select(author => {})->count, 0;

    my ($line, $file);
    eval { db->delete(author => 'id = 1') }; ($line, $file) = (__LINE__, __FILE__);
    like $@, qr/^\Q(Aniki#delete) `where` condition must be a reference at $file line $line/, 'croak with no set parameters';
};

done_testing();