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;