#!/usr/bin/env perl

use strict;
use warnings;
use Test::More tests => 5;

use FindBin qw($Bin);
use lib "$Bin/lib";

use DBICx::TestDatabase;

my $schema = DBICx::TestDatabase->connect('MySchema');
ok $schema;
isa_ok $schema, 'MySchema', '$schema';

my $row = $schema->resultset('Foo')->create({ value => 'foo' });

ok $row, 'got a row';
is $row->id, 1, 'id 1';

$schema->resultset('Foo')->create({ value => 'bar' });
my $second = $schema->resultset('Foo')->search({ value => 'bar' })->first;

is $second->id, 2, 'got second row';

# it works.