use strict;
use warnings;
use utf8;
use Test::More;

eval {
    package Fuga;
    use DBIx::Schema::DSL;

    create_table player => columns {
        integer 'id',   primary_key => 1, auto_increment => 1;
        integer 'member_id', unique, #oops
        varchar 'name';

        add_unique_index member_id_uniq => [qw/member/];
    };
    1;
};
like $@, qr/non void context/ and diag $@;


eval {
    package Piyo;
    use DBIx::Schema::DSL;

    create_table player => columns {
        integer 'id',   primary_key => 1, auto_increment => 1;
        integer 'member_id', unique, 1;

        add_unique_index member_id_uniq => [qw/member/];
    };
    1;
};
like $@, qr/^odd number elements/ and diag $@;

done_testing;