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 Test::Exception;

use t::Util;

my $hmap = hmap;

# Check for exceptions that should thrown from XS code

throws_ok sub {
    $hmap->insert_datas('foobar');
}, qr/array reference/, "Die if insert_datas non-ref value";

throws_ok sub {
    $hmap->insert_datas({ hoo => 'bar' });
}, qr/array reference/, "Die if insert_datas non-ARRAYref value";

throws_ok sub {
    $hmap->insert_datas([1]);
}, qr/array reference/, "Die if point data length is less than 2";

done_testing;