#!/usr/bin/env perl

use strict;
use warnings;
use Test::More tests => 6;
use Test::Exception;

use ok 'Package::FromData';

lives_ok {
    create_package_from_data({'Foo::Bar' => {}});
};

throws_ok {
    create_package_from_data('foo');
} qr/please pass create/;

throws_ok {
    create_package_from_data(\my $foo);
} qr/please pass create/;

throws_ok {
    create_package_from_data({'Foo::Bar' => 'baz'});
} qr/must be a hashref/;

throws_ok {
    create_package_from_data({ '::not a package!!!' => {} });
} qr/invalid package name/;