#!/usr/bin/perl
use strict;
use warnings;

use Cwd qw(abs_path);
use DBIx::Class::Schema::Loader qw(make_schema_at);
use File::Basename qw(dirname);
use File::Spec;
use File::Temp qw(tempdir);

my $lib;
BEGIN {
	$lib = File::Spec->catdir( dirname(dirname abs_path($0)), 'lib');
}
use lib $lib;

#use Dwimmer::Tools;

my $temp = tempdir( CLEANUP => 0 );
my $root = File::Spec->catdir($temp, 'root');

system "$^X -I$lib script/dwimmer_admin.pl --setup --email dev\@dwimmer.org --password dwimmer --root $root";

my $dbfile = File::Spec->catfile($root, 'db', 'dwimmer.db');

make_schema_at(
	'Dwimmer::DB',
	{
		debug => 0,
		dump_directory => './lib',
	},
	[
		"dbi:SQLite:dbname=$dbfile", "", "",
	],
);