#!perl
use warnings;
use strict;
use Test::More;
eval 'use Test::Exception';
plan skip_all => 'Test::Exception required' if $@;
plan tests => 4;
sub _action_cache { return [] }
use CatalystX::Imports ();
lives_ok(sub {
CatalystX::Imports->export_into('Foo', Vars => {});
}, 'export_into works with an even number of arguments');
throws_ok(sub {
CatalystX::Imports->export_into('Foo', 'Vars');
}, qr{expects a key/value list}, 'export_into fails with an odd number of arguments');
throws_ok(sub {
CatalystX::Imports->export_into('Foo', Vars => []);
}, qr/1 or a hash reference expected/, 'Vars export_into fails with something not 1 or hashref (arrayref)');
throws_ok(sub {
CatalystX::Imports->export_into('Foo', Vars => 0);
}, qr/1 or a hash reference expected/, 'Vars export_into fails with somethong not 1 or hashref (0)');