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;
add_unique_index member_id_uniq => [qw/member/];
};
1;
};
like $@, qr/^Index error: Key column \[member\]/;
eval {
package Piyo;
use DBIx::Schema::DSL;
create_table player => columns {
integer 'member_id', unique;
set_primary_key qw/id member_id/;
};
1;
};
like $@, qr/^Primary key error: Key column \[id\]/;
done_testing;