The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package Mock::MySQL::UcPk;
use base qw(Mock::MySQL);
use DBIx::Skinny connect_info => +{};

sub setup_test_db {
    my $self = shift;
    $self->clean_test_db;
    my @statements = (
        q{
            CREATE TABLE books (
                ID         int not null auto_increment primary key,
                author_id  int,
                name       varchar(255)
            )
        },
        q{
            CREATE TABLE authors (
                ID           int,
                gender_name  varchar(255),
                pref_name    varchar(255),
                name         varchar(255)
            )
        },
        q{
            CREATE TABLE genders (
                name  varchar(255)
            )
        },
        q{
            CREATE TABLE prefectures (
                ID    int,
                name  varchar(255) primary key
            )
        },
        q{
            CREATE TABLE composite (
                ID      int,
                name    varchar(255),
                primary key (id, name)
            )
        },
        q{
            CREATE TABLE no_pk (
                code int,
                name varchar(255)
            )
        },
        q{ INSERT INTO books VALUES (1, 1, 'mysql') },
    );
    $self->do($_) for @statements;
}

1;