view release on metacpan or  search on metacpan

t/connector.t  view on Meta::CPAN

#!/usr/bin/perl -w
use strict;
use warnings;

use Test::More;
use Test::Fatal;
use DBIx::ResultSet::Connector;

my @args = ('dbi:SQLite:dbname=t/test.db', '', '');

isnt(
    exception { DBIx::ResultSet::Connector->new() },
    undef,
    'new without args dies',
);