The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;
use Test::More;
use t::Tools;
use Test::Fixture::DBIC::Schema;
use Test::Requires 'DBD::SQLite';

plan tests => 4;

eval { construct_fixture( schema  => schema, fixture => {},) };
like $@, qr{invalid fixture stuff. should be ARRAY: };

eval { construct_fixture() };
like $@, qr{Mandatory parameters 'fixture', 'schema' missing in call};

eval { construct_fixture(schema => schema) };
like $@, qr{Mandatory parameter 'fixture' missing in call};

eval { construct_fixture(schema => schema, fixture => [{ }]) };
like $@, qr{Expected required key};