use strict;
use warnings;
use Test::More tests => 1;
use Data::Model;
use Data::Model::Driver::DBI;
{
package Neko::DB::User;
use base 'Data::Model';
use Data::Model::Schema;
install_model user => schema {
key 'foo';
column 'foo' => varchar => {
binary => 1,
};
};
}
my $dm = Neko::DB::User->new();
my $driver = Data::Model::Driver::DBI->new(
dsn => 'dbi:SQLite:'
);
$dm->set_base_driver($driver);
for my $target ($dm->schema_names) {
for my $sql ($dm->as_sqls($target)) {
$driver->rw_handle->do($sql);
}
}
ok 1;