view release on metacpan or  search on metacpan

t/adapter.t  view on Meta::CPAN

use t::lib::Utils;

use Test::More;
use Test::Fatal;

use Data::Mapper::Adapter;

subtest 'driver' => sub {
    my $adapter = Data::Mapper::Adapter->new;
    ok exception { $adapter->driver };

    $adapter->driver('some driver implementation');
    ok !exception { $adapter->driver };

    my $i = 0;
    $adapter->driver(sub { ++$i });
    is $adapter->driver, 1;
    is $adapter->driver, 2;
};

package t::Data::Mapper::Adapter;
use parent qw(Data::Mapper::Adapter);
package main;

subtest 'subclass' => sub {
    my $adapter = t::Data::Mapper::Adapter->new;

    like exception { $adapter->$_ }, qr/^$_\(\) method/
        for qw(create find search update delete schemata);
};

done_testing;